开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > TAPI编程 > 查看源码
main.pas
资源名称：TAPIVer3.zip　[点击查看]
上传用户：xtonglei
上传日期：2019-08-12
资源大小：6118k
文件大小：3k
源码类别：

TAPI编程

开发平台：

C++ Builder

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