Gravar Áudio
Enviado: 29 Set 2016 22:33
Tem como fazermos via Harbour um EXE pra rodar em segundo plano e gravar áudio?
Código: Selecionar todos
mciSendString("open new Type waveaudio Alias recsound", Nil, 0, 0)
mciSendString("set capture time format ms bitspersample 16 channels 2 samplespersec 48000 bytespersec 192000 alignment 4", Nil, 0, 0)
mciSendString("record recsound", Nil, 0, 0)
Inkey(0)
mciSendString("stop recsound" , NIL, 0, 0)
mciSendString("save recsound sample.wav" , NIL, 0, 0)
mciSendString("close recsound" , NIL, 0, 0)
#pragma BEGINDUMP
#include <windows.h>
#include <tchar.h>
#include <stdio.h>
#include <hbapi.h>
HB_FUNC ( MCISENDSTRING )
{
BYTE bBuffer[ 255 ];
hb_retnl( ( LONG ) mciSendString( ( LPSTR) hb_parc( 1 ), ( LPSTR ) bBuffer, 254, ( HWND ) hb_parnl( 3 ) ) );
}
#pragma ENDDUMP