华为cc015501activex接续控件开发培训手册issue

华为cc015501activex接续控件开发培训手册issue内容摘要：

Msg, CCS_OK)。 end。 procedure (Sender: TObject)。 begin sMsg := 39。 座席释放成功 39。 AddMsg(sMsg, CCS_OK)。 end。 procedure (Sender: TObject)。 begin sMsg := 39。 座席释放失败 39。 AddMsg(sMsg, CCS_FAIL)。 end。 CC015501 ActiveX接续控件开发培训手册 ISSUE 简单演示程序 25 当有来话分配到座席时，接续 控件会先后触发 OnCallerNoArrived，OnCalledNoArrived，可以增加相应的提示信息，显示主叫和被叫号码，增加的代码如下： procedure (Sender: TObject。 const TelNum: WideString)。 begin sMsg := 39。 主叫号码： 39。 + TelNum。 AddMsg(sMsg, CCS_OK)。 end。 procedure (Sender: TObject。 const TelNum: WideString)。 begin sMsg := 39。 被叫号码： 39。 + TelNum。 AddMsg(sMsg, CCS_OK)。 end。 应答和释放 用按钮 Button4 进行应答操作，按钮 Button5 进行释放操作，增加的代码如下： procedure (Sender: TObject)。 begin iRet :=。 sMsg := 39。 应答 来话 ...39。 AddMsg(sMsg, iRet)。 end。 procedure (Sender: TObject)。 begin iRet :=。 CC015501 ActiveX接续控件开发培训手册 ISSUE 简单演示程序 26 sMsg := 39。 释放来话 ...39。 AddMsg(sMsg, iRet)。 End。 呼出 用按钮 Button6 进行呼出操作，呼出成功后会先后触发 OnCallOutSuccess，OnCallOutSuccTalk，呼出失败后将触发 OnCallOutFailure，可以增加相应的提示信息，增加的代码如下： procedure (Sender: TObject)。 begin iRet := (39。 654080839。 )。 sMsg := 39。 呼出： 654080839。 AddMsg(sMsg, iRet)。 end。 procedure (Sender: TObject)。 begin sMsg := 39。 呼出成功 39。 AddMsg(sMsg, CCS_OK)。 end。 procedure (Sender: TObject)。 begin sMsg := 39。 呼出成功，开始通话 39。 AddMsg(sMsg, CCS_OK)。 end。 procedure (Sender: TObject)。 begin CC015501 ActiveX接续控件开发培训手册 ISSUE 简单演示程序 27 sMsg := 39。 呼出失败 39。 AddMsg(sMsg, CCS_FAIL)。 end。 其他操作 类似的，可以根据需要增加其他的操作，注意方法调用的返回值，以及对可能触发的事件的处理。 演示程序的界面类似于图 62 所示。 图 62 演示程序界面 小结 本课介绍了一个简单的演示程序的制作过程。 习题 61 参照上节内容，上机独立完成一个座席程序，要求能够签入、签出、应答来话、释放来话、内部呼叫、呼出、示闲、示忙、静音等操作，注意完成相应功能时各事件的处理。 CC015501 ActiveX接续控件开发培训手册 ISSUE 应用实例分析 28 第 7章 应用实例分析 本节通过应用实例进行接续控件的属性、方法和事件调用的处理。 在此通过平台接 续控制条的应用为例进行讲解。 接续控制条提供了接续控件支持的所有呼叫接续的基本功能和高级功能，以及与呼叫相关的其它功能。 基本接续功能包括：签入 /签出排队机、呼叫应答、呼叫释放、呼叫转移、转出、内部呼叫、呼出、三方通话、内部求助、报音、静音 /取消静音、示忙 /示闲、保持 /取保持等。 高级接续功能包括：监听、插入、拦截、强制示闲、强制示忙、强制签出、质检录音等。 与呼叫相关其它功能：放音、座席信息、队列信息、排行榜、用户信息、发布公告、发布通知等。 基本设置：主备用 CCS IP 地址、服务器连接、应答 /释放方式、 APC 卡类型、超时时长、录音目录等。 实现以上功能必须通过控件的基本属性、方法和事件的调用，下面对各项功能的实现和过程描述作详细讲解。 说明：为便于使用，将所有常量、全局变量、结构体、自定义过程和函数定义在同一个单元 Variable 中。 基本设置 完成接续控件的基本属性设置，如主 CCS IP、后备 CCS IP、服务器连接、 APC卡类型、超时时长、应答方式、释放方式等，保证应用程序能够正常注册平台，从而实现签入排队机，进行正常的话务接续功能。 设置界面如下图 71所示。 CC015501 ActiveX接续控件开发培训手册 ISSUE 应用实例分析 29 图 71参数设置 实现过程： procedure (Sender: TObject)。 var iAPC : Integer。 //***** 设置 APC 卡对应的值 ***** sAPC : String。 //***** 设置 APC 卡的型号 ***** begin iAPC := 0。 if = 39。 39。 then begin giRet := Messagedlg(39。 主 CCS IP:不能为空 !39。 ,mtWarning,[mbyes],0)。 end else begin with do CC015501 ActiveX接续控件开发培训手册 ISSUE 应用实例分析 30 begin MainCcsIP :=。 //***** 主 CCS IP ***** BackCCSIP :=。 //***** 备 CCS IP ***** if = 39。 CCS39。 then CCSID := 20 //***** 直连 CCS ***** else CCSID := 22。 //***** 通过 PROXY 代理 ***** MyID :=。 //***** 通讯进程 ***** if then HaveBell := True //***** 铃声提示 ***** else HaveBell := False。 //***** 无 铃 声 ***** if then AutoAnswer := True //***** 自动应答 ***** else AutoAnswer := False。 //***** 人工应答 ***** if then AutoRelease := True //***** 自动释放 ***** else AutoRelease := False。 //***** 人工释放 ***** if then CC015501 ActiveX接续控件开发培训手册 ISSUE 应用实例分析 31 AutoReConnect := True //***** 自动连接 ***** else AutoReConnect := False。 //***** 手动连接 ***** if then gbShowInfo := True //***** 自动显示客户信息 ***** else gbShowInfo := False。 //***** 不显示客户信息 ***** //**************************** APC 型号 **************************** sAPC :=。 if sAPC = 39。 CQ0139。 then iAPC := 0 else if sAPC = 39。 CQ0539。 then iAPC := 1 else if sAPC = 39。 CQ0639。 then iAPC := 2 else if sAPC = 39。 CQ0439。 then iAPC := 9。 CardType := iAPC。 //*************************** 超时时长 ,注意为毫秒 ******************* TimeOut := StrToInt( + 39。 00039。 )。 BellTime := StrToInt()。 //***** 响铃时长 ***** RecordFileDir :=。 //***** 录音文件路径 ***** giHintTime :=。 //***** 状态信息提示时长 ***** end。 end。 CC015501 ActiveX接续控件开发培训手册 ISSUE 应用实例分析 32 注意点：对于参数设置，选择 APC 卡类型时，不同的类型对应不同的值， CQ0CQ0 CQ0 CQ04 分别对应 0、 9。 当然还可以定义枚举数据类型，不过注意处理好 CQ04。 基本接续功能 完成基本接续操作，可以应答 /释放、静音 /取消静音、保持 /取保持、报音、呼叫转移、转出、内部呼叫、呼出、三方通话、内部求助、示忙 /示闲、休息等。 为了能够进行接续操作，必须首先注册底层通信服务器 ，并初始化控件，然后签入排队机。 注册底层通讯服务器可以在运行应用程序时实现，初始化控件和签入排队机可以在座席登录时完成。 注册底层通信服务器实现过程： procedure (Sender: TObject)。 begin ．．．．．． //****************** 注册 ICDCOMM 底层通讯服务器 ***************** giRet := WinExec(39。 39。 ,SW_HIDE)。 if giRet 31 then begin gsMsg := 39。 注册 ICDCOMM 底层通讯服务器成功。 39。 [0].Text := gsMsg。 //***** 调 试显示信息 ***** end else begin gsMsg := 39。 注册 ICDCOMM 底层通讯服务器失败。 39。 [0].Text := gsMsg。 //***** 调试显示信息 ***** exit。 end。 end。 CC015501 ActiveX接续控件开发培训手册 ISSUE 应用实例分析 33 注意点：注册底层通信服务器 ICDCOMM 通过调用 WinExec 函数实现，只有在调用返回值大于 31 时才成功，为其它值时请查看 WinExec 帮助说明，在Delphi 开发环境下输入 WinExec，然后按 F1 即可。 初始化控件及签入排队机实现过程： procedure (Sender: TObject)。 begin ...... giRet :=。 //***** 初始化控件 ***** if giRet = CCS_OK then //***** 初始化成功 *****。