Sons wav no gtwvt

[paulovirt]

Alguém conhece o comando que faz tocar sons tipo wav ou mp3 em xharbour , com a biblioteca gtwvt?

[sygecom]

Código: Selecionar todos

#define SND_SYNC            0x0000  /* play synchronously (default) */
#define SND_ASYNC           0x0001  /* play asynchronously */
#define SND_NODEFAULT       0x0002  /* silence (!default) if sound not found */
#define SND_MEMORY          0x0004  /* pszSound points to a memory file */
#define SND_LOOP            0x0008  /* loop the sound until next sndPlaySound */
#define SND_NOSTOP          0x0010  /* don't stop any currently playing sound */

FUNCTION Main
   Play_Som("cocluido.wav",SND_ASYNC)
   INKEY(0)
   sndPlaySoundA("Jingle.wav")
   QUIT
Return

**********************************
FUNCTION Play_Som(pszSound,fuSound)
**********************************
 STATIC hLib
 STATIC nProcAddr
 IF nProcAddr==NIL
   hLib:=Loadlibrary("WINMM")
   nProcAddr:=GetProcAddress(hLib,"sndPlaySoundA")
 ENDIF
 RETURN CallDLL (hLib,nProcAddr,,8,10,pszSound,-3,fuSound)

Obs: Tem que linkar a WHAT32.LIB

[paulovirt]

essa função retornou erro

[Maligno]

Qual a mensagem de erro?

[paulovirt]

Nome do Arquivo compilado TESTE.PRG

----------------------------------------------------------------------------------------------
Código-Fonte - Obs.: compilado com GTWVT e WHAT32.LIB


#define SND_SYNC 0x0000 /* play synchronously (default) */
#define SND_ASYNC 0x0001 /* play asynchronously */
#define SND_NODEFAULT 0x0002 /* silence (!default) if sound not found */
#define SND_MEMORY 0x0004 /* pszSound points to a memory file */
#define SND_LOOP 0x0008 /* loop the sound until next sndPlaySound */
#define SND_NOSTOP 0x0010 /* don't stop any currently playing sound */

FUNCTION Main
Play_Som("cocluido.wav",SND_ASYNC)
INKEY(0)
sndPlaySoundA("Jingle.wav")
QUIT
Return

**********************************
FUNCTION Play_Som(pszSound,fuSound)
**********************************
STATIC hLib
STATIC nProcAddr
IF nProcAddr==NIL
hLib:=Loadlibrary("WINMM")
nProcAddr:=GetProcAddress(hLib,"sndPlaySoundA")
ENDIF
RETURN CallDLL (hLib,nProcAddr,,8,10,pszSound,-3,fuSound)

----------------------------------------------------------------------------------------------
Erros na Compilação:

Error: Unresolved external '_HB_FUN_SNDPLAYSONDA' referenced from C:\SISEMP\OBJ\TESTE.OBJ

Error: Unresolved external '_hb_stack' referenced from C:\XHARBOUR\LIB\WHAT32.LIB_windll

[sygecom]

1º Erro:
Tire fora "sndPlaySoundA("Jingle.wav")" eu postei a mais, desculpa.
2º Erro:
Provalvelmente vc esta usando a LIB WHAT32.LIB de uma versão diferente do seu xharbour. Tente compilar a LIB com a sua versão de xharbour.

[microvolution]

olá pessoal... apesar do tópico estar no harbour, parece que as LIBs são do XHARBOUR...
estou tentando fazer funcionar um play, ou melhor, construir um player a partir do harbour...
aí achei este post...
como adiciono estas LIBs sugeridas no harbour?
NOTA: uso harbour 3.4.0dev / mingW
grato!

[Toledo]

apesar do tópico estar no harbour, parece que as LIBs são do XHARBOUR...

Na seção Harbour são discutidos assuntos sobre Harbour e também xHarbour.

Para Harbour, veja um exemplo:

Código: Selecionar todos

* Compilar: hbmk2 demo.prg -lhbwin
Func Main()
Local cArqWav:="c:\windows\media\Encerramento do Windows XP.wav"

Wapi_PlaySound(cArqWav)

Return Nil

Abraços,

[microvolution]

o seu teste Toledo, funcionou direitinho...
mas, e mp3, wma, etc?
como fazer para rodar?

[Toledo]

Segue um exemplo para MP3 (não testei para WMA):

Código: Selecionar todos

* Compilar: hbmk2 demo.prg -lhbwin
#include "hbdyn.ch"
Func Main()
Local cArqWav:=DiskName()+":\"+CurDir()+"\musica.mp3"

nDLL:=hb_LibLoad('WINMM.DLL')   // Carrega DLL

cComando = 'open ' + '"' + cArqWav + '"' + ' type MPEGVideo alias Mp3File'

HB_DynCall( { "mciSendStringA", nDLL,HB_DYN_CALLCONV_STDCALL},cComando, , 0, 0)

cComando = 'play Mp3File'

HB_DynCall( { "mciSendStringA", nDLL,HB_DYN_CALLCONV_STDCALL},cComando, , 0, 0)

inkey(0)

hb_LibFree(nDLL)        // Retira a DLL da memoria
Return Nil

***********************
* Outros comandos:
*
* cComando = 'pause Mp3File'
*
* cComando = 'close Mp3File'
***********************

Abraços,

[microvolution]

