COMPONENT FOR VOICE RECORDING!

[selena1]

Hi!

I've been looking on the internet for some time for free component which with I could be able to record voice from microphone from my application made in Delphi 7.

Can anybody get me same info abot this or some useful links for download?

Thanks!

 

[Nordlund]

Hi.
Try this snippet.
(And please, Mind your Caps lock)

uses
  MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Record
  mciSendString('open new type waveaudio alias anyname', 0, 0, 0);
  mciSendString('record anyname to 20000', 0, 0, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // Stop
  mciSendString('stop anyname', 0, 0, 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  // Play
  mciSendString('play anyname from 1 wait', 0, 0, 0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  // Save
  mciSendString('save anyname c:\wave.wav', 0, 0, 0);
  mciSendString('close anyname', 0, 0, 0);
end;

//Nordlund

 

[Nordlund]

Review this link too:

http://msdn.microsoft.com/library/d...y/en-us/multimed/htm/_win32_mcisendstring.asp

//Nordlund

 

[selena1]

This will work.

Thanks!