SHARK Posted May 14, 2007 Report Share Posted May 14, 2007 Preciso gravar arquivos de som e não encontro nenhuma função do tipo SndRecord() ou sei lá algum método tipo oMCI:Record() Alguém pode me dar uma dica? Shark - FWH 2.5 / xharbour 0.99.3 / xMate 1.9 / Resource WorkShop Quote Link to comment Share on other sites More sharing options...
SHARK Posted May 14, 2007 Author Report Share Posted May 14, 2007 Preciso gravar arquivos de som e não encontro nenhuma função do tipo SndRecord() ou sei lá algum método tipo oMCI:Record() Alguém pode me dar uma dica? Shark - FWH 2.5 / xharbour 0.99.3 / xMate 1.9 / Resource WorkShop Quote Link to comment Share on other sites More sharing options...
SHARK Posted May 15, 2007 Author Report Share Posted May 15, 2007 Vamos lá. Por Favor. Alguém se habilitada? Shark - FWH 2.5 / xharbour 0.99.3 / xMate 1.9 / Resource WorkShop Quote Link to comment Share on other sites More sharing options...
SHARK Posted June 6, 2007 Author Report Share Posted June 6, 2007 Até agora nenhuma resposta... Shark - FWH 2.5 / xharbour 0.99.3 / xMate 1.9 / Resource WorkShop Quote Link to comment Share on other sites More sharing options...
SHARK Posted July 2, 2007 Author Report Share Posted July 2, 2007 até agora nada... Shark - FWH 2.5 / xharbour 0.99.3 / xMate 1.9 / Resource WorkShop Quote Link to comment Share on other sites More sharing options...
viol Posted July 3, 2007 Report Share Posted July 3, 2007 Grita o kapiaba ai.... unico que pode responder... agora kapiaba com k o que é , caipira da capital.. aqui no interior é caipira matuto. Viol xDev Studio v0.65 xHB build 0.99.50 BCC 5.5.1 FW 2.6 Quote Link to comment Share on other sites More sharing options...
zekasan Posted July 3, 2007 Report Share Posted July 3, 2007 veja se isto te serve: function f_gravar() mciSendStringA("OPEN NEW TYPE WAVEAUDIO ALIAS SAMPLE","",0,0) mciSendStringA("RECORD SAMPLE","",0,0) return(nil) function f_parar() meuarq:="MEUSOM.WAV" mciSendStringA("STOP SAMPLE","",0,0) mciSendStringA("SAVE SAMPLE " + meuarq , "",0,0) mciSendStringA("CLOSE SAMPLE","",0,0) return(nil) DLL function mciSendStringA ( cFile as LPSTR ,zFile as LPSTR,; uReturnLenght as LONG, wndCallback as LONG) as LONG PASCAL LIB "WINMM.DLL" id=code>id=code>clipper - vasculhando fivewin e o xharbour Quote Link to comment Share on other sites More sharing options...
zekasan Posted July 5, 2007 Report Share Posted July 5, 2007 Olá Sr. Shark, funcionou? clipper - vasculhando fivewin e o xharbour Quote Link to comment Share on other sites More sharing options...
SHARK Posted July 13, 2007 Author Report Share Posted July 13, 2007 Vou testar. Obrigado! Shark - FWH 2.5 / xharbour 0.99.3 / xMate 1.9 / Resource WorkShop Quote Link to comment Share on other sites More sharing options...
SHARK Posted July 17, 2007 Author Report Share Posted July 17, 2007 Não funcionou. Shark - FWH 2.5 / xharbour 0.99.3 / xMate 1.9 / Resource WorkShop Quote Link to comment Share on other sites More sharing options...
zekasan Posted July 17, 2007 Report Share Posted July 17, 2007 O quê (qual a fonte) e como (hardware) vc precisa gravar? clipper - vasculhando fivewin e o xharbour Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.