Delphi para chamar o gravador de voz -(SoundRecord)

20/11/2015

3

Quero chamar o SoundRecord(Gravador de voz)

já testei varias maneiras e o Delphi nao chama o SoundRecord

ja fiz um e mandei chamar no delphi tambem nao funcionario..

estou para desistir - mas resolvi apela aqui ...

por favor me ajude...

o ultimo codigo que eu usei foi este ai abaixo - nao dar nenhum erro, porem nao chama o SoundRecord - o que falta eu fazer entao agora?

winexec(Application.Handle, 'open', PChar('c:\windows\system32\soundrecord.exe'), PChar('1 teste.txt'), nil, SW_NORMAL);
Responder

Posts

20/11/2015

Marcos P

Pesquise sobre ShellExecute, no Delphi : [url:descricao=https://www.google.com.br/search?q=delphi+shellexecute&ie=utf-8&oe=utf-8&gws_rd=cr&ei=oYxPVrf4L4i3wgSJ-ovgAQ]https://www.google.com.br/search?q=delphi+shellexecute&ie=utf-8&oe=utf-8&gws_rd=cr&ei=oYxPVrf4L4i3wgSJ-ovgAQ[/url]
Responder

24/11/2015

Dirce

foi testado todas e nao deu certo - por favor alguem me ajude.
Responder

24/11/2015

Marcos P

Você consegue usar o ShellExecute com outros programas ?

Se sim... seu problema está relacionado ao tal SoundRecord.

Se não... você está fazendo algo errado no uso do comando do lado do Delphi.
Responder

24/11/2015

Dirce

sim ele abre todos os outros programas - mas o SoundRecord nao abre - porque tenho 5 maquinas e nenhuma abre - estou para desistir - mais por favor me ajuda.

aqui ta um exemplo que funciona com o notepad.exe e nao funciona com o soudrecord.exe

ShellExecute(Handle, 'open', PChar('c:\windows\system32\notepad.exe'), nil, nil, SW_SHOW);


o mesmo codigo e nao funciona com o soudrecord.exe
funciona com o notepad.exe

ShellExecute(Handle, 'open', PChar('c:\windows\system32\SoundRecord.exe'), nil, nil, SW_SHOW);


em todos as maquinas nao funciona --



me ajuda - me ajude - me ajude
Responder

24/11/2015

P2

Dirce, qual o S.O, que você está usando ?
Responder

24/11/2015

Dirce

Win 7
Responder

24/11/2015

Dirce

Sistema operacional e Delphi 7
Responder

24/11/2015

Marcos P

E por qual motivo você precisa chamar esse programa externo para gravar o aúdio ?

Por quê você não resolve isso internamente no Delphi ?

Pesquise na WEB sobre gravação de áudio com Delphi, você vai achar material com as explicações necessárias :

http://www.devmedia.com.br/forum/urgente-gravando-audio-por-microfone/419827
http://blogprogramadores.blogspot.com.br/2013/05/capturar-audio-da-placa-de-som-com.html
http://www.scriptbrasil.com.br/forum/topic/158453-gravar-audio-pelo-delphi-automaticamente/
Responder

24/11/2015

P2

Dirce, a sugestão do Marcos é muito boa.
Mas, tente a rotina abaixo:

implementation

{$R *.dfm}

uses shellapi;
var App:string;

procedure TForm1.sButton1Click(Sender: TObject);

begin
App:='c:\Windows\System32\SoundRecorder.exe';
if not FileExists(app) then
begin
ShowMessage('Aplicativo não encontrado');
end
else
begin
ShellExecute(Handle, 'open', 'cmd.exe', PChar('/c'+'"'+app+'"' ), nil, 0);
end;

end;
Responder

24/11/2015

Dirce

Marcos, Muito Obrigada pela Atencao - mas pra o que eu quero nao serve - pois todos eles ensina a fazer um gravador de voz no delphi e eu preciso só de executar-lo um que já existe no proprio windows.
Responder

24/11/2015

Dirce

P2 - Obrigada pela Atencao - fiz o teste, ele entra na opcao if: que nao encontrou o arquivo soundrecord - mais ele existe nesta mesma pasta do c:\windows\system32\soundrecord.exe - porque entao ele nao encontra o arquivo c:\windows\system32\soundrecord .exe e os outros ele encontra na mesma pasta?
Responder

24/11/2015

P2

Dirce,
O único motivo de não executar, seria o caminho da aplicação.
E como caiu no retorno do if.

Provavelmente não está no caminho correto.


Faça as verificações abaixo
:
[img]http://arquivo.devmedia.com.br/forum/imagem/437747-20151124-150947.png[/img]
Responder

24/11/2015

Dirce

P2- eu tenho certeza que estou colocando o caminho certinho - faz um coisa para mim - teste no seu PC - o codigo que voce passou para mim - e veja se o Delphi abre o soundrecord no seu PC - por favor só para tirar a duvida..
Responder

24/11/2015

Dirce

Eu segui o caminho conforme estar no explorer - que é c:\windows\system32\soundrecorder.exe - por favor teste ai - só para ver se é questao de windows mesmo.
Responder

24/11/2015

P2

Dirce eu estou usando o Windows10, porém tenho um outro pc com o Windows 7, peguei o a aplicação soundrecord e coloquei na mesma pasta só para gravação

Segue o link da gravação.
https://www.youtube.com/watch?v=_mDseF2WN7Q&feature=youtu.be
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira