Re: [delphi-br] Som

2008-04-03 Por tôpico escobar
isso só da pra fazer se vc estiver capturando wav puro, caso esteja capturando 
em mp3 ou outro formato, tem que converter para wav e fazer os calculos pra 
formar o seu gauge ou seja "VU"
vai ter que aprender sobre dB, cada 3 dB o volume do audio dobra, então vamos 
lá...
wav 44.1Khz 16bits stereo...  cada segundo vai ter exatamente 44.100 x 2 x 2 = 
176.400 bytes por segundo..
sendo  4 bytes 1 sample sendo 2 bytes left, 2 bytes right, ai é só saber quanto 
é o seu buffer de captura, normalmente 1/10 para fazer um vu de 10x por 
segundo... ta bom...
então no seu samples de 1/10 segundo, vc vai pegar os 2 primeiros bytes para o 
lado esquerdo e os dois segundos para o lado direito e assim sussecivamente, 
até o ultimo e ver qual é o maior valor e calcular a porcentagem... valores em 
HEX ::: 
0x = 1 sample e este valor ta estourando vai distorcer o som, 
0x = 1 sample o trem ta mudo, 
sendo
0x para left  
0x para right
0 - 655535 = 0 - 100%
, procura no google que vai achar muita coisa hoje, na época q 
precisei num encontrei quase nada, principalmente em delphi, tinha algumas em 
C, C++, mas na hora da conversão por falta de um conhecimento maior na 
linguagem quase sempre num dava certo... heheheh
uma dica: vai em:  http://www.neurophys.wisc.edu/auditory/riff-format.txt  

agora se for MP3, boa sorte eu desisti... rsrsrsrsrs

[]s

Luiz Escobar









Wed, 2 Apr 2008 17:44:16 -0300, "Claudio Marconi" escreveu:

Esqueci de mencionar, qualquer duvida que tiver quanto ao MMTools pode me
falar.
Se quiser alguma coisa mais "pé duro" pode ser feito tb usando DirectShow,
onde posso dar uma ajuda tb,
se precisar.

Em 02/04/08, BandaLemuel <[EMAIL PROTECTED]> escreveu:
>
> O ACS eu testeiaki, mas não estou conseguindo fazer o que preciso
> tipo eu preciso pegar o que esta falando no microfone do PC e colocar em um
> gráfico , como se fosse um gauge, quanto mais auto a pessoa fala ele vai
> enchendo o gauge tipo aqueles programas que gravam sons
>
> mas mesmo vlw pela atenção
> Wesley
>
> From: Ricardo César Cardoso
> Sent: Wednesday, April 02, 2008 10:07 AM
> To: delphi-br@yahoogrupos.com.br 
> Subject: Re: [delphi-br] Som
>
> Nunca usei, mas já ouvi falar bem do "Audio Component Suite". Dá uma
> vasculhada no torry.net que vc acha ele facim, facim.
>
> O melhor é que é free e vem com os fontes.
>
> Atte,
> Ricardo.
>
> BandaLemuel <[EMAIL PROTECTED] >
> escreveu: Lista
>
> Me desculpe mas ja procurei no google mas não achei nada, alguem sabe como
> manipular arquivo wav .. por exemplo pegar a quantidade de bits de som
> etc... ??? e como faço para saber se a pessoa esta falando no microfone do
> PCé possível saber isso ???
>
> qualquer ajuda é bem vinda vlw
>
> Wesley
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> _
>
> -
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __ Informação do NOD32 IMON 2995 (20080402) __
>
> Esta mensagem foi verificada pelo NOD32 sistema antivírus
> http://www.eset.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

-- 
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451

[As partes desta mensagem que não continham texto foram removidas]






Re: [delphi-br] Som

2008-04-03 Por tôpico BandaLemuel
Kra cho que vc pode me ajudar entaum... baixei o trial do 
MMtols...preciso fazer q nem em programa de gravação... tipo o soundforge da 
sony q quando vc fala no microfone.. tem um monitor ( gauge ) que mostra o 
volume que esta sendo o audio vc sabe como faz isso ???

vlw... Wesley


From: Claudio Marconi 
Sent: Wednesday, April 02, 2008 5:44 PM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: [delphi-br] Som


Esqueci de mencionar, qualquer duvida que tiver quanto ao MMTools pode me
falar.
Se quiser alguma coisa mais "pé duro" pode ser feito tb usando DirectShow,
onde posso dar uma ajuda tb,
se precisar.

Em 02/04/08, BandaLemuel <[EMAIL PROTECTED]> escreveu:
>
> O ACS eu testeiaki, mas não estou conseguindo fazer o que preciso
> tipo eu preciso pegar o que esta falando no microfone do PC e colocar em um
> gráfico , como se fosse um gauge, quanto mais auto a pessoa fala ele vai
> enchendo o gauge tipo aqueles programas que gravam sons
>
> mas mesmo vlw pela atenção
> Wesley
>
> From: Ricardo César Cardoso
> Sent: Wednesday, April 02, 2008 10:07 AM
> To: delphi-br@yahoogrupos.com.br 
> Subject: Re: [delphi-br] Som
>
> Nunca usei, mas já ouvi falar bem do "Audio Component Suite". Dá uma
> vasculhada no torry.net que vc acha ele facim, facim.
>
> O melhor é que é free e vem com os fontes.
>
> Atte,
> Ricardo.
>
> BandaLemuel <[EMAIL PROTECTED] >
> escreveu: Lista
>
> Me desculpe mas ja procurei no google mas não achei nada, alguem sabe como
> manipular arquivo wav .. por exemplo pegar a quantidade de bits de som
> etc... ??? e como faço para saber se a pessoa esta falando no microfone do
> PCé possível saber isso ???
>
> qualquer ajuda é bem vinda vlw
>
> Wesley
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> _
>
> -
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __ Informação do NOD32 IMON 2995 (20080402) __
>
> Esta mensagem foi verificada pelo NOD32 sistema antivírus
> http://www.eset.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

-- 
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451

[As partes desta mensagem que não continham texto foram removidas]



 

__ Informação do NOD32 IMON 2997 (20080403) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Som

2008-04-02 Por tôpico Claudio Marconi
Esqueci de mencionar, qualquer duvida que tiver quanto ao MMTools pode me
falar.
Se quiser alguma coisa mais "pé duro" pode ser feito tb usando DirectShow,
onde posso dar uma ajuda tb,
se precisar.


Em 02/04/08, BandaLemuel <[EMAIL PROTECTED]> escreveu:
>
>O ACS eu testeiaki, mas não estou conseguindo fazer o que preciso
> tipo eu preciso pegar o que esta falando no microfone do PC e colocar em um
> gráfico , como se fosse um gauge, quanto mais auto a pessoa fala ele vai
> enchendo o gauge tipo aqueles programas que gravam sons
>
> mas mesmo vlw pela atenção
> Wesley
>
> From: Ricardo César Cardoso
> Sent: Wednesday, April 02, 2008 10:07 AM
> To: delphi-br@yahoogrupos.com.br 
> Subject: Re: [delphi-br] Som
>
> Nunca usei, mas já ouvi falar bem do "Audio Component Suite". Dá uma
> vasculhada no torry.net que vc acha ele facim, facim.
>
> O melhor é que é free e vem com os fontes.
>
> Atte,
> Ricardo.
>
> BandaLemuel <[EMAIL PROTECTED] >
> escreveu: Lista
>
> Me desculpe mas ja procurei no google mas não achei nada, alguem sabe como
> manipular arquivo wav .. por exemplo pegar a quantidade de bits de som
> etc... ??? e como faço para saber se a pessoa esta falando no microfone do
> PCé possível saber isso ???
>
> qualquer ajuda é bem vinda vlw
>
> Wesley
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> _
>
> -
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __ Informação do NOD32 IMON 2995 (20080402) __
>
> Esta mensagem foi verificada pelo NOD32 sistema antivírus
> http://www.eset.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Som