professor Toledo... V.Sa. é 10 ou melhor 1000...
tenho muito interesse no assunto... já programava um pouco em delphi e nunca consegui algo para desenvolver um aplicativo que fizesse essa automação ...
preciso de mais coisas... onde acho tutorial sobre como usar essas funções?
por exemplo:
- se eu quiser que rode os áudios de determinada pasta em sequência?
- e se o hardware tiver 2 placas e quiser programar uma como pré escuta e outra que rode 24h sem parar?
- as músicas rodar aleatoriamente e repetir somente se acabar a quantidade?
- ah! são "tantas emoções e dúvidas"!!!
vi que no seu código tem já grande possibilidade de se tornar algo não só de testes mas um enorme aplicativo...
vi também que tem 2 comandos, ou melhor 3: pausa, stop e play... e um avançar existe? seria um stop+play?

nDLL:=hb_LibLoad('WINMM.DLL') // Carrega DLL

o que essa DLL faz? aliás, nunca incorporei uma DLL em sistema algum...

"hbdyn.ch"

esse include já o utilizo no meu sistema comercial para controlar mensagens ALERT - YES/NO - RETRY/CANCEL... etc... mas, onde acho mais detalhes de como usar "esse troço"?
viram aí minhas perguntas...

"são tantas que acabo me atropelando aqui no fórum"

vou parar por aqui... por enquanto ) pois já estou até dançando com as músicas que já toco no "clipper/harbour" isso é incrível! :|<

[JoséQuintas]

Não serve usar algo assim?

[microvolution]

quase...
o que pretendo desafiar para este ano ou ano que vem (tentar colocar em prática) é algo semelhante:

16-0219 - imagem 0.png (10.03 KiB) Exibido 1586 vezes

Meu filhinho já tem 5 anos!

que estou casado já tem quase 7...
então, esse projeto tem uns 18 anos... mas, no mínimo há 8 anos atrás em Delphi 7, cheguei a preparar tudo... mas, infelizmente tive que parar, pois não encontrei nada em delphi para controle e gestão de áudio...
fucei e pesquisei aqui na minha máqui (win 10/ 64 ) e achei o protópico... e está aqui ainda o .exe... executei-o e funciona (só não toca nada). vejam:

Se na época (tinha até desistido de clipper) e se eu tivesse conseguido colocar esse projeto em prática, não estaria rico (financeiramente), pois rico, sou, que não devo nada há ninguém (a não ser o amor que é impagável) não há cobrador e minha porta, não preciso de escolta armada, não preciso de seguranças, etc...
mas, estaria com uma situação financeira confortável...
Nota: a hora e a data são atuais e funcionam de verdade!
Os 2 áudios não executam de jeito nenhum...
Enfim, na imagem acima (a minha) seria de um projeto, em que:
- roda música 24h por dia (enquanto a máquina estivesse ligada);
- roda comerciais nos horários programados... e programação de rádio FM eu entendo, pois também sou radialista e tem 2 tipos de programação mais usadas:
* a dos blocos de 3 minutos que rodam 4x por hora e a dos blocos de 5 minutos que rodam 3x por hora... a diferença é que no de 4x são 12 minutos de comerciais/hora e o outro são 15minutos/hora.
Talvez, algum dia, quem sabe, consigo desenvolver este sistema/aplicativo e passo para meus colegas radialistas/comunitários que não tem condições de comprar um software desse porte, pois é monopolizado e não tem muita concorrência então a licença é muito alta... só pra grandes emissoras que conseguem bancar!

[JoséQuintas]

http://tiraduvidas.tecmundo.com.br/14391

Já pesquisou no sourceforge e no github?

Automatize a programação de sua rádio, incluindo jingles, comerciais e programando tudo

http://www.baixaki.com.br/download/zararadio.htm

[microvolution]

http://www.baixaki.com.br/download/zararadio.htm

conheço todos eles... afinal mexi com rádio desde 1998 até 2013...
só parei pois fui convidado a ser apresentador de tv em 2011 e já era um sonho de infância... e fiquei nessa emissora até 2012... no final de 2013 assinei um contrato (de programa meu) numa das 3 maiores emissoras do país... e o transmissor da rádio queimou e dediquei meu tempo o 2014 inteiro a isso...
ano passado fui para fora do meu estado e por lá fiquei 45 dias, mas, infelizmente 15 dias após minha viagem, meu pai adoeceu... 15 dias após ele faleceu e 15 dias após é que cheguei...
mas, faltando 2 dias pra voltar, tive oportunidade de assinar contrato entre as 2 emissoras desse estado. Uma para ser repórter de rua, e, outra para apresentar programa ao vivo em horário policial...

infelizmente, ou melhor, felizmente: o dinheiro não é tudo!

O mais importante é a família!
Então, preferi voltar pra cuidar de minha mãe, esposa e filho!
Paralelamente a isso, em 2015, com a ajuda dos srs. consegui migrar meu único aplicativo (SiCCA) para harbour... e estou cá com esta luta, que não posso parar!
então, voltando...
se eu conseguir decifrar em harbour ou em delphi (mais fácil) poderei ajudar meus companheiros de rádio a sair da pirataria!
Bom, o zararadio é um software que deixa muito a desejar... sem citar nome, existe o top dos tops no mercado... que é fabricado aqui em MG, pra não dar mais pistas de qual cidade!
rs