unitmain.pas

自动语音应答系统

unit UnitMain;

interface

uses
  WinTypes,shellapi,
  WinProcs,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  ExtCtrls,registry,
  Menus,AdTapi,
  AdTutil,
  AdPort, OoMisc,AdTSel_My, AdTStat,MMHook, MMDesign,
  MMObj, MMACMDlg, MMDSPObj, MMWave, MMCstDlg;

const
  CurrentState : Integer = 0;
  StateGreeting          = 0;
  StateRecording         = 1;  
  StateIdle              = 2;
  StateBeeping           = 3;
  StatePlayback          = 4;
  StateDial              = 5;
  StateDialing           = 6;
  StateAnswer            = 7;
type
  TFormMain = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    CallerID: TEdit;
    CallerIDName: TEdit;
    Button1: TButton;
    CancelCall: TButton;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    MaxLengthEdit: TEdit;
    Monitor: TCheckBox;
    ApdComPort1: TApdComPort;
    Button2: TButton;
    Label6: TLabel;
    Button4: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Edit2: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    OpenDialog2: TOpenDialog;
    Edit3: TEdit;
    Button5: TButton;
    Label9: TLabel;
    Edit4: TEdit;
    Button6: TButton;
    Button7: TButton;
    Label3: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    ApdTapiDevice1: TApdTapiDevice;
    Timer1: TTimer;
    Button3: TButton;
    Label12: TLabel;
    Edit5: TEdit;
    Button8: TButton;
    Button9: TButton;
    ComboBox1: TComboBox;
    Button10: TButton;
    Label13: TLabel;
    Button11: TButton;
    ComboBox2: TComboBox;
    OpenDialog3: TOpenDialog;
    MMACM1: TMMACM;
    MMDesigner1: TMMDesigner;
    MMWaveFile1: TMMWaveFile;
    MMWaveOpenDialog1: TMMWaveOpenDialog;
    ApdTapiLog1: TApdTapiLog;
    Label14: TLabel;
    procedure CvtProgressCB(Sender: TObject; CurByte, NumBytes: Longint;
         Var Cancel: Boolean);
    procedure ConvertPCM;
    procedure ConvertACM;    
    procedure Button1Click(Sender: TObject);
    procedure CancelCallClick(Sender: TObject);
    procedure ApdTapiDevice1TapiConnect(Sender: TObject);
    procedure ApdTapiDevice1TapiWaveNotify(CP: TObject; Msg: TWaveMessage);
    procedure ApdTapiDevice1TapiCallerID(CP: TObject; ID, IDName: String);
    procedure MaxLengthEditExit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure ApdTapiDevice1TapiFail(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ApdTapiDevice1TapiDTMF(CP: TObject; Digit: Char;
      ErrorCode: Integer);
    procedure CheckBox2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure MonitorClick(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ApdTapiDevice1TapiStatus(CP: TObject; First, Last: Boolean;
      Device, Message, Param1, Param2, Param3: Cardinal);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CallerIDChange(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Edit5Exit(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure ApdTapiDevice1TapiWaveSilence(CP: TObject; var StopRecording,
      Hangup: Boolean);
    procedure ApdTapiDevice1TapiWaveRingback(CP: TObject;
      var RingbackTimes: Integer; var StopRecording, Hangup: Boolean);
    procedure ApdTapiDevice1TapiWaveBusy(CP: TObject; var StopRecording,
      Hangup: Boolean);
    procedure ComboBox2Exit(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
  private
    { Private declarations }
    FileName : String;
    regpath:string;
    files:integer;
    caller:boolean;
    Timer1Busy:boolean;
  public
    WaveFileDir : String;
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

uses UnitFmtDialog,UnitPlay, UnitCvtProgress, UnitPhoneBook;

{$R *.DFM}

procedure wait(msec:dword);
var
   t:DWORD;
begin
   t:=gettickcount;
   while gettickcount-t<msec do application.ProcessMessages;
end;

procedure TFormMain.Button1Click(Sender: TObject);
begin 
  SelectDevice_My(ApdTapiDevice1,true,regpath);
  ApdTapiDevice1.EnableVoice := True;
end;

procedure TFormMain.CancelCallClick(Sender: TObject);
begin 
      if not ApdTapiDevice1.Cancelled then
      try
        if ApdTapiDevice1.WaveState = wsRecording then
           ApdTapiDevice1.StopWaveRecord;
        ApdTapiDevice1.OnTapiFail:=nil;
        ApdTapiDevice1.CancelCall;
      finally
        while ApdTapiDevice1.TapiState <> tsIdle do  Application.ProcessMessages;
        wait(1000); //等1秒
        ApdTapiDevice1.OnTapiFail:=ApdTapiDevice1TapiFail;
      end;
      Label4.Caption := '已经断开...';
      Button2.Enabled:=true;
      Button7.Enabled:=true;
      Button10.Enabled:=CheckBox2.checked;
      timer1.enabled:=true; 
end;

procedure TFormMain.ApdTapiDevice1TapiConnect(Sender: TObject);
begin  
  if CurrentState = StateDial then 
  begin
     Label4.Caption := '正在拔打...';
     CurrentState := StateDialing;   
     ApdTapiDevice1.PlayWaveFile(WaveFileDir+'静音.wav');
  end
  else begin 
     CurrentState := StateGreeting;  
     Label4.Caption := '播放问候语...';
     combobox1.text:=trim(combobox1.text);
     if combobox1.text<>'' then
     try
        ApdTapiDevice1.PlayWaveFile(combobox1.text);
     except
     end;
  end;
end;

procedure TFormMain.ApdTapiDevice1TapiWaveNotify(CP: TObject;
  Msg: TWaveMessage);
var
  datetime : TDateTime;
  year,month,day,hour,min,sec,msec : word;
  max : integer;
  sr : TSearchRec;
begin
  if (CurrentState = StateDialing)or(CurrentState = StateDial) then
  begin
    case Msg of
    waPlayClose : 
       begin
          ApdTapiDevice1.MaxMessageLength :=60*60; 
          ApdTapiDevice1.StartWaveRecord; 
       end;
    waDataReady: 
       begin
         datetime:=now;
         decodedate(datetime,year,month,day);
         decodetime(datetime,hour,min,sec,msec);
         if callerid.text=',' then
            FileName := WaveFileDir+Format('%.2d-%.2d-%.2d %.2d：%.2d：%.2d',[year,month,day,hour,min,sec])+'录音.wav'
         else FileName := WaveFileDir+Format('%.2d-%.2d-%.2d %.2d：%.2d：%.2d',[year,month,day,hour,min,sec])+'拔打'+callerid.text+'.wav';
         ApdTapiDevice1.SaveWaveFile(FileName, True); 
       end;
    waRecordClose :  
       begin
          CancelCallClick(Self);  
          if findfirst(FileName,faAnyfile and not faDirectory,sr)=0 then 
          begin
             if (sr.Size<=110*1024)or  
                (pos('回铃音......',Label14.caption)=1) then 
               deletefile(FileName)
             else begin
                inc(files); 
                Button9.caption:=inttostr(files)+'个录音';
             end;
          end;
       end;
    end;
  end
  else begin
    case Msg of
    waPlayClose :
      case CurrentState of
      StateGreeting :
          begin
            CurrentState := StateBeeping;
            try
               ApdTapiDevice1.PlayWaveFile(WaveFileDir+'beep.wav');
            except
            end;
          end;
      StateBeeping : 
          begin
            CurrentState := StateRecording; 
            if CheckBox1.Checked then max:=strtointdef(MaxLengthEdit.Text,60*60)
            else max:=60*60;
            ApdTapiDevice1.MaxMessageLength :=max;
            Label4.Caption := '记录拔入的电话...';
            try
               ApdTapiDevice1.StartWaveRecord;
            except
            end;
          end;
      end;
    waDataReady : 
      begin
        datetime:=now;
        decodedate(datetime,year,month,day);
        decodetime(datetime,hour,min,sec,msec);
        if not caller then callerid.text:='';
        FileName := WaveFileDir+Format('%.2d-%.2d-%.2d %.2d：%.2d：%.2d',[year,month,day,hour,min,sec])
           +'接听'+callerid.text+'.wav';
        ApdTapiDevice1.SaveWaveFile(FileName, True); 
      end;
    waRecordClose : 
       begin
          CancelCallClick(Self); 
          inc(files); 
          Button9.caption:=inttostr(files)+'个录音';
       end;
    end;
  end;
end;

procedure TFormMain.ApdTapiDevice1TapiCallerID(CP: TObject; ID,
  IDName: String);
begin
  CallerId.Text := ID;
  CallerIdName.Text := IDName;
  Caller:=true;
end;

procedure TFormMain.MaxLengthEditExit(Sender: TObject);
var
   reg:tregistry;
begin  
   reg:=Tregistry.create;
   reg.rootkey:=HKEY_LOCAL_MACHINE;
   reg.openkey(regpath,true);
   reg.writestring('AnswerRecordTime',MaxLengthEdit.text);
   reg.closekey;
   reg.free;
end;

procedure TFormMain.Button2Click(Sender: TObject);
begin
   Label14.caption:='';
   if not ApdTapiDevice1.EnableVoice then
   begin
      MessageDlg('没有选择正确的猫.', mtInformation, [mbOk], 0);
      exit;
   end;
   callerid.text:=trim(callerid.text);
   if callerid.text<>'' then
   begin
      try
         ApdTapiDevice1.OnTapiFail:=nil;
         ApdTapiDevice1.CancelCall;
      finally
         while ApdTapiDevice1.TapiState <> tsIdle do  Application.ProcessMessages;
         wait(1000); //等1秒
         ApdTapiDevice1.OnTapiFail:=ApdTapiDevice1TapiFail;
      end;
      Button2.Enabled:=false;
      Button7.Enabled:=false;
      Button10.Enabled:=false;
      Label4.Caption := '正在拔出...';
      CurrentState := StateDial;
      ApdTapiDevice1.Dial(callerid.text); 
   end
   else MessageDlg('请输入电话号码.', mtInformation, [mbOk], 0);
end;

procedure TFormMain.CheckBox1Click(Sender: TObject);
var
   reg:tregistry;
begin  
   MaxLengthEdit.Enabled:=CheckBox1.Checked;
   reg:=Tregistry.create;
   reg.rootkey:=HKEY_LOCAL_MACHINE;
   reg.openkey(regpath,true);
   if CheckBox1.Checked then reg.writeinteger('AnswerRecord',1)
   else reg.writeinteger('AnswerRecord',0);
   reg.closekey;
   reg.free;
end;

procedure TFormMain.ApdTapiDevice1TapiFail(Sender: TObject);
begin  
  CurrentState := StateIdle;
  Label4.Caption := '已经断开...';
  Button2.Enabled:=true;
  Button7.Enabled:=true;
  Button10.Enabled:=CheckBox2.checked;
  if CurrentState = StateAnswer then CheckBox2.checked:=false
  else timer1.enabled:=true;  
end;

procedure TFormMain.ConvertPCM;
begin 
      FmtDialog.Wave := MMWaveFile1.Wave;
      if (FmtDialog.ShowModal = mrOk) then
      begin
         try
            try
               with FormCvtProgress do
               begin
                  Gauge1.Progress := 0;
                  BringToFront;
                  Show;
               end;
               MMWaveFile1.Wave.OnProgress := CvtProgressCB;
               MMWaveFile1.Wave.ConvertFile(MMWaveOpenDialog1.FileName+'.wav', FmtDialog.PWaveFormat);

            finally
               FormCvtProgress.Close;
            end;
            MMWaveFile1.Wave.FreeWave;
            MMWaveFile1.Wave.FileName:=MMWaveOpenDialog1.FileName;            
            if fileexists(MMWaveOpenDialog1.FileName+'.wav') then
            begin
               renamefile(MMWaveOpenDialog1.FileName,MMWaveOpenDialog1.FileName+'.bak');
               renamefile(MMWaveOpenDialog1.FileName+'.wav',MMWaveOpenDialog1.FileName);
               MessageDlg('转换成功!原文件改名为.bak',mtInformation, [mbOk], 0);
            end
            else MessageDlg('转换错误!',mtInformation, [mbOk], 0);
         except
            MessageDlg('转换错误!',mtError, [mbOk], 0);
         end;
      end;
      Refresh;
end;

{-- TMainForm ------------------------------------------------------------}
procedure TFormMain.ConvertACM;
begin  
      MMACM1.EnumFormats := efConvert;
      if MMACM1.ChooseFormat(MMWaveFile1.Wave.PWaveFormat,'选择目标格式') then
      begin
         try
            with FormCvtProgress do
            begin
               Gauge1.Progress := 0;
               BringToFront;
               Show;
            end;