2008-04-02 Por tôpico Claudio Marconi
de uma olhada no MMTools, é uma colecao de componentes que vc faz o que
quizer com audio.
tudo isso que vc falou e mais alguma coisa
Em 02/04/08, BandaLemuel <[EMAIL PROTECTED]> escreveu:
>
>O ACS eu testeiaki, mas não estou conseguindo fazer o que preciso
> tipo eu preciso pegar o que esta falando no microfone do PC e colocar em um
> gráfico , como se fosse um gauge, quanto mais auto a pessoa fala ele vai
> enchendo o gauge tipo aqueles programas que gravam sons
>
> mas mesmo vlw pela atenção
> Wesley
>
> From: Ricardo César Cardoso
> Sent: Wednesday, April 02, 2008 10:07 AM
> To: delphi-br@yahoogrupos.com.br 
> Subject: Re: [delphi-br] Som
>
> Nunca usei, mas já ouvi falar bem do "Audio Component Suite". Dá uma
> vasculhada no torry.net que vc acha ele facim, facim.
>
> O melhor é que é free e vem com os fontes.
>
> Atte,
> Ricardo.
>
> BandaLemuel <[EMAIL PROTECTED] >
> escreveu: Lista
>
> Me desculpe mas ja procurei no google mas não achei nada, alguem sabe como
> manipular arquivo wav .. por exemplo pegar a quantidade de bits de som
> etc... ??? e como faço para saber se a pessoa esta falando no microfone do
> PCé possível saber isso ???
>
> qualquer ajuda é bem vinda vlw
>
> Wesley
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> _
>
> -
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __ Informação do NOD32 IMON 2995 (20080402) __
>
> Esta mensagem foi verificada pelo NOD32 sistema antivírus
> http://www.eset.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Som

2008-04-02 Por tôpico BandaLemuel
O ACS eu testeiaki, mas não estou conseguindo fazer o que preciso 
tipo eu preciso pegar o que esta falando no microfone do PC e colocar em um 
gráfico , como se fosse um gauge, quanto mais auto a pessoa fala ele vai 
enchendo o gauge tipo aqueles programas que gravam sons 

mas mesmo vlw pela atenção
Wesley


From: Ricardo César Cardoso 
Sent: Wednesday, April 02, 2008 10:07 AM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: [delphi-br] Som


Nunca usei, mas já ouvi falar bem do "Audio Component Suite". Dá uma vasculhada 
no torry.net que vc acha ele facim, facim.

O melhor é que é free e vem com os fontes.

Atte,
Ricardo.

BandaLemuel <[EMAIL PROTECTED]> escreveu: Lista

Me desculpe mas ja procurei no google mas não achei nada, alguem sabe como 
manipular arquivo wav .. por exemplo pegar a quantidade de bits de som etc... 
??? e como faço para saber se a pessoa esta falando no microfone do PCé 
possível saber isso ???

qualquer ajuda é bem vinda vlw

Wesley

[As partes desta mensagem que não continham texto foram removidas]



_

-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]



 

__ Informação do NOD32 IMON 2995 (20080402) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br


[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Som

2008-04-02 Por tôpico Gerhard Roger Nack
Procure por MMTools.

 

Obs: Essa Suite de componentes é paga.

 

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de 
BandaLemuel
Enviada em: quarta-feira, 2 de abril de 2008 09:45
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Som

 

Lista

Me desculpe mas ja procurei no google mas não achei nada, alguem sabe como 
manipular arquivo wav .. por exemplo pegar a quantidade de bits de som etc... 
??? e como faço para saber se a pessoa esta falando no microfone do PCé 
possível saber isso ???

qualquer ajuda é bem vinda vlw

Wesley

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Som

2008-04-02 Por tôpico Ricardo César Cardoso
Nunca usei, mas já ouvi falar bem do "Audio Component Suite". Dá uma vasculhada 
no torry.net que vc acha ele facim, facim.

O melhor é que é free e vem com os fontes.

Atte,
Ricardo.

BandaLemuel <[EMAIL PROTECTED]> escreveu:   
  Lista
 
 Me desculpe mas ja procurei no google mas não achei nada, alguem sabe como 
manipular arquivo wav .. por exemplo pegar a quantidade de bits de som etc... 
??? e como faço para saber se a pessoa esta falando no microfone do PCé 
possível saber isso ???
 
 qualquer ajuda é bem vinda vlw
 
 Wesley
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 _



   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Som

2008-04-02 Por tôpico BandaLemuel
Lista

Me desculpe mas ja procurei no google mas não achei nada, alguem sabe como 
manipular arquivo wav .. por exemplo pegar a quantidade de bits de som etc... 
??? e como faço para saber se a pessoa esta falando no microfone do PCé 
possível saber isso ???

qualquer ajuda é bem vinda vlw

Wesley

[As partes desta mensagem que não continham texto foram removidas]



RE: [delphi-br] som interno no pc (pc speaker)

2006-10-10 Por tôpico Rubem Nascimento da Rocha

(QUEM PROCURA, ACHA!)

1) Dica sobre hyperlink num RichEdit:
http://www.swissdelphicenter.ch/en/showcode.php?id=1505

2) Dica sobre som pelo speaker do PC:
http://www.swissdelphicenter.ch/en/showcode.php?id=323

Sds.

>From: KLEITON <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: [delphi-br] som interno no pc (pc speaker)
>Date: Tue, 10 Oct 2006 21:39:54 + (GMT)
>
>ola galera!...blz?
>
>   bom, ninguem descobriu ou ñ quis responder como cria link num memo ou 
>richedit, mas será q alguem sabe como toca som no alto falante interno do 
>pc? pra delphi 2005 e windows xp.
>   vlw
>
>   t++
>
>
>
>   Kleiton B. Santos
>
>
>-
>  Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu 
>celular. Registre seu aparelho agora!
>
>[As partes desta mensagem que não continham texto foram removidas]
>

_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




[delphi-br] som interno no pc (pc speaker)

2006-10-10 Por tôpico KLEITON
ola galera!...blz?
   
  bom, ninguem descobriu ou ñ quis responder como cria link num memo ou 
richedit, mas será q alguem sabe como toca som no alto falante interno do pc? 
pra delphi 2005 e windows xp.
  vlw
   
  t++



  Kleiton B. Santos


-
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
Registre seu aparelho agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 



Re: [delphi-br] SOM SPEAKER

2006-07-20 Por tôpico Jefferson Delphi
Excelente dica!
  - Original Message - 
  From: Rubem Nascimento da Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 18, 2006 11:35 PM
  Subject: Re: [delphi-br] SOM SPEAKER


  Play sound through the PC Speaker
  http://www.swissdelphicenter.ch/en/showcode.php?id=323

  Sds.


  >From: "Luiz Escobar" <[EMAIL PROTECTED]>
  >Reply-To: delphi-br@yahoogrupos.com.br
  >To: 
  >Subject: Re: [delphi-br] SOM SPEAKER
  >Date: Tue, 18 Jul 2006 15:18:14 -0300
  >
  >musiquinha num sei não mas deve até ter... procura no google "som
  >speaker" "sound speaker" "play speaker" "wav speaker" e vai tentando
  >
  >até lá... vai usando:
  >
  >  Beep;
  >
  >ou...
  >
  >  Beep( nfrequencia, nduração );
  >
  >
  >Luiz Escobar
  >
  >
  >
  >
  >
  >- Original Message -----
  >From: Henrique Guidi
  >To: delphi-br@yahoogrupos.com.br
  >Sent: Tuesday, July 18, 2006 1:58 PM
  >Subject: [delphi-br] SOM SPEAKER
  >
  >
  >Alguem teria idéia de como fazer um som no speaker? Um beep seria
  >suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
  >speaker seria legal tb.
  >Eu preciso disso no Kylix, mas nem no Delphi estou achando.
  >
  >Vlw,
  >Guidi
  >
  >PS: A função "beep" era pra isso? //no meu WinXP não rolou
  >
  >
  >
  >

  _
  MSN Messenger: converse com os seus amigos online. 
  http://messenger.msn.com.br

   

