topic-26891

Board index FiveWin para Harbour/xHarbour Pprograma para grabar sonidos en wave

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Pprograma para grabar sonidos en wave
Posted: Thu Aug 01, 2013 05:49 PM

¿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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Pprograma para grabar sonidos en wave
Posted: Thu Aug 01, 2013 06:00 PM

Ejemplo:

Code (fw): Select all Collapse

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'
}

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Pprograma para grabar sonidos en wave
Posted: Thu Aug 01, 2013 08:21 PM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion