PC Toledo

Enviado: **06 Mar 2008 15:09**

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

Enviado: **09 Mar 2008 13:16**

#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

Enviado: **11 Mar 2008 16:58**

essa função retornou erro

Enviado: **11 Mar 2008 16:59**

Qual a mensagem de erro?

Enviado: **17 Mar 2008 16:06**

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

Enviado: **17 Mar 2008 16:19**

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.

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!

microvolution escreveu: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,

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

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,

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?

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

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

Toledo escreveu:"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! :|<

Não serve usar algo assim?

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 1573 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!

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

JoséQuintas escreveu: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

PC Toledo

Sons wav no gtwvt

Sons wav no gtwvt

som wav no xharbour com gtwvt

tocar sons wav em xharbour com gtwvt

Sons wav no gtwvt

Sons wav no gtwvt

Sons wav no gtwvt

Sons wav no gtwvt

Sons wav no gtwvt

Sons wav no gtwvt

Sons wav no gtwvt

Sons wav no gtwvt

Sons wav no gtwvt