[As partes desta mensagem que não continham texto foram removidas]






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] SOM SPEAKER

2006-07-19 Por tôpico Rubem Nascimento da Rocha

Mesmo que isso funcione, isso é só um beep!
Sds.

>From: Spadinha <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: Re: [delphi-br] SOM SPEAKER
>Date: Tue, 18 Jul 2006 17:12:27 -0300
>
>imprime o chr(7)
>as veiz funciona o kylix
>
>
>
>Em 18/07/06, Valfrid-Ly Silva Couto <[EMAIL PROTECTED]> escreveu:
> >
> > Cara, muitos gabinetes nem vem mais com o speaker e os que vem, muitos
> > caras não ligam o danado!!
> >
> > Aqui onde trabalho, os caras ligam o Speaker na placa de som, então, 
>mesmo
> > se você não tiver caixinha pode escutar as coisas numa boa!!
> >
> > Se fizerem o mesmo, é só tocar um midi/wav da forma tradicional!!!
> >
> > Henrique Guidi <[EMAIL PROTECTED]> escreveu: Alguem 
>teria
> > idéia de como fazer um som no speaker? Um beep seria
> >
> > suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
> > speaker seria legal tb.
> > Eu preciso disso no Kylix, mas nem no Delphi estou achando.
> >
> > Vlw,
> > Guidi
> >
> > PS: A função "beep" era pra isso? //no meu WinXP não rolou
> >
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> >
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > Valfrid-Ly Silva Couto
> > [EMAIL PROTECTED]
> > [EMAIL PROTECTED]
> > [EMAIL PROTECTED]
> > ICQ 15114646
> >
> > -
> > Yahoo! Search
> > Música para ver e ouvir: You're Beautiful, do James Blunt
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> >
>
>
>[As partes desta mensagem que não continham texto foram removidas]
>

_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] SOM SPEAKER

2006-07-19 Por tôpico Luiz Escobar
Valeu... eu não vou usar banco de dados... se for só essa diferença esta 
ótimo, o maximo são alguns arquvos TXT

O que quero e ver se com ele eu consigo tocar WAV e/ou MP3  ;-)

Luiz Escobar



- Original Message - 
From: Andre Mesquita
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, July 19, 2006 3:26 PM
Subject: Re: [delphi-br] SOM SPEAKER


a versão Free não acessa Banco de Dados e pode ser obtida no site da 
Borland.

É a versão 3.

Completo só pagando ou então "comprando" em ferramentas como o e-Mule.

[ ]'s,
  - Original Message - 
  From: Luiz Escobar
  To: delphi-br@yahoogrupos.com.br
  Sent: Wednesday, July 19, 2006 2:06 PM
  Subject: Re: [delphi-br] SOM SPEAKER



  onde consigo o kylix mais novo para baixar, o que seja FREE  ;-)

  Luiz Escobar



  - Original Message - 
  From: Henrique Guidi
  To: delphi-br@yahoogrupos.com.br
  Sent: Wednesday, July 19, 2006 11:51 AM
  Subject: Re: [delphi-br] SOM SPEAKER


  Vlw galera, todos os posts me ajudaram muito pena que não serviu :/
  o caso é que o programa em Kylix que precisava mandar o som pro speaker
  vai rodar como processo e não sei pq mas qndo roda como processo ele
  não manda o som pro speaker (como programa funciona ok). Estou tentando
  agora gerar um som normal mesmo... vou por caixa de som no PC-linux e
  tentar tocar um wav
  Daí cabe a pergunta:

  Alguem sabe como tocar um wav no KYLIX? vi que tem uma biblioteca
  chamada ALSAPAS mas o site esta off.
  Será que o velho USES MMSYSTEM e PLAYSOUND(); funciona pra KYLIX?

  se alguem tiver algo a acrescentar, mandaem ai.
  VLW,
  Guidi


  Rubem Nascimento da Rocha escreveu:

  > Play sound through the PC Speaker
  > http://www.swissdelphicenter.ch/en/showcode.php?id=323
  >
  > Sds.
  >
  >
  > >From: "Luiz Escobar" <[EMAIL PROTECTED]>
  > >Reply-To: delphi-br@yahoogrupos.com.br
  > >To: 
  > >Subject: Re: [delphi-br] SOM SPEAKER
  > >Date: Tue, 18 Jul 2006 15:18:14 -0300
  > >
  > >musiquinha num sei não mas deve até ter... procura no google "som
  > >speaker" "sound speaker" "play speaker" "wav speaker" e vai 
tentando
  > >
  > >até lá... vai usando:
  > >
  > >  Beep;
  > >
  > >ou...
  > >
  > >  Beep( nfrequencia, nduração );
  > >
  > >
  > >Luiz Escobar
  > >
  > >
  > >
  > >
  > >
  > >- Original Message -
  > >From: Henrique Guidi
  > >To: delphi-br@yahoogrupos.com.br
  > >Sent: Tuesday, July 18, 2006 1:58 PM
  > >Subject: [delphi-br] SOM SPEAKER
  > >
  > >
  > >Alguem teria idéia de como fazer um som no speaker? Um beep seria
  > >suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
  > >speaker seria legal tb.
  > >Eu preciso disso no Kylix, mas nem no Delphi estou achando.
  > >
  > >Vlw,
  > >Guidi
  > >
  > >PS: A função "beep" era pra isso? //no meu WinXP não rolou
  > >
  > >
  > >
  > >






[As partes desta mensagem que não continham texto foram removidas]

 



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] SOM SPEAKER

2006-07-19 Por tôpico Henrique Guidi
Eu gostaria de usar o Lazarus, mas ainda estão torcendo o nariz

Guidi
 PS: não vamos fugir tanto do assunto :) ainda não testei o MMSYSTEM no 
kylix mas acho que ele é feito pro windows e não vai funcionar.


Andre Mesquita escreveu:

> a versão Free não acessa Banco de Dados e pode ser obtida no site da 
> Borland.
>
> É a versão 3.
>
> Completo só pagando ou então "comprando" em ferramentas como o e-Mule.
>
> [ ]'s,
>   - Original Message -
>   From: Luiz Escobar
>   To: delphi-br@yahoogrupos.com.br
>   Sent: Wednesday, July 19, 2006 2:06 PM
>   Subject: Re: [delphi-br] SOM SPEAKER
>
>
>
>   onde consigo o kylix mais novo para baixar, o que seja FREE  ;-)
>
>   Luiz Escobar
>
>
>
>   - Original Message -
>   From: Henrique Guidi
>   To: delphi-br@yahoogrupos.com.br
>   Sent: Wednesday, July 19, 2006 11:51 AM
>   Subject: Re: [delphi-br] SOM SPEAKER
>
>
>   Vlw galera, todos os posts me ajudaram muito pena que não serviu :/
>   o caso é que o programa em Kylix que precisava mandar o som pro speaker
>   vai rodar como processo e não sei pq mas qndo roda como processo ele
>   não manda o som pro speaker (como programa funciona ok). Estou tentando
>   agora gerar um som normal mesmo... vou por caixa de som no PC-linux e
>   tentar tocar um wav
>   Daí cabe a pergunta:
>
>   Alguem sabe como tocar um wav no KYLIX? vi que tem uma biblioteca
>   chamada ALSAPAS mas o site esta off.
>   Será que o velho USES MMSYSTEM e PLAYSOUND(); funciona pra KYLIX?
>
>   se alguem tiver algo a acrescentar, mandaem ai.
>   VLW,
>   Guidi
>
>
>   Rubem Nascimento da Rocha escreveu:
>
>   > Play sound through the PC Speaker
>   > http://www.swissdelphicenter.ch/en/showcode.php?id=323
>   >
>   > Sds.
>   >
>   >
>   > >From: "Luiz Escobar" <[EMAIL PROTECTED]>
>   > >Reply-To: delphi-br@yahoogrupos.com.br
>   > >To: 
>   > >Subject: Re: [delphi-br] SOM SPEAKER
>   > >Date: Tue, 18 Jul 2006 15:18:14 -0300
>   > >
>   > >musiquinha num sei não mas deve até ter... procura no google "som
>   > >speaker" "sound speaker" "play speaker" "wav speaker" e vai 
> tentando
>   > >
>   > >até lá... vai usando:
>   > >
>   > >  Beep;
>   > >
>   > >ou...
>   > >
>   > >  Beep( nfrequencia, nduração );
>   > >
>   > >
>   > >Luiz Escobar
>   > >
>   > >
>   > >
>   > >
>   > >
>   > >- Original Message -
>   > >From: Henrique Guidi
>   > >To: delphi-br@yahoogrupos.com.br
>   > >Sent: Tuesday, July 18, 2006 1:58 PM
>   > >Subject: [delphi-br] SOM SPEAKER
>   > >
>   > >
>   > >Alguem teria idéia de como fazer um som no speaker? Um beep seria
>   > >suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
>   > >speaker seria legal tb.
>   > >Eu preciso disso no Kylix, mas nem no Delphi estou achando.
>   > >
>   > >Vlw,
>   > >Guidi
>   > >
>   > >PS: A função "beep" era pra isso? //no meu WinXP não rolou
>   > >
>   > >
>   > >
>   > >



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] SOM SPEAKER

