UniMedia MSIX座席控件Delphi調用實例解析

2009-05-31 00:00:00 作者：來源：評論：0 　點擊：

2009/05/31

目標功能

　　在Delphi中實現(xiàn)來話通知和電話應答。

Delphi調用實例

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, MSIProj_TLB;

type
TForm1 = class(TForm)
MSIX1: TMSIX;
ButtonInit: TButton;
ButtonLogin: TButton;
ButtonAnswer: TButton;
procedure MSIX1CallIncome(ASender: TObject; const AlertingDN,
CallingDN, UUD: WideString);
procedure MSIX1Login(ASender: TObject; MsgID, SuccFlag: Integer;
const ErrorCause: WideString; AgentID: Integer);
procedure ButtonInitClick(Sender: TObject);
procedure ButtonLoginClick(Sender: TObject);
procedure ButtonAnswerClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.MSIX1CallIncome(ASender: TObject; const AlertingDN,
CallingDN, UUD: WideString);
begin
MessageDlg('來電話了！', mtInformation, [mbOk], 0);
end;

procedure TForm1.MSIX1Login(ASender: TObject; MsgID, SuccFlag: Integer;
const ErrorCause: WideString; AgentID: Integer);
begin
if (SuccFlag = 0) then
MessageDlg('登錄成功！', mtInformation, [mbOk], 0)
else
MessageDlg('登錄失��！'+MSIX1.GetLastErrorCauseDesc, mtInformation, [mbOk], 0);
end;

procedure TForm1.ButtonInitClick(Sender: TObject);
begin
MSIX1.SetConnInfo('192.168.1.1', 10089);
MSIX1.SetDN('1000');
MSIX1.Start();
end;

procedure TForm1.ButtonLoginClick(Sender: TObject);
begin
MSIX1.Login(0, 1000, 1, 0, '2000', '5', 'xms', '');
end;

procedure TForm1.ButtonAnswerClick(Sender: TObject);
var
ret: integer;
begin
ret := MSIX1.SetHookStatus(0, 2);
if (ret = 0) then
MessageDlg('摘機成功！', mtInformation, [mbOk], 0)
else
MessageDlg('摘機失��！'+MSIX1.GetLastErrorCauseDesc, mtInformation, [mbOk], 0);
end;
end.

說明：