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

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

TAPI编程

开发平台：

C++ Builder

main.~pas：源码内容
  1. unit main;
  3. interface
  5. uses
  6.   mmsystem,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  7.   Forms, TAPICall, CallList, XPMan, TAPITon, TAPIPhone, DevConf,
  8.   TAPIAddress, TAPILines, TAPIDevices, TAPIServices, TAPISystem, Menus,
  9.   StdCtrls, ComCtrls, Dialogs, TAPIErr, TAPILineConfigDlg;
  11. type
  12.   TForm1 = class(TForm)
  13.     GroupBox1: TGroupBox;
  14.     Memo1: TMemo;
  15.     MainMenu1: TMainMenu;
  16.     Datei1: TMenuItem;
  17.     Beenden1: TMenuItem;
  18.     N1: TMenuItem;
  19.     Look: TMenuItem;
  20.     DialNumber: TMenuItem;
  21.     ReInit: TMenuItem;
  22.     Neu1: TMenuItem;
  23.     KeypadGroupBox: TGroupBox;
  24.     Button1: TButton;
  25.     Button2: TButton;
  26.     Button3: TButton;
  27.     Button4: TButton;
  28.     Button5: TButton;
  29.     Button6: TButton;
  30.     Button7: TButton;
  31.     Button8: TButton;
  32.     Button9: TButton;
  33.     Button10: TButton;
  34.     Button11: TButton;
  35.     Button12: TButton;
  36.     DialButton: TButton;
  37.     Label1: TLabel;
  38.     TAPILineService1: TTAPILineService;
  39.     TAPIPhoneService1: TTAPIPhoneService;
  40.     TAPILineDevice1: TTAPILineDevice;
  41.     TAPIPhoneDevice1: TTAPIPhoneDevice;
  42.     TAPILine1: TTAPILine;
  43.     TAPIAddress1: TTAPIAddress;
  44.     OutboundCall: TTAPICall;
  45.     InboundCall: TTAPICall;
  46.     StatusBar1: TStatusBar;
  47.     TAPILineDeviceConfig1: TTAPILineDeviceConfig;
  48.     ClearButton: TButton;
  49.     TAPIPhone1: TTAPIPhone;
  50.     ComboBox1: TComboBox;
  51.     ComboBox2: TComboBox;
  52.     InboundDigits: TTAPIDigits;
  53.     OutboundDigits: TTAPIDigits;
  54.     HoldButton: TButton;
  55.     HandSetVolumeBar: TProgressBar;
  56.     HandSetGainBar: TProgressBar;
  57.     HandSetGainUpDown: TUpDown;
  58.     XPManifest1: TXPManifest;
  59.     HeadSetGainBar: TProgressBar;
  60.     HeadSetVolumeBar: TProgressBar;
  61.     HeadSetVolUpDown: TUpDown;
  62.     HeadSetGainUpDown: TUpDown;
  63.     SpeakerGainBar: TProgressBar;
  64.     SpeakerVolumeBar: TProgressBar;
  65.     SpeakerGainUpDown: TUpDown;
  66.     SpeakerVolUpDown: TUpDown;
  67.     HandSetVolUpDown: TUpDown;
  68.     TAPICallList1: TTAPICallList;
  69.     SpkCheckBox: TCheckBox;
  70.     CallParams1: TCallParams;
  71.     Edit1: TEdit;
  72.     Label2: TLabel;
  73.     CallInfoBox: TGroupBox;
  74.     Label4: TLabel;
  75.     Label5: TLabel;
  76.     Label3: TLabel;
  77.     Label6: TLabel;
  78.     Label7: TLabel;
  79.     Label8: TLabel;
  80.     Label9: TLabel;
  81.     HdsCheckBox: TCheckBox;
  82.     TAPILineConfigDlg1: TTAPILineConfigDlg;
  83.     procedure Beenden1Click(Sender: TObject);
  84.     procedure FormCreate(Sender: TObject);
  85.     procedure FormDestroy(Sender: TObject);
  86.     procedure TAPILine1AfterOpen(Sender: TObject);
  87.     procedure ClearButtonClick(Sender: TObject);
  88.     procedure DialButtonClick(Sender: TObject);
  89.     procedure KeypadClick(Sender: TObject);
  90.     procedure TAPILine1BeforeOpen(Sender: TObject);
  91.     procedure TAPIPhone1Reply(Sender: TObject; AsyncFunc: TAsyncFunc;
  92.       Error: Cardinal);
  93.     procedure TAPIPhone1StateDisplay(Sender: TObject);
  94.     procedure InboundCallStateDisconnected(Sender: TObject;
  95.       DisconnectedMode: TLineDisconnectMode; Rights: TLineCallPrivilege);
  96.     procedure OutboundCallStateDisconnected(Sender: TObject;
  97.       DisconnectedMode: TLineDisconnectMode; Rights: TLineCallPrivilege);
  98.     procedure ComboBox1Change(Sender: TObject);
  99.     procedure OutboundCallStateConnected(Sender: TObject;
  100.       ConnectedMode: TLineConnectedModes; Rights: TLineCallPrivilege);
  101.     procedure InboundCallStateOnHold(Sender: TObject;
  102.       Rights: TLineCallPrivilege);
  103.     procedure InboundCallStateOffering(Sender: TObject;
  104.       OfferingMode: TLineOfferingModes; Rights: TLineCallPrivilege);
  105.     procedure InboundCallStateIdle(Sender: TObject;
  106.       Rights: TLineCallPrivilege);
  107.     procedure HoldButtonClick(Sender: TObject);
  108.     procedure InboundCallStateConnected(Sender: TObject;
  109.       ConnectedMode: TLineConnectedModes; Rights: TLineCallPrivilege);
  110.     procedure OutboundCallStateProceeding(Sender: TObject;
  111.       Rights: TLineCallPrivilege);
  112.     procedure OutboundCallStateIdle(Sender: TObject;
  113.       Rights: TLineCallPrivilege);
  114.     procedure TAPIPhone1StateHandSetGain(Sender: TObject);
  115.     procedure HandSetGainUpDownChangingEx(Sender: TObject;
  116.       var AllowChange: Boolean; NewValue: Smallint;
  117.       Direction: TUpDownDirection);
  118.     procedure TAPIPhone1StateHandSetVolume(Sender: TObject);
  119.     procedure VolUpDownChangingEx(Sender: TObject;
  120.       var AllowChange: Boolean; NewValue: Smallint;
  121.       Direction: TUpDownDirection);
  122.     procedure TAPIPhone1StateHeadSetGain(Sender: TObject);
  123.     procedure TAPIPhone1StateSpeakerGain(Sender: TObject);
  124.     procedure TAPIPhone1StateSpeakerVolume(Sender: TObject);
  125.     procedure SpeakerVolUpDownChangingEx(Sender: TObject;
  126.       var AllowChange: Boolean; NewValue: Smallint;
  127.       Direction: TUpDownDirection);
  128.     procedure SpeakerGainUpDownChangingEx(Sender: TObject;
  129.       var AllowChange: Boolean; NewValue: Smallint;
  130.       Direction: TUpDownDirection);
  131.     procedure HeadSetVolUpDownChangingEx(Sender: TObject;
  132.       var AllowChange: Boolean; NewValue: Smallint;
  133.       Direction: TUpDownDirection);
  134.     procedure HeadSetGainUpDownChangingEx(Sender: TObject;
  135.       var AllowChange: Boolean; NewValue: Smallint;
  136.       Direction: TUpDownDirection);
  137.     procedure TAPIPhone1StateHeadSetVolume(Sender: TObject);
  138.     procedure TAPILineDevice1StateClose(Sender: TObject);
  139.     procedure OutboundCallStateDialing(Sender: TObject;
  140.       Rights: TLineCallPrivilege);
  141.     procedure OutboundCallStateRingBack(Sender: TObject;
  142.       Rights: TLineCallPrivilege);
  143.     procedure OutboundCallStateDialTone(Sender: TObject;
  144.       DialTonMode: TLineDialToneMode; Rights: TLineCallPrivilege);
  145.     procedure InboundCallStateAccepted(Sender: TObject;
  146.       Rights: TLineCallPrivilege);
  147.     procedure TAPILineDevice1StateRinging(Sender: TObject; RingModeIndex,
  148.       RingCounter: Cardinal);
  149.     procedure TAPIAddress1AppNewCall(Sender: TObject; Call: TTAPICall;
  150.       AddressID: Cardinal; Privilege: TLineCallPrivilege);
  151.     procedure OutboundCallStateBusy(Sender: TObject;
  152.       BusyMode: TLineBusyMode; Rights: TLineCallPrivilege);
  153.     procedure SpkCheckBoxClick(Sender: TObject);
  154.     procedure TAPILineDevice1StateNumCalls(Sender: TObject);
  155.     procedure ReInitClick(Sender: TObject);
  156.     procedure TAPILine1Reply(Sender: TObject; AsyncFunc: TAsyncFunc;
  157.       Error: Cardinal);
  158.     procedure OutboundCallReply(Sender: TObject; AsyncFunc: TAsyncFunc;
  159.       Error: Cardinal);
  160.     procedure DialNumberClick(Sender: TObject);
  161.     procedure OutboundCallStateUnknown(Sender: TObject;
  162.       Rights: TLineCallPrivilege);
  163.     procedure ComboBox2Change(Sender: TObject);
  164.     procedure TAPIPhone1AfterOpen(Sender: TObject);
  165.     procedure TAPIPhone1BeforeOpen(Sender: TObject);
  166.     procedure LookClick(Sender: TObject);
  167.     procedure OutboundCallInfoDisplay(Sender: TObject);
  168.     procedure OutboundCallInfoOrigin(Sender: TObject);
  169.     procedure OutboundCallInfoCallerId(Sender: TObject);
  170.     procedure OutboundCallInfoCalledId(Sender: TObject);
  171.     procedure InboundCallInfoCalledId(Sender: TObject);
  172.     procedure InboundCallInfoCallerId(Sender: TObject);
  173.     procedure InboundCallInfoDisplay(Sender: TObject);
  174.     procedure InboundCallInfoOrigin(Sender: TObject);
  175.     procedure TAPILineService1LineCreate(Sender: TObject;
  176.       NewDeviceID: Cardinal);
  177.     procedure TAPIPhoneService1PhoneCreate(Sender: TObject;
  178.       NewDeviceID: Cardinal);
  179.     procedure TAPIPhoneService1PhoneRemove(Sender: TObject;
  180.       DeviceID: Cardinal);
  181.     procedure TAPILineService1LineRemove(Sender: TObject;
  182.       DeviceID: Cardinal);
  183.     procedure HdsCheckBoxClick(Sender: TObject);
  184.     procedure Neu1Click(Sender: TObject);
  185.   private
  186.     { Private-Deklarationen }
  187.     FHandsetStatus: Boolean;
  188.     FSpeakerStatus: Boolean;
  189.     FHeadSetStatus: Boolean;
  190.     FLinePriority: Boolean;
  191.     LinesFromPhone: Array[0..3]of DWord; 
  192.     function GetPhoneSupport: Boolean;
  193.     function GetCanDial: Boolean;
  194.     function GetHandset: Boolean;
  195.     function RealPos(Value:Smallint):DWord;
  196.     function VirtPos(Value:Integer):Smallint;
  197.     procedure DisplaySpeakerVol(UpdateUpDown: Boolean = False);
  198.     procedure DisplaySpeakerGain(UpdateUpDown: Boolean = False);
  199.     procedure DisplayHandSetVol(UpdateUpDown: Boolean = False);
  200.     procedure DisplayHandSetGain(UpdateUpDown: Boolean = False);
  201.     procedure DisplayHeadSetVol(UpdateUpDown: Boolean = False);
  202.     procedure DisplayHeadSetGain(UpdateUpDown: Boolean = False);
  203.     procedure SetHandSet(const Value: Boolean);
  204.     function GetCallExist(const Index: Integer): Boolean;
  205.     function GetSpeaker: Boolean;
  206.     procedure SetSpeaker(const Value: Boolean);
  207.     procedure Disconnect;
  208.     function GetLineSupport: Boolean;
  209.     procedure UpdateCallerInfo;
  210.     function GetHeadSet: Boolean;
  211.     procedure SetHeadSet(const Value: Boolean);
  212.   public
  213.     { Public-Deklarationen }
  214.     property PhoneSupport: Boolean read GetPhoneSupport;
  215.     property LineSupport: Boolean read GetLineSupport;
  216.     property CanDial: Boolean read GetCanDial;
  217.     property Handset: Boolean read GetHandset write SetHandSet;
  218.     property Speaker: Boolean read GetSpeaker write SetSpeaker;
  219.     property Headset: Boolean read GetHeadSet write SetHeadSet;
  220.     property InboundCallExist: Boolean index 1 read GetCallExist;
  221.     property OutboundCallExist:Boolean index 2 read GetCallExist;
  222.   end;
  224. var
  225.   Form1: TForm1;
  227. implementation
  229. uses linedlg;
  231. {$R *.dfm}
  233. procedure TForm1.Beenden1Click(Sender: TObject);
  234. begin
  235.   Close;
  236. end;
  238. procedure TForm1.FormCreate(Sender: TObject);
  239. var TempLineDevice: TTAPILineDevice;
  240.     TempPhoneDevice: TTAPIPhoneDevice;
  241.     i: Integer;
  242.     LastDev:Integer;
  243. begin
  244.   UpdateCallerInfo;
  245.   if TAPILineService1.Version < 3.8 then Close;
  246.   HandSetGainBar.Max:=$FFFF;
  247.   HandSetVolumeBar.Max:=$FFFF;
  248.   HeadSetGainBar.Max:=$FFFF;
  249.   HeadSetVolumeBar.Max:=$FFFF;
  250.   SpeakerGainBar.Max:=$FFFF;
  251.   SpeakerVolumeBar.Max:=$FFFF;
  252.   Label1.Caption:='';
  253.   LastDev:=0;
  254.   Memo1.Lines.Add('System - Check');
  255.   TAPILineService1.Active:=True;
  256.   TempLineDevice:=TTAPILineDevice.Create(self);
  257.   TempLineDevice.Service:=TAPILineService1;
  258.   ComboBox1.Clear;
  259.   for i:=0 to TAPILineService1.NumDevice -1 do
  260.   begin
  261.     TempLineDevice.ID:=i;
  262.     if mmInteractiveVoice in TempLineDevice.Caps.MediaModes then
  263.       LastDev:=i;
  264.     ComboBox1.Items.Add(TempLineDevice.Caps.Name);
  265.   end;
  266.   TAPILineDevice1.ID:=LastDev;
  267.   TempLineDevice.Free;
  268.   TAPIPhoneService1.Active:=True;
  269.   ComboBox2.Clear;
  270.   ComboBox2.Items.Add('Phone Support disabled');
  271.   TempPhoneDevice:=TTAPIPhoneDevice.Create(self);
  272.   try
  273.     try
  274.       TempPhoneDevice.Service:=TAPIPhoneService1;
  275.       for i:=0 to TAPIPhoneService1.NumDevice -1 do
  276.       begin
  277.         TempPhoneDevice.ID:=i;
  278.         ComboBox2.Items.Add(TempPhoneDevice.Caps.Name);
  279.       end;
  280.     except
  281.       // Not Phone Devices avalible !!
  282.     end
  283.   finally
  284.     TempPhoneDevice.Free;
  285.   end;
  286.   ComboBox2.ItemIndex:=0;
  287.   
  288.   TAPILine1.Active:=True;
  289. end;
  291. function TForm1.GetPhoneSupport: Boolean;
  292. var i: Integer;
  293. begin
  294.   Result:=False;
  295.   if TAPIPhoneService1.Active then
  296.   begin
  297.     if (TAPIPhoneService1.NumDevice > 0) then
  298.     begin
  299.       for i:=0 to 3 do
  300.       begin
  301.         If TAPILineDevice1.ID = LinesFromPhone[i] then
  302.         begin
  303.           FLinePriority:=False;
  304.           Result:=True;
  305.           break;
  306.         end;  
  307.       end;
  308.     end;
  309.   end;
  310. end;
  312. function TForm1.GetLineSupport: Boolean;
  313. begin
  314.   Result:=False;
  315.   if TAPILineService1.Active then
  316.   begin
  317.     if TAPILineService1.NumDevice > 0 then
  318.     begin
  319.       if LinesFromPhone[0]<> DWORD(-1) then
  320.       begin
  321.         FLinePriority:=False;
  322.         Result:=True;
  323.       end;
  324.     end;
  325.   end;
  326. end;   
  328. procedure TForm1.FormDestroy(Sender: TObject);
  329. begin
  330.   PlaySound(nil,hInstance,SND_PURGE);
  331.   TAPIPhoneService1.Active:=False;
  332.   TAPILineService1.Active:=False;
  333. end;
  335. procedure TForm1.TAPILine1AfterOpen(Sender: TObject);
  336. var i: Integer;
  337.     aTerm: TTermCapsItem;
  338. begin
  339.   if TAPILine1.Status.NumActiveCalls <> 0 then
  340.   begin
  341.     TAPICallList1.UpdateList;
  343.   end;
  344.   if TAPILine1.Active then Memo1.Lines.Add('Lines - Check: OK');
  345.    StatusBar1.SimpleText:=TAPILineDevice1.Caps.Name;
  347.   if PhoneSupport then
  348.   begin
  349.     //TAPIPhone1.Device.ID:=TAPILine1.PhoneID;
  350.     ComboBox2.ItemIndex:=TAPIPhone1.Device.ID+1;
  351.     TAPIPhone1.Active:=True;
  352.     //for i:=0 to 3 do LinesFromPhone[i]:=DWord(-1);
  353.     //TAPIPhone1.GetLineIDs(LinesFromPhone);
  354.     Memo1.Lines.Add(TAPIPhone1.Device.Caps.Name);
  355.     Memo1.Lines.Add('Phone - Check: OK');
  356.   end
  357.   else
  358.     Memo1.Lines.Add('Phone - Check: ERROR');
  360.   for i:=0 to TAPILine1.Device.Caps.TerminalCaps.Count-1 do
  361.   begin
  362.     aTerm:=TAPILine1.Device.Caps.TerminalCaps.Items[i];
  363.     if aTerm.TermDev = ltdPhone then
  364.     begin
  366.     end
  367.   end;
  369.   DialButton.Enabled:=CanDial;
  370.   TAPIPhone1StateDisplay(self);
  371.   DisplayHandSetGain(True);
  372.   DisplayHandSetVol(True);
  373.   DisplayHeadSetGain(True);
  374.   DisplayHeadSetVol(True);
  375.   DisplaySpeakerGain(True);
  376.   DisplaySpeakerVol(True);
  377. end;
  379. procedure TForm1.TAPIPhone1AfterOpen(Sender: TObject);
  380. var i: Integer;
  381. begin
  382.   for i:=0 to 3 do LinesFromPhone[i]:=DWord(-1);
  383.   TAPIPhone1.GetLineIDs(LinesFromPhone);
  384.   if TAPIPhone1.Active then Memo1.Lines.Add('Phone - Check: OK');
  385.    StatusBar1.SimpleText:=TAPIPhoneDevice1.Caps.Name;
  387.   if LineSupport then
  388.   begin
  389.     if LinesFromPhone[1] = DWORD(-1) then
  390.       TAPILine1.Device.ID:=LinesFromPhone[0]
  391.     else
  392.     begin
  393.       SelLineDlg:=TSelLineDlg.Create(self);
  394.       SelLineDlg.ComboBox1.Clear;
  395.       SelLineDlg.ComboBox1.ItemIndex:=-1;
  396.       for i:=0 to 3 do
  397.       begin
  398.         if LinesFromPhone[i] <> DWord(-1) then
  399.         begin
  400.           TAPILine1.Device.ID:=LinesFromPhone[i];
  401.           SelLineDlg.ComboBox1.Items.Add(TAPILine1.Device.Caps.Name);
  402.           SelLineDlg.ComboBox1.ItemIndex:=0;
  403.         end;
  404.       end;
  405.       SelLineDlg.ShowModal;
  406.       TAPILine1.Device.ID:=LinesFromPhone[SelLineDlg.ComboBox1.ItemIndex];
  407.       SelLineDlg.Free;
  408.     end;
  409.     ComboBox1.ItemIndex:=TAPILine1.Device.ID;
  410.     TAPILine1.Active:=True;
  411.     Memo1.Lines.Add(TAPILine1.Device.Caps.Name);
  412.     Memo1.Lines.Add('Line - Check: OK');
  413.   end;
  414.   DialButton.Enabled:=CanDial;
  415.   TAPIPhone1StateDisplay(self);
  416.   DisplayHandSetGain(True);
  417.   DisplayHandSetVol(True);
  418.   DisplayHeadSetGain(True);
  419.   DisplayHeadSetVol(True);
  420.   DisplaySpeakerGain(True);
  421.   DisplaySpeakerVol(True);
  422. end;
  424. procedure TForm1.ClearButtonClick(Sender: TObject);
  425. begin
  426.   Memo1.Lines.Clear;
  427.   if PhoneSupport then
  428.     TAPIPhone1StateDisplay(self);
  429.   TAPIAddress1.Address:='';
  430.   DialButton.Enabled:=CanDial;
  431. end;
  433. function TForm1.GetCanDial: Boolean;
  434. begin
  435.   Result:=False;
  436.   with TAPIAddress1 do
  437.   begin
  438.     if Line.Active and (Address <> '') and
  439.       (lfMakeCall in Line.Device.Caps.LineFeatures) then Result:=True;
  440.   end;
  441. end;
  443. procedure TForm1.DialButtonClick(Sender: TObject);
  444. //var Addr: PChar;
  445. begin
  446.   Handset:=Not(Handset);
  447.   if DialButton.Caption='Dial' then
  448.   begin
  449.     ClearButton.Enabled:=False;
  450.     //
  451.     //Addr:=PChar(Edit1.Text);
  452.     {if Not (amAddressID in TAPIAddress1.Line.Device.Caps.AddressModes ) or DialNumber.Checked then
  453.     begin
  454.       try
  455.         TAPIAddress1.GetAddressID(Addr);
  456.       except
  457.       end;
  458.       CallParams1.AddressMode:=amDialableAddr;
  459.       CallParams1.AddressID:=TAPIAddress1.ID;
  460.       CallParams1.OrigAddress:=Addr;
  461.     end
  462.     else
  463.       CallParams1.AddressMode:=amAddressID; }
  464.     TAPIAddress1.MakeCall;
  465.   end;
  466.   if DialButton.Caption='Answer'then
  467.     if InboundCallExist then InBoundCall.Answer;
  468.   if DialButton.Caption='Drop' then
  469.   begin
  470.     if InboundCallExist then InboundCall.Drop;
  471.     if OutboundCallExist then OutBoundCall.Drop;
  472.     ClearButton.Enabled:=True;
  473.     SpkCheckBox.Checked:=False;
  474.     HdsCheckBox.Checked:=False;
  475.   end;
  476. end;
  478. procedure TForm1.KeypadClick(Sender: TObject);
  479. var Key: Integer;
  480. begin
  481.   Key:=-1;
  482.   if Sender = Button1 then Key:=Button1.Tag;
  483.   if Sender = Button2 then Key:=Button2.Tag;
  484.   if Sender = Button3 then Key:=Button3.Tag;
  485.   if Sender = Button4 then Key:=Button4.Tag;
  486.   if Sender = Button5 then Key:=Button5.Tag;
  487.   if Sender = Button6 then Key:=Button6.Tag;
  488.   if Sender = Button7 then Key:=Button7.Tag;
  489.   if Sender = Button8 then Key:=Button8.Tag;
  490.   if Sender = Button9 then Key:=Button9.Tag;
  491.   if Sender = Button10 then Key:=Button10.Tag;
  492.   if Sender = Button11 then Key:=Button11.Tag;
  493.   if Sender = Button12 then Key:=Button12.Tag;
  494.   if (TAPILine1.Status.NumActiveCalls <> DWord(-1)) then
  495.   begin
  496.     if Key < 10 then
  497.       TAPIAddress1.Address:=TAPIAddress1.Address+IntToStr(Key)
  498.     else
  499.     begin
  500.       if Key=10 then TAPIAddress1.Address:=TAPIAddress1.Address+'*';
  501.       if Key=11 then TAPIAddress1.Address:=TAPIAddress1.Address+'#';
  502.     end;
  503.   end
  504.   else
  505.   begin
  506.     InBoundDigits.GenerateDigits:=IntToStr(Key);
  507.     InBoundDigits.GenerateDigit;
  508.     OutBoundDigits.GenerateDigits:=IntToStr(Key);
  509.     OutBoundDigits.GenerateDigit;
  510.   end;
  511.   DialButton.Enabled:=CanDial;
  512.   TAPIPhone1StateDisplay(self);
  513. end;
  515. function TForm1.GetHeadSet: Boolean;
  516. begin
  517.   Result:=FHeadSetStatus;
  518.   if PhoneSupport then
  519.     Result:=Result and not(phsmOnHook = TAPIPhone1.Status.HeadSetHookSwitchMode);
  520. end;
  522. procedure TForm1.SetHeadSet(const Value: Boolean);
  523. begin
  524.   if FHeadSetStatus <> Value then
  525.   begin
  526.     if PhoneSupport then
  527.     begin
  528.       if pfSetHookSwitchHeadSet in TAPIPhone1.Device.Caps.PhoneFeatures then
  529.         if Value then
  530.           TAPIPhone1.HeadSetHookSwitchMode:=phsmMicSpeaker
  531.         else
  532.           TAPIPhone1.HeadSetHookSwitchMode:=phsmOnHook;
  533.     end;
  534.     FHeadSetStatus:=Value;
  535.   end;
  536. end;
  538. function TForm1.GetHandset: Boolean;
  539. begin
  540.   Result:=FHandsetStatus;
  541.   if PhoneSupport then
  542.     Result:=Result and not(phsmOnHook = TAPIPhone1.Status.HandSetHookSwitchMode);
  543.     //.HandSetHookSwitchOffHook;
  544. end;
  546. procedure TForm1.SetHandSet(const Value: Boolean);
  547. begin
  548.   if FHandsetStatus <> Value then
  549.   begin
  550.     if PhoneSupport then
  551.     begin
  552.       if pfSetHookSwitchHandset in TAPIPhone1.Device.Caps.PhoneFeatures then
  553.         if Value then
  554.           TAPIPhone1.HandSetHookSwitchMode:=phsmMicSpeaker
  555.         else
  556.           TAPIPhone1.HandSetHookSwitchMode:=phsmOnHook;
  557.     end;
  558.     FHandsetStatus:=Value;
  559.   end;
  560. end;
  562. function TForm1.GetSpeaker: Boolean;
  563. begin
  564.   Result:=FSpeakerStatus;
  565.   if PhoneSupport then
  566.     Result:=Result and not(phsmOnHook = TAPIPhone1.Status.SpeakerHookSwitchMode);
  567. end;
  569. procedure TForm1.SetSpeaker(const Value: Boolean);
  570. begin
  571.   if FSpeakerStatus <> Value then
  572.   begin
  573.     if PhoneSupport then
  574.     begin
  575.       if pfSetHookSwitchSpeaker in TAPIPhone1.Device.Caps.PhoneFeatures then
  576.         if Value then
  577.           TAPIPhone1.SpeakerHookSwitchMode:=phsmMicSpeaker
  578.         else
  579.           TAPIPhone1.SpeakerHookSwitchMode:=phsmOnHook;
  580.     end;
  581.     FSpeakerStatus:=Value;
  582.   end;
  583. end;
  585. procedure TForm1.TAPILine1BeforeOpen(Sender: TObject);
  586. begin
  587.   ComboBox1.ItemIndex:=TAPILine1.Device.ID;
  588. end;
  590. procedure TForm1.TAPIPhone1Reply(Sender: TObject; AsyncFunc: TAsyncFunc;
  591.   Error: Cardinal);
  592. begin
  593.   if Error <> 0 then Memo1.Lines.Add('Error');
  594. end;
  596. procedure TForm1.TAPIPhone1StateDisplay(Sender: TObject);
  597. var i: Integer;
  598.     s: String;
  599. begin
  600.   Memo1.Lines.Clear;
  601.   if PhoneSupport and (TAPIPhone1.Display.NumRows >=1) then
  602.   begin
  603.     s:= TAPIPhone1.Display.GetDisplay;
  604.     for i:=0 to TAPIPhone1.Display.NumRows do
  605.       Memo1.Lines.Add(copy(s,i*(TAPIPhone1.Display.NumColumn+1),TAPIPhone1.Display.NumColumn));
  606.   end
  607.   else
  608.   begin
  609.     Memo1.Lines.Add(TAPIAddress1.Address);
  610.   end;
  611. end;
  613. procedure TForm1.Disconnect;
  614. begin
  615.   Label1.Caption:='';
  616.   HoldButton.Enabled:=False;
  617.   ClearButton.Enabled:=True;
  618.   DialButton.Caption:='Dial';
  619.   SpkCheckBox.Enabled:=False;
  620.   SpkCheckBox.Checked:=False;
  621.   HdsCheckBox.Enabled:=False;
  622.   HdsCheckBox.Checked:=False;
  623. end;
  625. procedure TForm1.InboundCallStateDisconnected(Sender: TObject;
  626.   DisconnectedMode: TLineDisconnectMode; Rights: TLineCallPrivilege);
  627. begin
  628.   Disconnect;
  629.   InboundCall.DeallocateCall;
  630. end;
  632. procedure TForm1.OutboundCallStateDisconnected(Sender: TObject;
  633.   DisconnectedMode: TLineDisconnectMode; Rights: TLineCallPrivilege);
  634. begin
  635.   PlaySound(nil,0,SND_ALIAS or SND_ASYNC or SND_LOOP);
  636.   Disconnect;
  637.   PlaySound(nil,hInstance,SND_PURGE);
  638.   OutBoundCall.DeallocateCall;
  639. end;
  641. procedure TForm1.ComboBox1Change(Sender: TObject);
  642. begin
  643.   ClearButton.Enabled:=True;
  644.   Combobox2.ItemIndex:=0;
  645.   TAPILine1.Active:=False;
  646.   TAPIPhone1.Active:=False;
  647.   TAPILine1.Device.ID:=ComboBox1.ItemIndex;
  648.   try
  649.     TAPILine1.Active:=True;
  650.   except
  651.     on ELineError do MessageDlg('Line not active! ',mtError,[mbOK],0);
  652.   end
  653. end;
  655. procedure TForm1.ComboBox2Change(Sender: TObject);
  656. var i: Integer;
  657. begin
  658.   ClearButton.Enabled:=True;
  659.   //Combobox1.ItemIndex:=0;
  660.   TAPILine1.Active:=False;
  661.   TAPIPhone1.Active:=False;
  662.   if ComboBox2.ItemIndex > 0 then
  663.   begin
  664.     TAPIPhoneDevice1.ID:=ComboBox2.ItemIndex -1;
  665.     try
  666.       TAPIPhone1.Active:=True;
  667.     except
  668.       on ELineError do MessageDlg('Phone not active! ',mtError,[mbOK],0);
  669.     end
  670.   end
  671.   else
  672.   begin
  673.     for i:=0 to 3 do LinesFromPhone[i]:=DWord(-1);
  674.     TAPILine1.Active:=True;
  675.   end;
  676. end;
  678. procedure TForm1.OutboundCallStateConnected(Sender: TObject;
  679.   ConnectedMode: TLineConnectedModes; Rights: TLineCallPrivilege);
  680. begin
  681.   Label1.Caption:='Please speak now';
  682.   SpkCheckBox.Enabled:=True;
  683.   HdsCheckBox.Enabled:=True;
  684.   HoldButton.Enabled:=lcfHold in TAPIAddress1.Caps.CallFeatures;
  685.   DialButton.Caption:='Drop';
  686. end;
  688. procedure TForm1.InboundCallStateConnected(Sender: TObject;
  689.   ConnectedMode: TLineConnectedModes; Rights: TLineCallPrivilege);
  690. begin
  691.   Label1.Caption:='Please speak now';
  692.   SpkCheckBox.Enabled:=True;
  693.   HoldButton.Enabled:=lcfHold in TAPIAddress1.Caps.CallFeatures;
  694.   DialButton.Caption:='Drop';
  695. end;
  697. procedure TForm1.InboundCallStateOnHold(Sender: TObject;
  698.   Rights: TLineCallPrivilege);
  699. begin
  700.   Label1.Caption:='Call is hold now';
  701. end;
  703. procedure TForm1.InboundCallStateOffering(Sender: TObject;
  704.   OfferingMode: TLineOfferingModes; Rights: TLineCallPrivilege);
  705. begin
  706.   if Rights=[] then Rights:=TAPIAddress1.InBoundCall.Status.CallPrivilege;
  707.   if (cpOwner in Rights) then
  708.   begin
  709.     if (lomActive in OfferingMode) or (OfferingMode=[])then
  710.       if lacfAcceptToAlert in TAPIAddress1.Caps.AddrCapFlags then
  711.         TAPIAddress1.InBoundCall.Accept;
  712.       if lafPickup in TAPIAddress1.Status.AddressFeatures then
  713.       begin
  714.         //  TAPIAddress1.Pickup;
  715.       end;
  716.     //DialButton.Caption:='Answer';
  717.     //DialButton.Enabled:=True;
  718.     //Label1.Caption:='Press Answer to speak';
  719.   end;
  720. end;
  722. procedure TForm1.InboundCallStateIdle(Sender: TObject;
  723.   Rights: TLineCallPrivilege);
  724. begin
  725.   Label1.Caption:='';
  726.   InboundCall.DeallocateCall;
  727.   DialButton.Caption:='Dial';
  728. end;
  730. procedure TForm1.HoldButtonClick(Sender: TObject);
  731. begin
  732.   if InboundCallExist then
  733.   begin
  734.     if csOnHold in InboundCall.Status.State  then
  735.       InboundCall.UnHold
  736.     else
  737.       InboundCall.Hold;
  738.   end;
  739.   if OutboundCallExist then
  740.   begin
  741.     if csOnHold in OutboundCall.Status.State then
  742.       OutboundCall.UnHold
  743.     else
  744.       OutboundCall.Hold;
  745.   end;
  746. end;
  748. function TForm1.GetCallExist(const Index: Integer): Boolean;
  749. begin
  750.   case Index of
  751.     1: if (InboundCall.Handle <> DWORD(-1)) then Result:=True else Result:=False;
  752.     2: if (OutboundCall.Handle <> DWORD(-1))then Result:=True else Result:=False;
  753.   else
  754.     Result:=False;
  755.   end;
  756. end;
  758. procedure TForm1.OutboundCallStateProceeding(Sender: TObject;
  759.   Rights: TLineCallPrivilege);
  760. begin
  761.   Label1.Caption:='Proceeding ...';
  762.   DialButton.Caption:='Drop';
  763. end;
  765. procedure TForm1.OutboundCallStateIdle(Sender: TObject;
  766.   Rights: TLineCallPrivilege);
  767. begin
  768.   Disconnect;
  769.   Label1.Caption:='';
  770.   OutboundCall.DeallocateCall;
  771.   DialButton.Caption:='Dial';
  772. end;
  774. procedure TForm1.TAPIPhone1StateHandSetGain(Sender: TObject);
  775. begin
  776.   DisplayHandSetGain;
  777. end;
  779. procedure TForm1.TAPIPhone1StateHandSetVolume(Sender: TObject);
  780. begin
  781.   DisplayHandSetVol;
  782. end;
  784. procedure TForm1.TAPIPhone1StateHeadSetGain(Sender: TObject);
  785. begin
  786.   DisplayHeadSetGain;
  787. end;
  789. procedure TForm1.TAPIPhone1StateHeadSetVolume(Sender: TObject);
  790. begin
  791.   DisplayHeadSetVol;
  792. end;
  794. procedure TForm1.TAPIPhone1StateSpeakerGain(Sender: TObject);
  795. begin
  796.   DisplaySpeakerGain;
  797. end;
  799. procedure TForm1.TAPIPhone1StateSpeakerVolume(Sender: TObject);
  800. begin
  801.   DisplaySpeakerVol;
  802. end;
  804. procedure TForm1.HandSetGainUpDownChangingEx(Sender: TObject;
  805.   var AllowChange: Boolean; NewValue: Smallint;
  806.   Direction: TUpDownDirection);
  807. begin
  808.   TAPIPhone1.HandSetGain:=RealPos(NewValue);
  809. end;
  811. procedure TForm1.VolUpDownChangingEx(Sender: TObject;
  812.   var AllowChange: Boolean; NewValue: Smallint;
  813.   Direction: TUpDownDirection);
  814. begin
  815.   TAPIPhone1.HandSetVolume:=RealPos(NewValue);
  816. end;
  818. procedure TForm1.SpeakerVolUpDownChangingEx(Sender: TObject;
  819.   var AllowChange: Boolean; NewValue: Smallint;
  820.   Direction: TUpDownDirection);
  821. begin
  822.   TAPIPhone1.SpeakerVolume:=RealPos(NewValue);
  823. end;
  825. procedure TForm1.SpeakerGainUpDownChangingEx(Sender: TObject;
  826.   var AllowChange: Boolean; NewValue: Smallint;
  827.   Direction: TUpDownDirection);
  828. begin
  829.   TAPIPhone1.SpeakerGain:=RealPos(NewValue);
  830. end;
  832. procedure TForm1.HeadSetVolUpDownChangingEx(Sender: TObject;
  833.   var AllowChange: Boolean; NewValue: Smallint;
  834.   Direction: TUpDownDirection);
  835. begin
  836.   TAPIPhone1.HeadSetVolume:=RealPos(NewValue);
  837. end;
  839. procedure TForm1.HeadSetGainUpDownChangingEx(Sender: TObject;
  840.   var AllowChange: Boolean; NewValue: Smallint;
  841.   Direction: TUpDownDirection);
  842. begin
  843.   TAPIPhone1.HeadSetGain:=RealPos(NewValue);
  844. end;
  846. function TForm1.RealPos(Value: Smallint): DWord;
  847. begin
  848.   Result:=Trunc((Value / 100)*$FFFF);
  849. end;
  851. function TForm1.VirtPos(Value: Integer): Smallint;
  852. begin
  853.   Result:=Trunc((Value / $FFFF)*100);
  854. end;
  856. procedure TForm1.DisplaySpeakerVol(UpdateUpDown: Boolean = False);
  857. begin
  858.   if PhoneSupport=False then
  859.   begin
  860.     SpeakerVolUpDown.Enabled:=False;
  861.     SpeakerVolUpDown.Visible:=False;
  862.     SpeakerVolumeBar.Visible:=False;
  863.   end
  864.   else
  865.   begin
  866.     SpeakerVolUpDown.Visible:=True;
  867.     SpeakerVolumeBar.Visible:=True;
  868.     SpeakerVolUpDown.Enabled:=TAPIPhone1.Device.Caps.SpeakerHookSwitchVolumeFlag;
  869.     SpeakerVolumeBar.Position:=TAPIPhone1.SpeakerVolume;
  870.     if UpdateUpDown then
  871.       SpeakerVolUpDown.Position:=VirtPos(TAPIPhone1.SpeakerVolume);
  872.   end;
  873. end;
  875. procedure TForm1.DisplaySpeakerGain(UpdateUpDown: Boolean = False);
  876. begin
  877.   if PhoneSupport=False then
  878.   begin
  879.     SpeakerGainUpDown.Enabled:=False;
  880.     SpeakerGainUpDown.Visible:=False;
  881.     SpeakerGainBar.Visible:=False;
  882.   end
  883.   else
  884.   begin
  885.     SpeakerGainUpDown.Visible:=True;
  886.     SpeakerGainBar.Visible:=True;
  887.     SpeakerGainUpDown.Enabled:=TAPIPhone1.Device.Caps.SpeakerHookSwitchGainFlag;
  888.     SpeakerGainBar.Position:=TAPIPhone1.SpeakerGain;
  889.     if UpdateUpDown then
  890.       SpeakerGainUpDown.Position:=VirtPos(TAPIPhone1.SpeakerGain);
  891.   end;
  892. end;
  894. procedure TForm1.DisplayHandSetGain(UpdateUpDown: Boolean = False);
  895. begin
  896.   if PhoneSupport=False then
  897.   begin
  898.     HandSetGainUpDown.Enabled:=False;
  899.     HandSetGainUpDown.Visible:=False;
  900.     HandSetGainBar.Visible:=False;
  901.   end
  902.   else
  903.   begin
  904.     HandSetGainUpDown.Visible:=True;
  905.     HandSetGainBar.Visible:=True;
  906.     HandSetGainUpDown.Enabled:=TAPIPhone1.Device.Caps.HandsetHookSwitchGainFlag;
  907.     HandSetGainBar.Position:=TAPIPhone1.HandSetGain;
  908.     if UpdateUpDown then
  909.       HandSetGainUpDown.Position:=VirtPos(TAPIPhone1.HandSetGain);
  910.   end;
  911. end;
  913. procedure TForm1.DisplayHandSetVol(UpdateUpDown: Boolean = False);
  914. begin
  915.   if PhoneSupport=False then
  916.   begin
  917.     HandSetVolUpDown.Enabled:=False;
  918.     HandSetVolUpDown.Visible:=False;
  919.     HandSetVolumeBar.Visible:=False;
  920.   end
  921.   else
  922.   begin
  923.     HandSetVolUpDown.Visible:=True;
  924.     HandSetVolumeBar.Visible:=True;
  925.     HandSetVolUpDown.Enabled:=TAPIPhone1.Device.Caps.HandsetHookSwitchVolumeFlag;
  926.     HandSetVolumeBar.Position:=TAPIPhone1.HandSetVolume;
  927.     if UpdateUpDown then
  928.       HandSetVolUpDown.Position:=VirtPos(TAPIPhone1.HandSetVolume);
  929.   end;
  930. end;
  932. procedure TForm1.DisplayHeadSetGain(UpdateUpDown: Boolean = False);
  933. begin
  934.   if PhoneSupport=False then
  935.   begin
  936.     HeadSetGainUpDown.Enabled:=False;
  937.     HeadSetGainUpDown.Visible:=False;
  938.     HeadSetGainBar.Visible:=False;
  939.   end
  940.   else
  941.   begin
  942.     HeadSetGainUpDown.Visible:=True;
  943.     HeadSetGainBar.Visible:=True;
  944.     HeadSetGainUpDown.Enabled:=TAPIPhone1.Device.Caps.HeadsetHookSwitchGainFlag;
  945.     HeadSetGainBar.Position:=TAPIPhone1.HeadSetGain;
  946.     if UpdateUpDown then
  947.       HeadSetGainUpDown.Position:=VirtPos(TAPIPhone1.HeadSetGain);
  948.   end;
  949. end;
  951. procedure TForm1.DisplayHeadSetVol(UpdateUpDown: Boolean = False);
  952. begin
  953.   if PhoneSupport=False then
  954.   begin
  955.     HeadSetVolUpDown.Enabled:=False;
  956.     HeadSetVolUpDown.Visible:=False;
  957.     HeadSetVolumeBar.Visible:=False;
  958.   end  
  959.   else
  960.   begin
  961.     HeadSetVolUpDown.Visible:=True;
  962.     HeadSetVolumeBar.Visible:=True;
  963.     HeadSetVolUpDown.Enabled:=TAPIPhone1.Device.Caps.HeadsetHookSwitchVolumeFlag;
  964.     HeadSetVolumeBar.Position:=TAPIPhone1.HeadSetVolume;
  965.     if UpdateUpDown then
  966.       HeadSetVolUpDown.Position:=VirtPos(TAPIPhone1.HeadSetVolume);
  967.   end;
  968. end;
  970. procedure TForm1.TAPILineDevice1StateClose(Sender: TObject);
  971. begin
  972.   MessageDlg('Device is Closed',mtInformation,[mbOK],0);
  973. end;
  975. procedure TForm1.OutboundCallStateDialing(Sender: TObject;
  976.   Rights: TLineCallPrivilege);
  977. begin
  978.   PlaySound(nil,0,SND_ALIAS or SND_ASYNC or SND_LOOP);
  979.   PlaySound(nil,hInstance,SND_PURGE);
  980.   Label1.Caption:='Dialing ...';
  981. end;
  983. procedure TForm1.OutboundCallStateRingBack(Sender: TObject;
  984.   Rights: TLineCallPrivilege);
  985. begin
  986.   Label1.Caption:='Ring Back';
  987. end;
  989. procedure TForm1.OutboundCallStateDialTone(Sender: TObject;
  990.   DialTonMode: TLineDialToneMode; Rights: TLineCallPrivilege);
  991. var SMode: String;
  992. begin
  993.   PlaySound(nil,0,SND_ALIAS or SND_ASYNC or SND_LOOP);
  994.   PlaySound(nil,hInstance,SND_PURGE);
  995.   case DialTonMode of
  996.     dtmNormal: SMode:='normal';
  997.     dtmSpecial: SMode:='special';
  998.     dtmInternal: SMode:='internal';
  999.     dtmExternal: SMode:='external';
  1000.     dtmUnknown: SMode:='unknown';
  1001.     dtmUnavail: SMode:='unavail';
  1002.   end;
  1003.   Label1.Caption:='Dialton '+SMode;
  1004. end;
  1006. procedure TForm1.InboundCallStateAccepted(Sender: TObject;
  1007.   Rights: TLineCallPrivilege);
  1008. begin
  1009.   DialButton.Caption:='Answer';
  1010.   DialButton.Enabled:=True;
  1011.   Label1.Caption:='Press Answer to speak';
  1012. end;
  1014. procedure TForm1.TAPILineDevice1StateRinging(Sender: TObject;
  1015.   RingModeIndex, RingCounter: Cardinal);
  1016. begin
  1017.   DialButton.Caption:='Answer';
  1018.   DialButton.Enabled:=True;
  1019.   Label1.Caption:='Press Answer to speak ';
  1020.   if RingCounter > 5 then
  1021.   begin
  1022.     DialButton.Enabled:=False;
  1023.     InboundCall.Drop;
  1024.   end;
  1025. end;
  1027. procedure TForm1.TAPIAddress1AppNewCall(Sender: TObject; Call: TTAPICall;
  1028.   AddressID: Cardinal; Privilege: TLineCallPrivilege);
  1029. begin
  1030.   UpdateCallerInfo;
  1031.   {if OutBoundCall.Handle = Call.Handle then
  1032.     OutBoundCall.Accept; }
  1033. end;
  1035. procedure TForm1.OutboundCallStateBusy(Sender: TObject;
  1036.   BusyMode: TLineBusyMode; Rights: TLineCallPrivilege);
  1037. begin
  1038.   PlaySound(nil,0,SND_ALIAS or SND_ASYNC or SND_LOOP);
  1039.   PlaySound(nil,hInstance,SND_PURGE);
  1040.   if lcfCompleteCall in OutBoundCall.Status.Features then
  1041.   begin
  1042.     OutBoundCall.CompletionMode:=lccmCampon;
  1043.     OutBoundCall.CompleteCall;
  1044.   end;
  1045. end;
  1047. procedure TForm1.SpkCheckBoxClick(Sender: TObject);
  1048. begin
  1049.   Speaker:=Not(Speaker);
  1050. end;
  1052. procedure TForm1.HdsCheckBoxClick(Sender: TObject);
  1053. begin
  1054.   HeadSet:=Not(HeadSet);
  1055. end;
  1057. procedure TForm1.TAPILineDevice1StateNumCalls(Sender: TObject);
  1058. begin
  1059.  // DEBUG
  1060. end;
  1062. procedure TForm1.ReInitClick(Sender: TObject);
  1063. begin
  1064.   TAPIPhone1.Active:=False;
  1065.   TAPILine1.Active:=False;
  1066.   TAPIPhoneService1.Active:=False;
  1067.   TAPILineService1.Active:=False;
  1068.   TAPIAddress1.Address:='';
  1069.   Sleep(1000);
  1070.   TAPILineService1.Active:=True;
  1071.   TAPIPhoneService1.Active:=True;
  1072.   TAPILine1.Active:=True;
  1073. end;
  1075. procedure TForm1.TAPILine1Reply(Sender: TObject; AsyncFunc: TAsyncFunc;
  1076.   Error: Cardinal);
  1077. begin
  1078.   if Error <> 0 then Label1.Caption:='Line Error';
  1079. end;
  1081. procedure TForm1.OutboundCallReply(Sender: TObject; AsyncFunc: TAsyncFunc;
  1082.   Error: Cardinal);
  1083. begin
  1084.   if Error <> 0 then Label1.Caption:='Call Error'
  1085.   else
  1086.   if AsyncFunc =afMakeCall then
  1087.   begin
  1088.     Label1.Caption:='Please use your Handset';
  1089.     PlaySound('RingOut',0,SND_ALIAS or SND_ASYNC or SND_LOOP);
  1090.   end;  
  1091. end;
  1093. procedure TForm1.DialNumberClick(Sender: TObject);
  1094. begin
  1095.   DialNumber.Checked:=Not(DialNumber.Checked);
  1096. end;
  1098. procedure TForm1.OutboundCallStateUnknown(Sender: TObject;
  1099.   Rights: TLineCallPrivilege);
  1100. begin
  1101.   OutBoundCall.SetMediaMode([mmInteractiveVoice]);
  1102. end;
  1106. procedure TForm1.TAPIPhone1BeforeOpen(Sender: TObject);
  1107. begin
  1108.   ComboBox2.ItemIndex:=TAPIPhone1.Device.ID+1;
  1109. end;
  1111. procedure TForm1.LookClick(Sender: TObject);
  1112. begin
  1113.   Look.Checked:=Not(Look.Checked);
  1114.   KeypadGroupBox.Enabled:=Not(Look.Checked);
  1115. end;
  1117. procedure TForm1.UpdateCallerInfo;
  1118. var usedInfo: TCallInfo;
  1119. begin
  1120.   usedInfo:=nil;
  1121.   if InboundCallExist then usedInfo:=InboundCall.Info;
  1122.   if OutboundCallExist then usedInfo:=OutboundCall.Info;
  1123.   if InboundCallExist or OutboundCallExist then
  1124.   begin
  1125.     with usedInfo do
  1126.     begin
  1127.       case Origin of
  1128.         coOutBound: Label5.Caption:='OutBound';
  1129.         coInternal: Label5.Caption:='Internal';
  1130.         coExternal: Label5.Caption:='External';
  1131.         coUnknown: Label5.Caption:='Unknown';
  1132.         coUnavail: Label5.Caption:='Unavail';
  1133.         coConference: Label5.Caption:='Conference';
  1134.         coInbound: Label5.Caption:='Inbound';
  1135.       end;
  1136.       Label6.Caption:=CallerID;
  1137.       Label8.Caption:=CalledID;
  1138.       Label9.Caption:=Display;
  1139.     end;
  1140.   end
  1141.   else
  1142.   begin
  1143.     Label5.Caption:='';
  1144.     Label6.Caption:='';
  1145.     Label8.Caption:='';
  1146.     Label9.Caption:='';
  1147.   end;
  1148. end;
  1150. procedure TForm1.OutboundCallInfoDisplay(Sender: TObject);
  1151. begin
  1152.   UpdateCallerInfo;
  1153. end;
  1155. procedure TForm1.OutboundCallInfoOrigin(Sender: TObject);
  1156. begin
  1157.   UpdateCallerInfo;
  1158. end;
  1160. procedure TForm1.OutboundCallInfoCallerId(Sender: TObject);
  1161. begin
  1162.   UpdateCallerInfo;
  1163. end;
  1165. procedure TForm1.OutboundCallInfoCalledId(Sender: TObject);
  1166. begin
  1167.   UpdateCallerInfo;
  1168. end;
  1170. procedure TForm1.InboundCallInfoCalledId(Sender: TObject);
  1171. begin
  1172.   UpdateCallerInfo;
  1173. end;
  1175. procedure TForm1.InboundCallInfoCallerId(Sender: TObject);
  1176. begin
  1177.   UpdateCallerInfo;
  1178. end;
  1180. procedure TForm1.InboundCallInfoDisplay(Sender: TObject);
  1181. begin
  1182.   UpdateCallerInfo;
  1183. end;
  1185. procedure TForm1.InboundCallInfoOrigin(Sender: TObject);
  1186. begin
  1187.   UpdateCallerInfo;
  1188. end;
  1190. procedure TForm1.TAPILineService1LineCreate(Sender: TObject;
  1191.   NewDeviceID: Cardinal);
  1192. begin
  1193.   ReInitClick(Self);
  1194. end;
  1196. procedure TForm1.TAPIPhoneService1PhoneCreate(Sender: TObject;
  1197.   NewDeviceID: Cardinal);
  1198. begin
  1199.   ReInitClick(Self);
  1200. end;
  1202. procedure TForm1.TAPIPhoneService1PhoneRemove(Sender: TObject;
  1203.   DeviceID: Cardinal);
  1204. begin
  1205.   ReInitClick(Self);
  1206. end;
  1208. procedure TForm1.TAPILineService1LineRemove(Sender: TObject;
  1209.   DeviceID: Cardinal);
  1210. begin
  1211.   ReInitClick(Self);
  1212. end;
  1214. procedure TForm1.Neu1Click(Sender: TObject);
  1215. begin
  1216.   TAPILineConfigDlg1.Execute;
  1217. end;
  1219. end.