main.pas

用Delphi写的呼叫中心

unit main;

interface

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

type
  TMainForm = class(TForm)
    StateListView: TListView;
    Timer1: TTimer;
    Button1: TButton;
    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 CallFunc,Shpa3api;

{$R *.DFM}

procedure TMainForm.FormShow(Sender: TObject);
var
    i,j:Integer;
    ListItem: TListItem;
begin
    bHaveLoadDriver:=InitCtiSystem();
    if not bHaveLoadDriver then Close();

    InitATrunkCh();

    for i:=0 to nTotATrkCh-1 do
    begin
      if ATrkCh[i].EnCalled then
      begin
          ListItem:=StateListView.Items.Add;
          ListItem.Caption:=IntToStr(i);
          for j:= 0 to StateListView.Columns.Count -2 do
            ListItem.SubItems.Add(' ');
      end;
    end;

    Timer1.Enabled:=true;
end;

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

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
    ScanATrunkCh();
    UpDateATrunkChListCtrl();

end;

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

end.