Class TTapiDial (unit TapiDial)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations

InitializeTapi



Functions

destructor Destroy;

Terminate TAPI

procedure Dial;


procedure HangUp;

Dial

procedure SetCallDialog(NewCallDialog:TCallDialog);


procedure SetDialMethod(NewDialMethod:TDialMethod);

NewDialTone=False

procedure SetDialTone(NewDialTone:TDialTone);


procedure SetStatusWindow(NewStatusWindow:TStatusWindow);

NewDialMethod=Tone

procedure InitializeTapi;

End--> lineCallBack

procedure TerminateTapi;

Kraj od Create

Properties

property CallDialog : TCallDialog


property DialMethod : TDialMethod


property DialTone : TDialTone


property StatusWindow : TStatusWindow


property TelephonNo : String

Published declarations

Events

Variables

call : THCall;


CallParams : TlineCallParams;


FCallDialog : TCallDialog;


FDialMethod : TDialMethod;


FDialTone : TDialTone;


frmStatWindow : TForm;

Private declarations

FStatusWindow : TStatusWindow;


FTelephonNo : string;


lbxStatWindow : TListBox;


line : THLine;


lineApp : THLineApp;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

InitializeTapi


Functions


destructor Destroy;

Terminate TAPI


procedure Dial;


procedure HangUp;

Dial


procedure SetCallDialog(NewCallDialog:TCallDialog);


procedure SetDialMethod(NewDialMethod:TDialMethod);

NewDialTone=False


procedure SetDialTone(NewDialTone:TDialTone);


procedure SetStatusWindow(NewStatusWindow:TStatusWindow);

NewDialMethod=Tone


procedure InitializeTapi;

End--> lineCallBack


procedure TerminateTapi;

Kraj od Create


Properties


property CallDialog : TCallDialog


property DialMethod : TDialMethod


property DialTone : TDialTone


property StatusWindow : TStatusWindow


property TelephonNo : String

Published declarations


Events


Variables


call : THCall;


CallParams : TlineCallParams;


FCallDialog : TCallDialog;


FDialMethod : TDialMethod;


FDialTone : TDialTone;


frmStatWindow : TForm;

Private declarations


FStatusWindow : TStatusWindow;


FTelephonNo : string;


lbxStatWindow : TListBox;


line : THLine;


lineApp : THLineApp;