Delphi para chamar o gravador de voz -(SoundRecord)
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);
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
Curtidas 0
Respostas
Marcos P
20/11/2015
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]
GOSTEI 0
Dirce
20/11/2015
foi testado todas e nao deu certo - por favor alguem me ajude.
GOSTEI 0
Marcos P
20/11/2015
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.
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.
GOSTEI 0
Dirce
20/11/2015
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
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
GOSTEI 0
Raimundo Pereira
20/11/2015
Dirce, qual o S.O, que você está usando ?
GOSTEI 0
Dirce
20/11/2015
Win 7
GOSTEI 0
Dirce
20/11/2015
Sistema operacional e Delphi 7
GOSTEI 0
Marcos P
20/11/2015
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 :
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/
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/
GOSTEI 0
Raimundo Pereira
20/11/2015
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;
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;
GOSTEI 0
Dirce
20/11/2015
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.
GOSTEI 0
Dirce
20/11/2015
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?
GOSTEI 0
Raimundo Pereira
20/11/2015
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]
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]
GOSTEI 0
Dirce
20/11/2015
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..
GOSTEI 0
Dirce
20/11/2015
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.
GOSTEI 0
Raimundo Pereira
20/11/2015
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
Segue o link da gravação.
https://www.youtube.com/watch?v=_mDseF2WN7Q&feature=youtu.be
GOSTEI 0
Dirce
20/11/2015
entao deu certo o seu codigo que voce me passou no seu win 7 ?
GOSTEI 0
Dirce
20/11/2015
Deixa eu só te perguntar: o delph7 e o win7 só trabalham com o soundrecorder se tiver um placa de som?
nao serve o som da placa mãe?
nao serve o som da placa mãe?
GOSTEI 0