Gravador de Voz

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btnGravar: TButton;
    btnPararGravacao: TButton;
    btnSalvarGravacao: TButton;
    btnTocar: TButton;
    btnFecharSom: TButton;
    procedure btnGravarClick(Sender: TObject);
    procedure btnPararGravacaoClick(Sender: TObject);
    procedure btnSalvarGravacaoClick(Sender: TObject);
    procedure btnFecharSomClick(Sender: TObject);
    procedure btnTocarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses mmsystem;

procedure TForm1.btnGravarClick(Sender: TObject);
begin
  mciSendString(´OPEN NEW TYPE WAVEAUDIO ALIAS mysound´, nil, 0, Handle);
  mciSendString(´SET mysound TIME FORMAT MS ´ +     // set time
                ´BITSPERSAMPLE 8 ´ +                // 8 Bit
                ´CHANNELS 1 ´ +                     // MONO
                ´SAMPLESPERSEC 8000 ´ +             // 8 KHz
                ´BYTESPERSEC 8000´,                 // 8000 Bytes/s
                 nil, 0, Handle);
  mciSendString(´RECORD mysound´, nil, 0, Handle)
end;

procedure TForm1.btnPararGravacaoClick(Sender: TObject);
begin
  mciSendString(´STOP mysound´, nil, 0, Handle);
end;

procedure TForm1.btnSalvarGravacaoClick(Sender: TObject);
var
  sPath: String;
begin
  sPath := ´c:\som.wav´;
  mciSendString(PChar(´SAVE mysound ´ + sPath), nil, 0, Handle);
  //depois de salvar, clique em fechar
end;

procedure TForm1.btnFecharSomClick(Sender: TObject);
begin
  mciSendString(´CLOSE mysound´, nil, 0, Handle);
end;

procedure TForm1.btnTocarClick(Sender: TObject);
begin
//  PlaySound(PChar(´SYSTEMHAND´), 0, SND_ASYNC);
//  mciSendString(´PLAY mysound´, nil, 0, Handle);
//mciSendString( ´PLAY mysound [ from inicio to fim ]´, nil, 0, handle);
  mciSendString( ´PLAY mysound [ from inicio to fim ] ´, nil, 0, handle);
end;

end.