Pprograma para grabar sonidos en wave

[karinha]

¿Hay un programa para grabar sonidos en wave y luego copiar para el archivo de recursos para ejecutar en mi sistema?

Escribir en portugués y le escribe a formato en wave.

Gracias, saludos.

[karinha]

Ejemplo:

Code: Select all  Expand view  RUN

CLICK WAVE LOADONCALL FIXED IMPURE
{
 '52 49 46 46 28 02 00 00 57 41 56 45 66 6D 74 20'
 '12 00 00 00 01 00 01 00 11 2B 00 00 11 2B 00 00'
 '01 00 08 00 00 00 66 61 63 74 04 00 00 00 F5 01'
 '00 00 64 61 74 61 F5 01 00 00 80 81 7E 7E 83 6C'
 '8C C8 00 D2 A9 20 FF 60 83 41 AF 81 46 E1 28 99'
 'A0 88 47 6E 80 8A 83 A0 7F 6A 80 7D 88 8F 7D 8C'
 '6A 7D 74 96 88 80 80 7D 7D 8A 76 99 88 78 74 7F'
 '7F 8F 80 7F 80 7D 6E 94 7D 9B 74 80 7F 6A 88 7F'
 '8F 80 80 74 82 81 7D 8A 7E 7F 80 7E 82 82 7F 88'
 '76 80 7F 81 81 81 7E 7F 7E 80 82 7E 8A 78 81 7E'
 '83 7F 82 81 78 81 7E 82 80 80 81 78 81 80 80 83'
 '7F 80 7E 7F 81 80 82 7F 80 7E 7E 80 7F 83 7E 80'
 '7E 7E 82 80 83 7F 80 7F 7F 81 80 82 7F 80 7F 80'
 '81 80 81 7F 80 7F 80 82 7F 80 7F 7F 80 7F 81 80'
 '80 7F 80 80 80 81 7F 81 7F 80 80 80 80 80 7F 80'
 '80 80 81 7F 80 80 7F 81 80 81 80 80 80 80 7F 80'
 '80 81 80 80 80 80 80 80 80 80 80 80 7F 80 80 80'
 '80 80 80 80 7F 80 7F 81 7F 80 7F 80 80 7F 80 7F'
 '80 80 80 80 80 80 80 80 7F 80 80 80 80 7F 80 80'
 '80 80 80 7F 7F 80 80 81 7F 81 7F 80 80 7F 81 7F'
 '81 7E 7F 80 80 80 80 80 80 7F 80 80 80 80 7F 80'
 '7E 80 7F 80 81 80 80 80 7F 80 80 80 80 7F 7F 7F'
 '80 80 80 80 7F 80 80 80 80 80 80 80 80 80 80 80'
 '80 7F 80 80 80 80 7F 80 80 80 81 80 80 80 7F 80'
 '80 80 80 80 80 80 80 80 80 81 80 80 80 80 80 80'
 '80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80'
 '80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80'
 '80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80'
 '80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80'
 '80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80'
 '80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80'
 '80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80'
 '80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80'
 '80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80'
 '80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 00'
}

 

[Antonio Linares]

Joao,

En principio creo que no se puede porque la función sndPlaySound() de Microsoft solo admite dos tipos de ficheros: el identificador de un sonido del sistema ó el nombre de un fichero. Es decir, no permite que se le proporcione un handle de memoria.

Asi que lo único que se me ocurre es que guardes el fichero en una cadena y luego la grabes a disco y desde ahi puedas reproducir. Y podrias usar una cadena de Harbour y no tener que guardarlo en los recursos:

local cWavFile := Chr( xx ) + Chr( xx ) + Chr( xx ) + ... asi con cada byte del fichero WAV. Podrias facilmente crear un PRG que te genere esta cadena

http://msdn.microsoft.com/en-us/library/aa909803.aspx

Long pointer to a null-terminated string that specifies the sound to play. This parameter can be either an entry in the registry or in WIN.INI that identifies a system sound, or it can be the name of a waveform-audio file. (If the function does not find the entry, the parameter is treated as a file name.) If this parameter is NULL, any currently playing sound is stopped.