Class TForm1 (unit tapitst1) |
Inherits from
TForm
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^.
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;
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;
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;