main.~pa

TAPI是一种编程接口 ISDN设备一般都只支持CAPI接口编程 市面是有一些ISDN支持TAPI接口编程,不过这些ISDN都是综合设备

unit Main;
{
	TAPI Test
        by Davide Moretti <[e-mail]>

	this code is freeware, and can be used
	anywhere without permission.
}

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
	TfrmMain = class(TForm)
		btnMonitor: TButton;
		btnCall: TButton;
    Label1: TLabel;
		procedure btnMonitorClick(Sender: TObject);
		procedure btnCallClick(Sender: TObject);
	private
		{ Private declarations }
	public
		{ Public declarations }
		Monitor: Boolean;
		Call: Boolean;
	end;

var
	frmMain: TfrmMain;

implementation

{$R *.DFM}

uses MonForm, CallForm;

procedure TfrmMain.btnMonitorClick(Sender: TObject);
	begin
	if Monitor = false then
		begin
		frmTAPIMon := TfrmTAPIMon.Create(Self);
		frmTAPIMon.Show;
		Monitor := True;
		end;
	end;

procedure TfrmMain.btnCallClick(Sender: TObject);
	begin
	if Call = False then
		begin
		frmTAPICall := TfrmTAPICall.Create(Self);
		frmTAPICall.Show;
		Call := True;
		end;
	end;

end.