2006-07-19 Por tôpico Andre Mesquita
a versão Free não acessa Banco de Dados e pode ser obtida no site da Borland.

É a versão 3.

Completo só pagando ou então "comprando" em ferramentas como o e-Mule.

[ ]'s,
  - Original Message - 
  From: Luiz Escobar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, July 19, 2006 2:06 PM
  Subject: Re: [delphi-br] SOM SPEAKER



  onde consigo o kylix mais novo para baixar, o que seja FREE  ;-)

  Luiz Escobar



  - Original Message - 
  From: Henrique Guidi
  To: delphi-br@yahoogrupos.com.br
  Sent: Wednesday, July 19, 2006 11:51 AM
  Subject: Re: [delphi-br] SOM SPEAKER


  Vlw galera, todos os posts me ajudaram muito pena que não serviu :/
  o caso é que o programa em Kylix que precisava mandar o som pro speaker
  vai rodar como processo e não sei pq mas qndo roda como processo ele
  não manda o som pro speaker (como programa funciona ok). Estou tentando
  agora gerar um som normal mesmo... vou por caixa de som no PC-linux e
  tentar tocar um wav
  Daí cabe a pergunta:

  Alguem sabe como tocar um wav no KYLIX? vi que tem uma biblioteca
  chamada ALSAPAS mas o site esta off.
  Será que o velho USES MMSYSTEM e PLAYSOUND(); funciona pra KYLIX?

  se alguem tiver algo a acrescentar, mandaem ai.
  VLW,
  Guidi


  Rubem Nascimento da Rocha escreveu:

  > Play sound through the PC Speaker
  > http://www.swissdelphicenter.ch/en/showcode.php?id=323
  >
  > Sds.
  >
  >
  > >From: "Luiz Escobar" <[EMAIL PROTECTED]>
  > >Reply-To: delphi-br@yahoogrupos.com.br
  > >To: 
  > >Subject: Re: [delphi-br] SOM SPEAKER
  > >Date: Tue, 18 Jul 2006 15:18:14 -0300
  > >
  > >musiquinha num sei não mas deve até ter... procura no google "som
  > >speaker" "sound speaker" "play speaker" "wav speaker" e vai tentando
  > >
  > >até lá... vai usando:
  > >
  > >  Beep;
  > >
  > >ou...
  > >
  > >  Beep( nfrequencia, nduração );
  > >
  > >
  > >Luiz Escobar
  > >
  > >
  > >
  > >
  > >
  > >- Original Message -
  > >From: Henrique Guidi
  > >To: delphi-br@yahoogrupos.com.br
  > >Sent: Tuesday, July 18, 2006 1:58 PM
  > >Subject: [delphi-br] SOM SPEAKER
  > >
  > >
  > >Alguem teria idéia de como fazer um som no speaker? Um beep seria
  > >suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
  > >speaker seria legal tb.
  > >Eu preciso disso no Kylix, mas nem no Delphi estou achando.
  > >
  > >Vlw,
  > >Guidi
  > >
  > >PS: A função "beep" era pra isso? //no meu WinXP não rolou
  > >
  > >
  > >
  > >




   

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] SOM SPEAKER

2006-07-19 Por tôpico Luiz Escobar

onde consigo o kylix mais novo para baixar, o que seja FREE  ;-)

Luiz Escobar



- Original Message - 
From: Henrique Guidi
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, July 19, 2006 11:51 AM
Subject: Re: [delphi-br] SOM SPEAKER


Vlw galera, todos os posts me ajudaram muito pena que não serviu :/
o caso é que o programa em Kylix que precisava mandar o som pro speaker
vai rodar como processo e não sei pq mas qndo roda como processo ele
não manda o som pro speaker (como programa funciona ok). Estou tentando
agora gerar um som normal mesmo... vou por caixa de som no PC-linux e
tentar tocar um wav
Daí cabe a pergunta:

Alguem sabe como tocar um wav no KYLIX? vi que tem uma biblioteca
chamada ALSAPAS mas o site esta off.
Será que o velho USES MMSYSTEM e PLAYSOUND(); funciona pra KYLIX?

se alguem tiver algo a acrescentar, mandaem ai.
VLW,
Guidi


Rubem Nascimento da Rocha escreveu:

> Play sound through the PC Speaker
> http://www.swissdelphicenter.ch/en/showcode.php?id=323
>
> Sds.
>
>
> >From: "Luiz Escobar" <[EMAIL PROTECTED]>
> >Reply-To: delphi-br@yahoogrupos.com.br
> >To: 
> >Subject: Re: [delphi-br] SOM SPEAKER
> >Date: Tue, 18 Jul 2006 15:18:14 -0300
> >
> >musiquinha num sei não mas deve até ter... procura no google "som
> >speaker" "sound speaker" "play speaker" "wav speaker" e vai tentando
> >
> >até lá... vai usando:
> >
> >  Beep;
> >
> >ou...
> >
> >  Beep( nfrequencia, nduração );
> >
> >
> >Luiz Escobar
> >
> >
> >
> >
> >
> >- Original Message -
> >From: Henrique Guidi
> >To: delphi-br@yahoogrupos.com.br
> >Sent: Tuesday, July 18, 2006 1:58 PM
> >Subject: [delphi-br] SOM SPEAKER
> >
> >
> >Alguem teria idéia de como fazer um som no speaker? Um beep seria
> >suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
> >speaker seria legal tb.
> >Eu preciso disso no Kylix, mas nem no Delphi estou achando.
> >
> >Vlw,
> >Guidi
> >
> >PS: A função "beep" era pra isso? //no meu WinXP não rolou
> >
> >
> >
> >


 



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] SOM SPEAKER

2006-07-19 Por tôpico Andre Mesquita
Procure pelo Driver PC Speaker. Aí vc poderá usar o MMSystem para tocar o som 
(WAV, MP3, etc).

http://support.microsoft.com/kb/q138857/

[ ]'s
  - Original Message - 
  From: Luiz Escobar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, July 19, 2006 1:26 PM
  Subject: Re: [delphi-br] SOM SPEAKER


  MAS, derepente o amigo não tem e não quer ou simplesmente o chefe não quer 
  comprar placa de som
  Sabe como é né

  Luiz Escobar


  - Original Message - 
  From: Valfrid-Ly Silva Couto
  To: delphi-br@yahoogrupos.com.br
  Sent: Tuesday, July 18, 2006 4:35 PM
  Subject: Re: [delphi-br] SOM SPEAKER


  Cara, muitos gabinetes nem vem mais com o speaker e os que vem, muitos caras 
  não ligam o danado!!

  Aqui onde trabalho, os caras ligam o Speaker na placa de som, então, mesmo 
  se você não tiver caixinha pode escutar as coisas numa boa!!

  Se fizerem o mesmo, é só tocar um midi/wav da forma tradicional!!!

  Henrique Guidi <[EMAIL PROTECTED]> escreveu: Alguem teria 
  idéia de como fazer um som no speaker? Um beep seria
  suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
  speaker seria legal tb.
  Eu preciso disso no Kylix, mas nem no Delphi estou achando.

  Vlw,
  Guidi

  PS: A função "beep" era pra isso? //no meu WinXP não rolou




  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



  Links do Yahoo! Grupos










  Valfrid-Ly Silva Couto
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  ICQ 15114646

  -
  Yahoo! Search
  Música para ver e ouvir: You're Beautiful, do James Blunt

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] SOM SPEAKER

2006-07-19 Por tôpico Luiz Escobar
MAS, derepente o amigo não tem e não quer ou simplesmente o chefe não quer 
comprar placa de som
Sabe como é né

Luiz Escobar


- Original Message - 
From: Valfrid-Ly Silva Couto
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, July 18, 2006 4:35 PM
Subject: Re: [delphi-br] SOM SPEAKER


Cara, muitos gabinetes nem vem mais com o speaker e os que vem, muitos caras 
não ligam o danado!!

Aqui onde trabalho, os caras ligam o Speaker na placa de som, então, mesmo 
se você não tiver caixinha pode escutar as coisas numa boa!!

Se fizerem o mesmo, é só tocar um midi/wav da forma tradicional!!!

Henrique Guidi <[EMAIL PROTECTED]> escreveu: Alguem teria 
idéia de como fazer um som no speaker? Um beep seria
suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
speaker seria legal tb.
Eu preciso disso no Kylix, mas nem no Delphi estou achando.

Vlw,
Guidi

PS: A função "beep" era pra isso? //no meu WinXP não rolou




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos










Valfrid-Ly Silva Couto
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 15114646

-
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt

[As partes desta mensagem que não continham texto foram removidas]

 



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] SOM SPEAKER

2006-07-19 Por tôpico Henrique Guidi
Vlw galera, todos os posts me ajudaram muito pena que não serviu :/
o caso é que o programa em Kylix que precisava mandar o som pro speaker 
vai rodar como processo e não sei pq mas qndo roda como processo ele 
não manda o som pro speaker (como programa funciona ok). Estou tentando 
agora gerar um som normal mesmo... vou por caixa de som no PC-linux e 
tentar tocar um wav
Daí cabe a pergunta:

Alguem sabe como tocar um wav no KYLIX? vi que tem uma biblioteca 
chamada ALSAPAS mas o site esta off.
Será que o velho USES MMSYSTEM e PLAYSOUND(); funciona pra KYLIX?

se alguem tiver algo a acrescentar, mandaem ai.
VLW,
Guidi


Rubem Nascimento da Rocha escreveu:

> Play sound through the PC Speaker
> http://www.swissdelphicenter.ch/en/showcode.php?id=323
>
> Sds.
>
>
> >From: "Luiz Escobar" <[EMAIL PROTECTED]>
> >Reply-To: delphi-br@yahoogrupos.com.br
> >To: 
> >Subject: Re: [delphi-br] SOM SPEAKER
> >Date: Tue, 18 Jul 2006 15:18:14 -0300
> >
> >musiquinha num sei não mas deve até ter... procura no google "som
> >speaker" "sound speaker" "play speaker" "wav speaker" e vai tentando
> >
> >até lá... vai usando:
> >
> >  Beep;
> >
> >ou...
> >
> >  Beep( nfrequencia, nduração );
> >
> >
> >Luiz Escobar
> >
> >
> >
> >
> >
> >- Original Message -
> >From: Henrique Guidi
> >To: delphi-br@yahoogrupos.com.br
> >Sent: Tuesday, July 18, 2006 1:58 PM
> >Subject: [delphi-br] SOM SPEAKER
> >
> >
> >Alguem teria idéia de como fazer um som no speaker? Um beep seria
> >suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
> >speaker seria legal tb.
> >Eu preciso disso no Kylix, mas nem no Delphi estou achando.
> >
> >Vlw,
> >Guidi
> >
> >PS: A função "beep" era pra isso? //no meu WinXP não rolou
> >
> >
> >
> >




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] SOM SPEAKER

2006-07-18 Por tôpico Rubem Nascimento da Rocha
Play sound through the PC Speaker
http://www.swissdelphicenter.ch/en/showcode.php?id=323

Sds.


>From: "Luiz Escobar" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: 
>Subject: Re: [delphi-br] SOM SPEAKER
>Date: Tue, 18 Jul 2006 15:18:14 -0300
>
>musiquinha num sei não mas deve até ter... procura no google "som
>speaker" "sound speaker" "play speaker" "wav speaker" e vai tentando
>
>até lá... vai usando:
>
>  Beep;
>
>ou...
>
>  Beep( nfrequencia, nduração );
>
>
>Luiz Escobar
>
>
>
>
>
>----- Original Message -
>From: Henrique Guidi
>To: delphi-br@yahoogrupos.com.br
>Sent: Tuesday, July 18, 2006 1:58 PM
>Subject: [delphi-br] SOM SPEAKER
>
>
>Alguem teria idéia de como fazer um som no speaker? Um beep seria
>suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
>speaker seria legal tb.
>Eu preciso disso no Kylix, mas nem no Delphi estou achando.
>
>Vlw,
>Guidi
>
>PS: A função "beep" era pra isso? //no meu WinXP não rolou
>
>
>
>

_
MSN Messenger: converse com os seus amigos online. 
http://messenger.msn.com.br



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] SOM SPEAKER

2006-07-18 Por tôpico Spadinha
imprime o chr(7)
as veiz funciona o kylix



Em 18/07/06, Valfrid-Ly Silva Couto <[EMAIL PROTECTED]> escreveu:
>
> Cara, muitos gabinetes nem vem mais com o speaker e os que vem, muitos
> caras não ligam o danado!!
>
> Aqui onde trabalho, os caras ligam o Speaker na placa de som, então, mesmo
> se você não tiver caixinha pode escutar as coisas numa boa!!
>
> Se fizerem o mesmo, é só tocar um midi/wav da forma tradicional!!!
>
> Henrique Guidi <[EMAIL PROTECTED]> escreveu: Alguem teria
> idéia de como fazer um som no speaker? Um beep seria
>
> suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
> speaker seria legal tb.
> Eu preciso disso no Kylix, mas nem no Delphi estou achando.
>
> Vlw,
> Guidi
>
> PS: A função "beep" era pra isso? //no meu WinXP não rolou
>
>
>
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
> Valfrid-Ly Silva Couto
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
> ICQ 15114646
>
> -
> Yahoo! Search
> Música para ver e ouvir: You're Beautiful, do James Blunt
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> 
>


[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] SOM SPEAKER

2006-07-18 Por tôpico Valfrid-Ly Silva Couto
Cara, muitos gabinetes nem vem mais com o speaker e os que vem, muitos caras 
não ligam o danado!!

Aqui onde trabalho, os caras ligam o Speaker na placa de som, então, mesmo se 
você não tiver caixinha pode escutar as coisas numa boa!!

Se fizerem o mesmo, é só tocar um midi/wav da forma tradicional!!!

Henrique Guidi <[EMAIL PROTECTED]> escreveu: Alguem teria idéia de como fazer 
um som no speaker? Um beep seria 
suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no 
speaker seria legal tb.
Eu preciso disso no Kylix, mas nem no Delphi estou achando.

Vlw,
Guidi

PS: A função "beep" era pra isso? //no meu WinXP não rolou




-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >


 
Links do Yahoo! Grupos




 





Valfrid-Ly Silva Couto
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 15114646

-
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] SOM SPEAKER

2006-07-18 Por tôpico Luiz Escobar
musiquinha num sei não mas deve até ter... procura no google "som 
speaker" "sound speaker" "play speaker" "wav speaker" e vai tentando

até lá... vai usando:

 Beep;

ou...

 Beep( nfrequencia, nduração );


