Class TForm1 (unit tapitst1)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);

Lowest API version accepted (1.

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

!! This code gets the device ID from a line handle GetMem(DeviceId, DeviceIdSize); try DeviceId^.

Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Edit1 : TEdit;


Label1 : TLabel;


Label2 : TLabel;


ListBox1 : TListBox;


StatusBar1 : TStatusBar;


Call : HCALL;


Line : HLINE;


LineApp : HLINEAPP;

Public declarations

Version : DWORD;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);

Lowest API version accepted (1.4


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

!! This code gets the device ID from a line handle GetMem(DeviceId, DeviceIdSize); try DeviceId^.dwTotalSize:=DeviceIdSize; TapiCheck(lineGetID(Line, 0, Call, LINECALLSELECT_LINE, DeviceId, 'tapi/line')); P:=Pointer(Integer(DeviceId) + DeviceId^.dwStringOffset); TapiCheck(lineConfigDialog(DevId, Self.Handle, 'tapi/line')); finally FreeMem(DeviceId, DeviceIdSize); end;


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Edit1 : TEdit;


Label1 : TLabel;


Label2 : TLabel;


ListBox1 : TListBox;


StatusBar1 : TStatusBar;


Call : HCALL;


Line : HLINE;


LineApp : HLINEAPP;

Public declarations


Version : DWORD;