main.pas

三汇CTI示例程序源码

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls;

type
  TMainForm = class(TForm)
    TrunkChListView: TListView;
    Timer1: TTimer;
    Button1: TButton;
    UserChListView: TListView;
    Edit1: TEdit;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  bHaveLoadDriver:boolean;
implementation

uses DialFunc,Shpa3api;

{$R *.DFM}
procedure TMainForm.FormShow(Sender: TObject);
var
    i:Integer;
    ListItem: TListItem;
begin
    bHaveLoadDriver:=InitCtiBoard();
    if not bHaveLoadDriver then Close()
    else
    begin
      for i:=0 to nTotalCh-1 do
      begin
          if( UserCh[i].EnCalled ) then
          begin
            ListItem:=TrunkChListView.Items.Add;
            ListItem.Caption:=IntToStr(i);
            ListItem.SubItems.Add(' ');
            ListItem.SubItems.Add(' ');
          end;

          if( SsmGetChType(i) = 2 ) then
          begin
            ListItem:=UserChListView.Items.Add;
            ListItem.Caption:=IntToStr(i);
            ListItem.SubItems.Add(' ');
            ListItem.SubItems.Add(' ');
          end;
      end;

      Timer1.Enabled:=true;
    end;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
    if bHaveLoadDriver then ExitCtiBoard();
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
    DrawTrunkChState();
    DrawUserChState();
    DoUserWork();
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  Close();
end;

end.