Delphi para chamar o gravador de voz -(SoundRecord)
20/11/2015
0
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);
Dirce
Posts
20/11/2015
Marcos P
24/11/2015
Dirce
24/11/2015
Marcos P
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.
24/11/2015
Dirce
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
24/11/2015
Marcos P
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 :
https://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/
24/11/2015
Raimundo Pereira
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;
24/11/2015
Dirce
24/11/2015
Dirce
24/11/2015
Raimundo Pereira
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]
24/11/2015
Dirce
24/11/2015
Dirce
24/11/2015
Raimundo Pereira
Segue o link da gravação.
https://www.youtube.com/watch?v=_mDseF2WN7Q&feature=youtu.be
Clique aqui para fazer login e interagir na Comunidade :)