Отслеживание события поднятия трубки

unit VTAPILib_TLB;
 
// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //
 
// $Rev: 17244 $
// File generated on 04.05.2012 9:10:18 from Type Library described below.
 
// ************************************************************************  //
// Type Lib: vtapi.ocx (1)
// LIBID: {E3780A70-1FB7-4FA6-9BF4-75E77F8DB336}
// LCID: 0
// Helpfile: D:\ \_\_FDLib (Face Detection Library).       \\activex_  COM \VTapi.hlp
// HelpString: VTapi ActiveX Control module
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// Errors:
//   Hint: Member 'Record' of '_DVTapi' changed to 'Record_'
//   Hint: Member 'Record' of '_DVTapi' changed to 'Record_'
//   Error creating palette bitmap of (TVTapi) : No Server registered for this CoClass
// Cmdline:
//   tlibimp -p+ vtapi.ocx
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function 
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You   
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
{$ALIGN 4}
interface
 
uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
  
 
 
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  VTAPILibMajorVersion = 1;
  VTAPILibMinorVersion = 0;
 
  LIBID_VTAPILib: TGUID = '{E3780A70-1FB7-4FA6-9BF4-75E77F8DB336}';
 
  DIID__DVTapi: TGUID = '{5BDD4660-EEFE-44C9-9433-F8BE5D1F4366}';
  DIID__DVTapiEvents: TGUID = '{13EFF430-28E4-49F2-9337-D10ACB91D815}';
  CLASS_VTapi: TGUID = '{9A2D05A8-50D2-4490-9D0E-D89A52FE9B9B}';
type
 
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  _DVTapi = dispinterface;
  _DVTapiEvents = dispinterface;
 
// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  VTapi = _DVTapi;
 
 
// *********************************************************************//
// DispIntf:  _DVTapi
// Flags:     (4112) Hidden Dispatchable
// GUID:      {5BDD4660-EEFE-44C9-9433-F8BE5D1F4366}
// *********************************************************************//
  _DVTapi = dispinterface
    ['{5BDD4660-EEFE-44C9-9433-F8BE5D1F4366}']
    function PlaybackMelody(const MelodyString: WideString): WordBool; dispid 28;
    function GenerateTones(Freq1: Integer; Freq2: Integer; Duration: Integer): WordBool; dispid 27;
    function AnalyseInput: WordBool; dispid 25;
    function PassThrough: WordBool; dispid 31;
    function GenerateDTMF(const Keys: WideString): WordBool; dispid 26;
    function AnswerCall: WordBool; dispid 16;
    function IsOpened: WordBool; dispid 15;
    procedure Close; dispid 14;
    procedure Stop; dispid 13;
    function Open: WordBool; dispid 12;
    procedure AboutBox; dispid -552;
    function Pickup: WordBool; dispid 23;
    procedure HangUp; dispid 18;
    procedure Preferences; dispid 24;
    function PlaybackText(const Text: WideString): WordBool; dispid 22;
    function IsFileOpened: WordBool; dispid 21;
    function AssumeConnected: WordBool; dispid 30;
    function WaitForIdle(TimeToWait: Integer): WordBool; dispid 29;
    function PlaybackFile(const FileName: WideString): WordBool; dispid 19;
    function Dial(const PhoneNumber: WideString): WordBool; dispid 17;
    function Record_(const FileName: WideString): WordBool; dispid 20;
    property DeviceID: WideString dispid 10;
    property ComPort: WideString dispid 11;
    property KeysPressed: WideString dispid 9;
    property Flags: Integer dispid 8;
    property LogFile: WideString dispid 7;
    property AGC: WordBool dispid 6;
    property SpotColor: OLE_COLOR dispid 5;
    property ForegroundColor: OLE_COLOR dispid 4;
    property BackgroundColor: OLE_COLOR dispid 3;
    property SilenceDuration: Integer dispid 2;
    property SilenceLevel: Integer dispid 1;
  end;
 
