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

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

TAPI编程

开发平台：

C++ Builder

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