Luiz Escobar





- Original Message - 
From: Henrique Guidi
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, July 18, 2006 1:58 PM
Subject: [delphi-br] SOM SPEAKER


Alguem teria idéia de como fazer um som no speaker? Um beep seria
suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
speaker seria legal tb.
Eu preciso disso no Kylix, mas nem no Delphi estou achando.

Vlw,
Guidi

PS: A função "beep" era pra isso? //no meu WinXP não rolou


 



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] SOM SPEAKER

2006-07-18 Por tôpico Lenilson Amaral
Neste site ( 
http://www.vclcomponents.com/Delphi/Sound___MIDI/bleepint_zip-info.html) tem 
umas units q permitem até q vc toque música no autofalante da cpu
Aqui ensina como usar  http://delphi.icm.edu.pl/ftp/d10free/bleepint.htm

- Original Message - 
From: "Henrique Guidi" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, July 18, 2006 1:58 PM
Subject: [delphi-br] SOM SPEAKER


> Alguem teria idéia de como fazer um som no speaker? Um beep seria
> suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
> speaker seria legal tb.
> Eu preciso disso no Kylix, mas nem no Delphi estou achando.
>
> Vlw,
> Guidi
>
> PS: A função "beep" era pra isso? //no meu WinXP não rolou
> 



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] SOM SPEAKER

2006-07-18 Por tôpico Henrique Guidi
Alguem teria idéia de como fazer um som no speaker? Um beep seria 
suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no 
speaker seria legal tb.
Eu preciso disso no Kylix, mas nem no Delphi estou achando.

Vlw,
Guidi

PS: A função "beep" era pra isso? //no meu WinXP não rolou




-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] Som usando campos blob

2005-10-28 Por tôpico Suporte
Na verdade Luis, o FireBirde pode armazenar seus sons e ou até vídeos numa boa, 
segunda as especificações, o FireBird pode trabalhar com um arquivo de banco 
dedados de 10 TERABYTES, será praticamente a mesma velocidade de que se 
trabalhasse com um de 10 MegaBytes.

Att.