// *********************************************************************//
// DispIntf:  _DVTapiEvents
// Flags:     (4096) Dispatchable
// GUID:      {13EFF430-28E4-49F2-9337-D10ACB91D815}
// *********************************************************************//
  _DVTapiEvents = dispinterface
    ['{13EFF430-28E4-49F2-9337-D10ACB91D815}']
    procedure OnDebug(const Message: WideString); dispid 1;
    procedure OnRing(Number: Integer); dispid 2;
    procedure OnOpened(const Device: WideString); dispid 3;
    procedure OnClosed(const Device: WideString); dispid 4;
    procedure OnDtmf(KeyCode: Integer); dispid 5;
    procedure OnBusy(Source: Integer); dispid 6;
    procedure OnDialtone(Source: Integer); dispid 7;
    procedure OnCallerID(const Number: WideString; const Name: WideString); dispid 8;
    procedure OnDataModem(const Device: WideString); dispid 9;
    procedure OnSilence; dispid 10;
    procedure OnAnswered; dispid 11;
    procedure OnHardwareDialtone; dispid 12;
    procedure OnFrequency(Freq: Integer; Freq1: Integer; Freq2: Integer); dispid 13;
    procedure OnConnected; dispid 14;
    procedure OnIdle; dispid 15;
    procedure OnError(ErrCode: Integer); dispid 16;
  end;
 
 
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : TVTapi
// Help String      : VTapi Control
// Default Interface: _DVTapi
// Def. Intf. DISP? : Yes
// Event   Interface: _DVTapiEvents
// TypeFlags        : (38) CanCreate Licensed Control
// *********************************************************************//
  TVTapiOnDebug = procedure(ASender: TObject; const Message: WideString) of object;
  TVTapiOnRing = procedure(ASender: TObject; Number: Integer) of object;
  TVTapiOnOpened = procedure(ASender: TObject; const Device: WideString) of object;
  TVTapiOnClosed = procedure(ASender: TObject; const Device: WideString) of object;
  TVTapiOnDtmf = procedure(ASender: TObject; KeyCode: Integer) of object;
  TVTapiOnBusy = procedure(ASender: TObject; Source: Integer) of object;
  TVTapiOnDialtone = procedure(ASender: TObject; Source: Integer) of object;
  TVTapiOnCallerID = procedure(ASender: TObject; const Number: WideString; const Name: WideString) of object;
  TVTapiOnDataModem = procedure(ASender: TObject; const Device: WideString) of object;
  TVTapiOnFrequency = procedure(ASender: TObject; Freq: Integer; Freq1: Integer; Freq2: Integer) of object;
  TVTapiOnError = procedure(ASender: TObject; ErrCode: Integer) of object;
 
  TVTapi = class(TOleControl)
  private
    FOnDebug: TVTapiOnDebug;
    FOnRing: TVTapiOnRing;
    FOnOpened: TVTapiOnOpened;
    FOnClosed: TVTapiOnClosed;
    FOnDtmf: TVTapiOnDtmf;
    FOnBusy: TVTapiOnBusy;
    FOnDialtone: TVTapiOnDialtone;
    FOnCallerID: TVTapiOnCallerID;
    FOnDataModem: TVTapiOnDataModem;
    FOnSilence: TNotifyEvent;
    FOnAnswered: TNotifyEvent;
    FOnHardwareDialtone: TNotifyEvent;
    FOnFrequency: TVTapiOnFrequency;
    FOnConnected: TNotifyEvent;
    FOnIdle: TNotifyEvent;
    FOnError: TVTapiOnError;
    FIntf: _DVTapi;
    function  GetControlInterface: _DVTapi;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
  public
    function PlaybackMelody(const MelodyString: WideString): WordBool;
    function GenerateTones(Freq1: Integer; Freq2: Integer; Duration: Integer): WordBool;
    function AnalyseInput: WordBool;
    function PassThrough: WordBool;
    function GenerateDTMF(const Keys: WideString): WordBool;
    function AnswerCall: WordBool;
    function IsOpened: WordBool;
    procedure Close;
    procedure Stop;
    function Open: WordBool;
    procedure AboutBox;
    function Pickup: WordBool;
    procedure HangUp;
    procedure Preferences;
    function PlaybackText(const Text: WideString): WordBool;
    function IsFileOpened: WordBool;
    function AssumeConnected: WordBool;
    function WaitForIdle(TimeToWait: Integer): WordBool;
    function PlaybackFile(const FileName: WideString): WordBool;
    function Dial(const PhoneNumber: WideString): WordBool;
    function Record_(const FileName: WideString): WordBool;
    property  ControlInterface: _DVTapi read GetControlInterface;
    property  DefaultInterface: _DVTapi read GetControlInterface;
  published
    property Anchors;
    property DeviceID: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
    property ComPort: WideString index 11 read GetWideStringProp write SetWideStringProp stored False;
    property KeysPressed: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;
    property Flags: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
    property LogFile: WideString index 7 read GetWideStringProp write SetWideStringProp stored False;
    property AGC: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
    property SpotColor: TColor index 5 read GetTColorProp write SetTColorProp stored False;
    property ForegroundColor: TColor index 4 read GetTColorProp write SetTColorProp stored False;
    property BackgroundColor: TColor index 3 read GetTColorProp write SetTColorProp stored False;
    property SilenceDuration: Integer index 2 read GetIntegerProp write SetIntegerProp stored False;
    property SilenceLevel: Integer index 1 read GetIntegerProp write SetIntegerProp stored False;
    property OnDebug: TVTapiOnDebug read FOnDebug write FOnDebug;
    property OnRing: TVTapiOnRing read FOnRing write FOnRing;
    property OnOpened: TVTapiOnOpened read FOnOpened write FOnOpened;
    property OnClosed: TVTapiOnClosed read FOnClosed write FOnClosed;
    property OnDtmf: TVTapiOnDtmf read FOnDtmf write FOnDtmf;
    property OnBusy: TVTapiOnBusy read FOnBusy write FOnBusy;
    property OnDialtone: TVTapiOnDialtone read FOnDialtone write FOnDialtone;
    property OnCallerID: TVTapiOnCallerID read FOnCallerID write FOnCallerID;
    property OnDataModem: TVTapiOnDataModem read FOnDataModem write FOnDataModem;
    property OnSilence: TNotifyEvent read FOnSilence write FOnSilence;
    property OnAnswered: TNotifyEvent read FOnAnswered write FOnAnswered;
    property OnHardwareDialtone: TNotifyEvent read FOnHardwareDialtone write FOnHardwareDialtone;
    property OnFrequency: TVTapiOnFrequency read FOnFrequency write FOnFrequency;
    property OnConnected: TNotifyEvent read FOnConnected write FOnConnected;
    property OnIdle: TNotifyEvent read FOnIdle write FOnIdle;
    property OnError: TVTapiOnError read FOnError write FOnError;
  end;
 
procedure Register;
 
resourcestring
  dtlServerPage = 'Servers';
 
  dtlOcxPage = 'ActiveX';