Certo...... não é dificil, mas da um pouco de trabalho... procura a deAudio ou ACS....
deAudio = http://www.droopyeyes.com/default.asp?mode=ShowProduct&ID=2 ACS = http://acs.ullihome.de/acs/index.php/Main_Page Em WAV é bem facil fazer o sincronismo achar o ponto... Agora em MP3 os frames variam um pouquinho ai complica um pouco mais... Todo o controle vc vai ter que fazer na mão, tipo: vai, volta, pause, stop, play, rec é tudo por sua conta..... vc que tem que mandar tocar parte por parte etc... tipo mediaplay = play('audio.wav'); lá seria // reproduzindo procedure TForm1.deAudioOut1AudioPlayed(Sender: TObject; AudioData: Pointer; AudioDataSize: Integer); begin readblock... playblock... end; // gravando... procedure TForm1.deAudioIn1AudioRecorded(Sender: TObject; AudioData: Pointer; AudioDataSize: Integer); begin saveblock( audiodata, etc... ) end; É na mão grande, tem os helps, exemplos, o deAudio tem foruns direto com o cara..., mas deixa a pizza e o guaraná pertim... ehheheheheh abraços e boa sorte Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br ----- Original Message ----- From: Alexandre da Silva To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 14, 2007 8:45 AM Subject: Res: [delphi-br] AudioLab ou MMTools Ola Luiz, primeiramente obrigado pela resposta!!! Preciso fazer assim porque o cliente que esta comprando e o chefe da empresa exigem...rs... É que vou gravar um laudo medico ditado referente a um exame de um paciente e caso o medico durante a gravação erre ou decida voltar a um ponto anterior e mudar/sobrepor a gravação ele deve conseguir fazer isso...Assim como no Gravador de Som do Windows... Sobre o que vc falou de "Porque simplesmente não fechar abre outro depois coloca tudo no COOLEDIT e faz uma edição !? Não poderia ser assim ?": Isso posso fazer em RunTime ou é um trabalho artesanal externo? Obrigado!!! Alexandre - Micromed Sistemas. ----- Mensagem original ---- De: Luiz Escobar <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 13 de Fevereiro de 2007 12:54:51 Assunto: Re: [delphi-br] AudioLab ou MMTools Não usei nenhum dos dois, fiz a minha propria biblioteca usando o ACM do windows..... ... o HELP do DELPHI é bem completo sobre as funções, mas não encina a lógica da coisa......( tipo, qual função tem que vir primeiro e qual tem que vir depois) Quanto a mediaplay, mciSend, e outras do mesmo genero, vc NÃO vai conseguir fazer isso com elas...... Agora pra que vc quer fazer isso ? EX: Gravar, voltar um pouco e regravar encima.....! !!!!!???? ??? Porque simplesmente não fechar abre outro depois coloca tudo no COOLEDIT e faz uma edição !? Não poderia ser assim ? PS: com a MMTools vc conseguiria fazer isso, mas sei não, nao achei ela muito pratica em alguns aspectos.... . Quanto a AudioLAB nao me lembro mais dela....... não posso opinar..... DICA: sempre grave em WAV formato RAW, é MUIIIIIIIITO mais facil fazer o q vc quer fazer....... . Luiz Escobar Analista/Desenvolve dor: WEB - HTML/JavaScript/ PHP/MySQL WINDOWS - Delphi/MyDAC/ ASSEMBLER/ MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/ MySQL; http://www.megasist ema.com.br ----- Original Message ----- From: djxandytche To: [EMAIL PROTECTED] os.com.br Sent: Tuesday, February 13, 2007 8:43 AM Subject: [delphi-br] AudioLab ou MMTools Bom dia amigos da lista, Bom, gostaria da ajuda de vcs para gravação de som do microfone com delphi. O problema é o seguinte: Dentre todos os componentes que testei os mais poderosos que encontrei foram estes 2 que cito no titulo, porem, nenhum deles faz uma coisa muito importante que preciso. Por exemplo, o usuário começa a gravar e no final da gravação ele resolve voltar um pouco e regravar uma parte devido a que ele possa ter falado algo errado, desta forma o arquivo de áudio deveria sobrepor toda a gravação a partir do ponto em que ele recomeçou a gravar. Mais não consegui fazer isso com nenhum componente, nem com o TMediaPlayer e nem usando código nativo do delphi (mciSendCommand, sndPlaySound, e estas coisas todas)!!! Alguém por acaso utiliza alguns destes componentes que cito acima, ou conhece outros (pode ser pago) ou alguma outra forma de realizar este trabalho? Obs.: Este comportamento o "Gravador de Som" do Windows faz perfeitamente. Obrigado a todos que puderem responder e me ajudar!!! Alexandre da Silva. [As partes desta mensagem que não continham texto foram removidas] <!-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee; margin-bottom:20px; padding:0 8px; } #ygrp-sponsor .ad{ padding:8px 0; } #ygrp-sponsor .ad #hd1{ font-family:Arial; font-weight:bold; color:#628c2a; font-size:100%; line-height:122%; } #ygrp-sponsor .ad a{ text-decoration:none; } #ygrp-sponsor .ad a:hover{ text-decoration:underline; } #ygrp-sponsor .ad p{ margin:0; } o {font-size:0;} .MsoNormal { margin:0 0 0 0; } #ygrp-text tt{ font-size:120%; } blockquote{margin:0 0 0 4px;} .replbq {margin:4;} --> __________________________________________________ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
