| Class TForm1 (unit tapitst1) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);| 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;
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;