Class TfrmTAPIMon (unit MonForm) |
Inherits from
TForm
*** TAPI Monitor ***
by Davide Moretti
This is a TAPI Test
It uses TAPI interface to monitor outgoing calls
Open this program, and then make a call with
Remote Access or something that uses TAPI
I used TAPI only to monitor calls, since I am wriing
a toll accounting program.
procedure FormClose(Sender: TObject; var Action: TCloseAction);
Terminate TAPI
procedure FormCreate(Sender: TObject);
Disconnected
procedure FormDestroy(Sender: TObject);
Open a line for monitor (here I use first device, normally the modem)
Memo1 : TMemo;
line : THLine;
lineApp : THLineApp;
Private declarations
procedure FormClose(Sender: TObject; var Action: TCloseAction);
Terminate TAPI
procedure FormCreate(Sender: TObject);
Disconnected
procedure FormDestroy(Sender: TObject);
Open a line for monitor (here I use first device, normally the modem)
Memo1 : TMemo;
line : THLine;
lineApp : THLineApp;
Private declarations