main.pas
上传用户:xtonglei
上传日期:2019-08-12
资源大小:6118k
文件大小:3k
源码类别:

TAPI编程

开发平台:

C++ Builder

  1. unit main;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  5.   Dialogs, AssistedTAPI, StdCtrls;
  6. type
  7.   TForm1 = class(TForm)
  8.     Edit1: TEdit;
  9.     Label1: TLabel;
  10.     Edit5: TEdit;
  11.     Label5: TLabel;
  12.     Button1: TButton;
  13.     Button2: TButton;
  14.     AssistedTAPI1: TAssistedTAPI;
  15.     Label6: TLabel;
  16.     Label7: TLabel;
  17.     GroupBox1: TGroupBox;
  18.     Label2: TLabel;
  19.     Label3: TLabel;
  20.     Edit4: TEdit;
  21.     Label4: TLabel;
  22.     Label8: TLabel;
  23.     Label9: TLabel;
  24.     Label10: TLabel;
  25.     Label11: TLabel;
  26.     procedure Edit1Change(Sender: TObject);
  27.     procedure Edit4Change(Sender: TObject);
  28.     procedure FormCreate(Sender: TObject);
  29.     procedure Edit5Change(Sender: TObject);
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.     procedure AssistedTAPI1InvalDestAddress(Sender: TObject);
  33.     procedure AssistedTAPI1NoRequestRecipient(Sender: TObject);
  34.     procedure AssistedTAPI1RequestFailed(Sender: TObject);
  35.     procedure AssistedTAPI1RequestQueueFull(Sender: TObject);
  36.   private
  37.     { Private declarations }
  38.   public
  39.     { Public declarations }
  40.   end;
  41. var
  42.   Form1: TForm1;
  43. implementation
  44. {$R *.dfm}
  45. procedure TForm1.Edit1Change(Sender: TObject);
  46. begin
  47.   AssistedTAPI1.CalledParty:=Edit1.Text;
  48. end;
  49. procedure TForm1.Edit4Change(Sender: TObject);
  50. begin
  51.   AssistedTAPI1.DestAddress:=Edit4.Text;
  52. end;
  53. procedure TForm1.Edit5Change(Sender: TObject);
  54. begin
  55.   AssistedTAPI1.Comment:=Edit5.Text;
  56. end;
  57. procedure TForm1.FormCreate(Sender: TObject);
  58. begin
  59.   Label8.Caption:=AssistedTAPI1.CountryCode;
  60.   Label9.Caption:=AssistedTAPI1.CityCode;
  61.   AssistedTAPI1.DestAddress:=Edit4.Text;
  62.   AssistedTAPI1.Comment:=Edit5.Text;
  63.   AssistedTAPI1.CalledParty:=Edit1.Text;
  64. end;
  65. procedure TForm1.Button1Click(Sender: TObject);
  66. begin
  67.   AssistedTAPI1.MakeCall;
  68. end;
  69. procedure TForm1.Button2Click(Sender: TObject);
  70. begin
  71.   Close;
  72. end;
  73. { On Windows 2000 and XP the following events never occur with dialer.exe}
  74. procedure TForm1.AssistedTAPI1InvalDestAddress(Sender: TObject);
  75. begin
  76.   MessageDlg('The entered phone number is wrong',mtError,[mbOK],0);
  77. end;
  78. procedure TForm1.AssistedTAPI1NoRequestRecipient(Sender: TObject);
  79. begin
  80.   MessageDlg('Please install Dialer.exe or an other TAPI Svr',mtError,[mbOK],0);
  81. end;
  82. procedure TForm1.AssistedTAPI1RequestFailed(Sender: TObject);
  83. begin
  84.   MessageDlg('Request failed',mtError,[mbOK],0);
  85. end;
  86. procedure TForm1.AssistedTAPI1RequestQueueFull(Sender: TObject);
  87. begin
  88.   MessageDlg('The Querry is full, please try later',mtError,[mbOK],0);
  89. end;
  90. end.
  91.