Ricardo Berti
  - Original Message - 
  From: Luis Lopes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, October 27, 2005 5:27 PM
  Subject: Re: [delphi-br] Som usando campos blob


  Valeu Sérgio!

  No ano passado, na empresa onde eu trabalhava, tive
  que fazer essa opção, para trabalhar com imagem e
  optei por file system.
  Aqui, onde estou agora, optaram por salvar em blob...
  fui contra, mas...

  []´s

  Luis Alberto.

  --- SERGIO RICARDO ANDRADE DE CARVALHO
  <[EMAIL PROTECTED]> escreveu:

  > Caro Luis,
  > 
  > Pense bem se voce deve realmente gravar estes
  > arquivos de som dentro dos campos blobs, se não
  > tiver outra opção procure compactar os arquivos
  > antes de gravá-los, e antes de reproduzi-los
  > descompacte-os. 
  > Não é recomendada a gravação de arquivos .AVI dentro
  > de blobs, principalmente se os arquivos forem
  > grandes.
  > O ideal é que voce grave em uma tabela do banco, o
  > endereço dos arquivos .AVI que serão gravados em um
  > determinado file system, que pode ser um diretório
  > do windows server, de um storage, do samba (linux),
  > netware (novell), etc.
  > Em 2002 tive de escolher entre em gravar arquivos
  > dos tipos: .MP3, .DOC, .XLS, .PDF, etc em campos
  > Blob ou em File System, e hoje que tenho por volta
  > 12.000.000 de registros no Interbase (o GDB está
  > hoje com 6.7 Gb) dou graças a Deus de ter escolhido
  > o File System ao invés do blob, voce imagina o
  > tamanho que o GDB estaria hoje se a escolha fosse o
  > Blob ?
  > Tem um exemplo em
  > http://bdn.borland.com/article/0,1410,25364,00.html
  > que funciona legal.
  > 
  > 
  > Atenciosamente,
  > 
  > Sérgio Ricardo Andrade de Carvalho
  >  Divisão de Sistemas Administrativos
  >[EMAIL PROTECTED] - (11) 3012-1024  
  >  http://www.trf3.gov.br 
  >  
  > 
  > 
  > >>> [EMAIL PROTECTED] 10/27/05 10:51 am
  > >>>
  > Pessoal,
  > 
  > Estou precisando trabalhar com som, na minha
  > aplicação, que será armazenado no banco. Para isso,
  > estou usando campos blob. Como não tinha a menor
  > idéia
  > de como fazê-lo, perguntei ao nosso amigo google e
  > ele
  > me respondeu com o código logo abaixo.
  > O problema eh q tá dando o erro 'Invalid class
  > typecast' (na linha indicada no código) e eu não tô
  > conseguindo resolver.
  > Alguém pode me dar uma força?
  > 
  > Agradeço antecipadamente.
  > 
  > []s
  > Luis Alberto
  > 
  > Question and Answer Database
  > 
  > FAQ1181D.txt   Storing/Playing an .AVI file in a
  > database
  > Category   :Database/VCL
  > Platform:All
  > Product:All 32 bit  
  > 
  > Question:
  > How can I store an AVI file in a database and then
  > play AVI 
  > files?
  > 
  > Answer:
  > AVI files can be stored in BLOB (binary large
  > object)
  > fields. 
  > The easiest way to play an AVI file stored in a BLOB
  > is to write
  > the BLOB data to a temporary file, then let the
  > mulimedia player
  > play the file. The following example demonstrates
  > how
  > to store 
  > an AVI file to a BLOB field, and also play the AVI
  > file from the
  > BLOB field.
  > 
  > Example:
  > 
  > var
  >   FileName : string;
  > 
  > {This function gets a temporary file name form the
  > system}
  > function GetTemporaryFileName : string;
  > {$IFNDEF WIN32}
  >   const MAX_PATH = 144;
  > {$ENDIF}
  > var
  > {$IFDEF WIN32}
  >   lpPathBuffer : PChar;
  > {$ENDIF}
  >   lpbuffer : PChar;
  > begin
  > {Get the file name buffer}
  >   GetMem(lpBuffer, MAX_PATH);
  > {$IFDEF WIN32}
  > {Get the temp path buffer}
  >   GetMem(lpPathBuffer, MAX_PATH);
  > {Get the temp path}
  >   GetTempPath(MAX_PATH, lpPathBuffer);
  > {Get the temp file name}
  >   GetTempFileName(lpPathBuffer,
  >   'tmp',
  >   0,
  >   lpBuffer);
  > {Free the temp path buffer}
  >   FreeMem(lpPathBuffer, MAX_PATH);
  > {$ELSE}
  > {Get the temp file name}
  >   GetTempFileName(GetTempDrive('C'),
  >   'tmp',
  >   0,
  >   lpBuffer);
  > {$ENDIF}
  > {Create a pascal string containg}
  > {the  temp file name and return it}
  >   result := StrPas(lpBuffer);
  > {Fre

Re: [delphi-br] Som usando campos blob

2005-10-27 Por tôpico Luis Lopes
Valeu Sérgio!

No ano passado, na empresa onde eu trabalhava, tive
que fazer essa opção, para trabalhar com imagem e
optei por file system.
Aqui, onde estou agora, optaram por salvar em blob...
fui contra, mas...

[]´s

Luis Alberto.

--- SERGIO RICARDO ANDRADE DE CARVALHO
<[EMAIL PROTECTED]> escreveu:

> Caro Luis,
> 
> Pense bem se voce deve realmente gravar estes
> arquivos de som dentro dos campos blobs, se não
> tiver outra opção procure compactar os arquivos
> antes de gravá-los, e antes de reproduzi-los
> descompacte-os. 
> Não é recomendada a gravação de arquivos .AVI dentro
> de blobs, principalmente se os arquivos forem
> grandes.
> O ideal é que voce grave em uma tabela do banco, o
> endereço dos arquivos .AVI que serão gravados em um
> determinado file system, que pode ser um diretório
> do windows server, de um storage, do samba (linux),
> netware (novell), etc.
> Em 2002 tive de escolher entre em gravar arquivos
> dos tipos: .MP3, .DOC, .XLS, .PDF, etc em campos
> Blob ou em File System, e hoje que tenho por volta
> 12.000.000 de registros no Interbase (o GDB está
> hoje com 6.7 Gb) dou graças a Deus de ter escolhido
> o File System ao invés do blob, voce imagina o
> tamanho que o GDB estaria hoje se a escolha fosse o
> Blob ?
> Tem um exemplo em
> http://bdn.borland.com/article/0,1410,25364,00.html
> que funciona legal.
> 
> 
> Atenciosamente,
> 
> Sérgio Ricardo Andrade de Carvalho
>  Divisão de Sistemas Administrativos
>[EMAIL PROTECTED] - (11) 3012-1024  
>  http://www.trf3.gov.br 
>  
> 
> 
> >>> [EMAIL PROTECTED] 10/27/05 10:51 am
> >>>
> Pessoal,
> 
> Estou precisando trabalhar com som, na minha
> aplicação, que será armazenado no banco. Para isso,
> estou usando campos blob. Como não tinha a menor
> idéia
> de como fazê-lo, perguntei ao nosso amigo google e
> ele
> me respondeu com o código logo abaixo.
> O problema eh q tá dando o erro 'Invalid class
> typecast' (na linha indicada no código) e eu não tô
> conseguindo resolver.
> Alguém pode me dar uma força?
> 
> Agradeço antecipadamente.
> 
> []s
> Luis Alberto
> 
> Question and Answer Database
> 
> FAQ1181D.txt   Storing/Playing an .AVI file in a
> database
> Category   :Database/VCL
> Platform:All
> Product:All 32 bit  
> 
> Question:
> How can I store an AVI file in a database and then
> play AVI 
> files?
> 
> Answer:
> AVI files can be stored in BLOB (binary large
> object)
> fields. 
> The easiest way to play an AVI file stored in a BLOB
> is to write
> the BLOB data to a temporary file, then let the
> mulimedia player
> play the file. The following example demonstrates
> how
> to store 
> an AVI file to a BLOB field, and also play the AVI
> file from the
> BLOB field.
> 
> Example:
> 
> var
>   FileName : string;
> 
> {This function gets a temporary file name form the
> system}
> function GetTemporaryFileName : string;
> {$IFNDEF WIN32}
>   const MAX_PATH = 144;
> {$ENDIF}
> var
> {$IFDEF WIN32}
>   lpPathBuffer : PChar;
> {$ENDIF}
>   lpbuffer : PChar;
> begin
> {Get the file name buffer}
>   GetMem(lpBuffer, MAX_PATH);
> {$IFDEF WIN32}
> {Get the temp path buffer}
>   GetMem(lpPathBuffer, MAX_PATH);
> {Get the temp path}
>   GetTempPath(MAX_PATH, lpPathBuffer);
> {Get the temp file name}
>   GetTempFileName(lpPathBuffer,
>   'tmp',
>   0,
>   lpBuffer);
> {Free the temp path buffer}
>   FreeMem(lpPathBuffer, MAX_PATH);
> {$ELSE}
> {Get the temp file name}
>   GetTempFileName(GetTempDrive('C'),
>   'tmp',
>   0,
>   lpBuffer);
> {$ENDIF}
> {Create a pascal string containg}
> {the  temp file name and return it}
>   result := StrPas(lpBuffer);
> {Free the file name buffer}
>   FreeMem(lpBuffer, MAX_PATH);
> end;
> 
> {Read a AVI file into a blob field}
> procedure TForm1.Button1Click(Sender: TObject);
> var
>   FileStream: TFileStream; {to load the avi file}
>   BlobStream: TBlobStream; {to save to the blob}
> begin
> {Allow the button to repaint}
>   Application.ProcessMessages;
> {Turn off the buttons}
>   Button1.Enabled := false;
>   Button2.Enabled := false;
> {Assign the avi file name to read}
>   FileStream := TFileStream.Create(
>
>
'C:\PROGRA~1\BORLAND\DELPHI~1\DEMOS\COOLSTUF\COOL.AVI',
> fmOpenRead);
>   Table1.Edit;
> {Create a BlobStream for the TField Table1AVI}
>   BlobStream := TBlobStream.Create(Table1AVI,
> bmReadWrite); <- erro nesta linha (uso
> query em vez de table)
> {Seek to the Beginning of the stream}
>   BlobStream.Seek(0, soFromBeginning);
> {Delete any data that may be there}
>   BlobStream.Truncate;
> {Copy from the FileStream to the BlobStream}
>   BlobStream.CopyFrom(FileStream, FileStream.Size);
> {Free the streams}
>   FileStream.Free;
>   BlobStream.Free;
> {Post the record}
>   Table1.Post;
> {Enable the buttons}
>   Button1.Enabled := true;
>   Button2.Enabled := true;
> end;
> 

Re: [delphi-br] Som usando campos blob

2005-10-27 Por tôpico SERGIO RICARDO ANDRADE DE CARVALHO
Caro Luis,

Pense bem se voce deve realmente gravar estes arquivos de som dentro dos campos 
blobs, se não tiver outra opção procure compactar os arquivos antes de 
gravá-los, e antes de reproduzi-los descompacte-os. 
Não é recomendada a gravação de arquivos .AVI dentro de blobs, principalmente 
se os arquivos forem grandes.
O ideal é que voce grave em uma tabela do banco, o endereço dos arquivos .AVI 
que serão gravados em um determinado file system, que pode ser um diretório do 
windows server, de um storage, do samba (linux), netware (novell), etc.
Em 2002 tive de escolher entre em gravar arquivos dos tipos: .MP3, .DOC, .XLS, 
.PDF, etc em campos Blob ou em File System, e hoje que tenho por volta 
12.000.000 de registros no Interbase (o GDB está hoje com 6.7 Gb) dou graças a 
Deus de ter escolhido o File System ao invés do blob, voce imagina o tamanho 
que o GDB estaria hoje se a escolha fosse o Blob ?
Tem um exemplo em http://bdn.borland.com/article/0,1410,25364,00.html que 
funciona legal.


Atenciosamente,

Sérgio Ricardo Andrade de Carvalho
 Divisão de Sistemas Administrativos
   [EMAIL PROTECTED] - (11) 3012-1024  
 http://www.trf3.gov.br   


>>> [EMAIL PROTECTED] 10/27/05 10:51 am >>>
Pessoal,

Estou precisando trabalhar com som, na minha
aplicação, que será armazenado no banco. Para isso,
estou usando campos blob. Como não tinha a menor idéia
de como fazê-lo, perguntei ao nosso amigo google e ele
me respondeu com o código logo abaixo.
O problema eh q tá dando o erro 'Invalid class
typecast' (na linha indicada no código) e eu não tô
conseguindo resolver.
Alguém pode me dar uma força?

Agradeço antecipadamente.

[]s
Luis Alberto

Question and Answer Database

FAQ1181D.txt   Storing/Playing an .AVI file in a
database
Category   :Database/VCL
Platform:All
Product:All 32 bit  

Question:
How can I store an AVI file in a database and then
play AVI 
files?

Answer:
AVI files can be stored in BLOB (binary large object)
fields. 
The easiest way to play an AVI file stored in a BLOB
is to write
the BLOB data to a temporary file, then let the
mulimedia player
play the file. The following example demonstrates how
to store 
an AVI file to a BLOB field, and also play the AVI
file from the
BLOB field.

Example:

var
  FileName : string;

{This function gets a temporary file name form the
system}
function GetTemporaryFileName : string;
{$IFNDEF WIN32}
  const MAX_PATH = 144;
{$ENDIF}
var
{$IFDEF WIN32}
  lpPathBuffer : PChar;
{$ENDIF}
  lpbuffer : PChar;
begin
{Get the file name buffer}
  GetMem(lpBuffer, MAX_PATH);
{$IFDEF WIN32}
{Get the temp path buffer}
  GetMem(lpPathBuffer, MAX_PATH);
{Get the temp path}
  GetTempPath(MAX_PATH, lpPathBuffer);
{Get the temp file name}
  GetTempFileName(lpPathBuffer,
  'tmp',
  0,
  lpBuffer);
{Free the temp path buffer}
  FreeMem(lpPathBuffer, MAX_PATH);
{$ELSE}
{Get the temp file name}
  GetTempFileName(GetTempDrive('C'),
  'tmp',
  0,
  lpBuffer);
{$ENDIF}
{Create a pascal string containg}
{the  temp file name and return it}
  result := StrPas(lpBuffer);
{Free the file name buffer}
  FreeMem(lpBuffer, MAX_PATH);
end;

{Read a AVI file into a blob field}
procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TFileStream; {to load the avi file}
  BlobStream: TBlobStream; {to save to the blob}
begin
{Allow the button to repaint}
  Application.ProcessMessages;
{Turn off the buttons}
  Button1.Enabled := false;
  Button2.Enabled := false;
{Assign the avi file name to read}
  FileStream := TFileStream.Create(
   
'C:\PROGRA~1\BORLAND\DELPHI~1\DEMOS\COOLSTUF\COOL.AVI',
fmOpenRead);
  Table1.Edit;
{Create a BlobStream for the TField Table1AVI}
  BlobStream := TBlobStream.Create(Table1AVI,
bmReadWrite); <- erro nesta linha (uso
query em vez de table)
{Seek to the Beginning of the stream}
  BlobStream.Seek(0, soFromBeginning);
{Delete any data that may be there}
  BlobStream.Truncate;
{Copy from the FileStream to the BlobStream}
  BlobStream.CopyFrom(FileStream, FileStream.Size);
{Free the streams}
  FileStream.Free;
  BlobStream.Free;
{Post the record}
  Table1.Post;
{Enable the buttons}
  Button1.Enabled := true;
  Button2.Enabled := true;
end;

{Read an avi stored in a blob, and play it}
procedure TForm1.Button2Click(Sender: TObject);
var
  FileStream: TFileStream; {a temp file}
  BlobStream: TBlobStream; {the AVI Blob}
begin
{Create a blob stream for the AVI blob}
  BlobStream := TBlobStream.Create(Table1AVI, bmRead);
<-- erro nesta linha
  if BlobStream.Size = 0 then begin
   BlobStream.Free;
   Exit;
  end;
{Close the media player}
  MediaPlayer1.Close;
{Reset the file name}
  MediaPlayer1.FileName := '';
{Refresh the play window}
  MediaPlayer1.Display := Panel1;
  Panel1.Refresh;
{if we have a temp file then erase it}
  if FileName <> '' then

[delphi-br] Som usando campos blob

2005-10-27 Por tôpico Luis Lopes
Pessoal,

Estou precisando trabalhar com som, na minha
aplicação, que será armazenado no banco. Para isso,
estou usando campos blob. Como não tinha a menor idéia
de como fazê-lo, perguntei ao nosso amigo google e ele
me respondeu com o código logo abaixo.
O problema eh q tá dando o erro 'Invalid class
typecast' (na linha indicada no código) e eu não tô
conseguindo resolver.
Alguém pode me dar uma força?

Agradeço antecipadamente.

[]´s
Luis Alberto

Question and Answer Database

FAQ1181D.txt   Storing/Playing an .AVI file in a
database
Category   :Database/VCL
Platform:All
Product:All 32 bit  

Question:
How can I store an AVI file in a database and then
play AVI 
files?

Answer:
AVI files can be stored in BLOB (binary large object)
fields. 
The easiest way to play an AVI file stored in a BLOB
is to write
the BLOB data to a temporary file, then let the
mulimedia player
play the file. The following example demonstrates how
to store 
an AVI file to a BLOB field, and also play the AVI
file from the
BLOB field.

Example:

var
  FileName : string;

{This function gets a temporary file name form the
system}
function GetTemporaryFileName : string;
{$IFNDEF WIN32}
  const MAX_PATH = 144;
{$ENDIF}
var
 {$IFDEF WIN32}
  lpPathBuffer : PChar;
 {$ENDIF}
  lpbuffer : PChar;
begin
 {Get the file name buffer}
  GetMem(lpBuffer, MAX_PATH);
 {$IFDEF WIN32}
 {Get the temp path buffer}
  GetMem(lpPathBuffer, MAX_PATH);
 {Get the temp path}
  GetTempPath(MAX_PATH, lpPathBuffer);
 {Get the temp file name}
  GetTempFileName(lpPathBuffer,
  'tmp',
  0,
  lpBuffer);
 {Free the temp path buffer}
  FreeMem(lpPathBuffer, MAX_PATH);
 {$ELSE}
 {Get the temp file name}
  GetTempFileName(GetTempDrive('C'),
  'tmp',
  0,
  lpBuffer);
 {$ENDIF}
 {Create a pascal string containg}
 {the  temp file name and return it}
  result := StrPas(lpBuffer);
 {Free the file name buffer}
  FreeMem(lpBuffer, MAX_PATH);
end;

{Read a AVI file into a blob field}
procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TFileStream; {to load the avi file}
  BlobStream: TBlobStream; {to save to the blob}
begin
 {Allow the button to repaint}
  Application.ProcessMessages;
 {Turn off the buttons}
  Button1.Enabled := false;
  Button2.Enabled := false;
 {Assign the avi file name to read}
  FileStream := TFileStream.Create(
   
'C:\PROGRA~1\BORLAND\DELPHI~1\DEMOS\COOLSTUF\COOL.AVI',
fmOpenRead);
  Table1.Edit;
 {Create a BlobStream for the TField Table1AVI}
  BlobStream := TBlobStream.Create(Table1AVI,
bmReadWrite); <- erro nesta linha (uso
query em vez de table)
 {Seek to the Beginning of the stream}
  BlobStream.Seek(0, soFromBeginning);
 {Delete any data that may be there}
  BlobStream.Truncate;
 {Copy from the FileStream to the BlobStream}
  BlobStream.CopyFrom(FileStream, FileStream.Size);
 {Free the streams}
  FileStream.Free;
  BlobStream.Free;
 {Post the record}
  Table1.Post;
 {Enable the buttons}
  Button1.Enabled := true;
  Button2.Enabled := true;
end;

{Read an avi stored in a blob, and play it}
procedure TForm1.Button2Click(Sender: TObject);
var
  FileStream: TFileStream; {a temp file}
  BlobStream: TBlobStream; {the AVI Blob}
begin
 {Create a blob stream for the AVI blob}
  BlobStream := TBlobStream.Create(Table1AVI, bmRead);
<-- erro nesta linha
  if BlobStream.Size = 0 then begin
   BlobStream.Free;
   Exit;
  end;
 {Close the media player}
  MediaPlayer1.Close;
 {Reset the file name}
  MediaPlayer1.FileName := '';
 {Refresh the play window}
  MediaPlayer1.Display := Panel1;
  Panel1.Refresh;
 {if we have a temp file then erase it}
  if FileName <> '' then
DeleteFile(FileName);
 {Get a temp file name}
  FileName := GetTemporaryFileName;
 {Create a temp file stream}
  FileStream := TFileStream.Create(FileName,
   fmCreate or
fmOpenWrite);
 {Copy the blob to the temp file}
  FileStream.CopyFrom(BlobStream, BlobStream.Size);
 {Free the streams}
  FileStream.Free;
  BlobStream.Free;
 {Setup the Media player to play the AVI file}
  MediaPlayer1.FileName := filename;
  MediaPlayer1.DeviceType := dtAviVideo;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 {Unassign the temp file from the media player}
  MediaPlayer1.Close;
  MediaPlayer1.FileName := '';
 {Erase the temp file}
  if FileName <> '' then
DeleteFile(FileName);
end;









___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você
acumula cupons e concorre a mais de 500 prêmios! Participe!
http://yahoo.fbiz.com.br/


-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Ya