【文章內(nèi)容簡(jiǎn)介】 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接續(xù)控件開發(fā)培訓(xùn)手冊(cè) ISSUE 簡(jiǎn)單演示程序 25 當(dāng)有來話分配到座席時(shí)，接續(xù) 控件會(huì)先后觸發(fā) OnCallerNoArrived，OnCalledNoArrived，可以增加相應(yīng)的提示信息，顯示主叫和被叫號(hào)碼，增加的代碼如下： procedure (Sender: TObject。 const TelNum: WideString)。 begin sMsg := 39。主叫號(hào)碼： 39。 + TelNum。 AddMsg(sMsg, CCS_OK)。 end。 procedure (Sender: TObject。 const TelNum: WideString)。 begin sMsg := 39。被叫號(hào)碼： 39。 + TelNum。 AddMsg(sMsg, CCS_OK)。 end。 應(yīng)答和釋放 用按鈕 Button4 進(jìn)行應(yīng)答操作，按鈕 Button5 進(jìn)行釋放操作，增加的代碼如下： procedure (Sender: TObject)。 begin iRet := 。 sMsg := 39。應(yīng)答 來話 ...39。 AddMsg(sMsg, iRet)。 end。 procedure (Sender: TObject)。 begin iRet := 。 CC015501 ActiveX接續(xù)控件開發(fā)培訓(xùn)手冊(cè) ISSUE 簡(jiǎn)單演示程序 26 sMsg := 39。釋放來話 ...39。 AddMsg(sMsg, iRet)。 End。 呼出 用按鈕 Button6 進(jìn)行呼出操作，呼出成功后會(huì)先后觸發(fā) OnCallOutSuccess，OnCallOutSuccTalk，呼出失敗后將觸發(fā) OnCallOutFailure，可以增加相應(yīng)的提示信息，增加的代碼如下： 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接續(xù)控件開發(fā)培訓(xùn)手冊(cè) ISSUE 簡(jiǎn)單演示程序 27 sMsg := 39。呼出失敗 39。 AddMsg(sMsg, CCS_FAIL)。 end。 其他操作 類似的，可以根據(jù)需要增加其他的操作，注意方法調(diào)用的返回值，以及對(duì)可能觸發(fā)的事件的處理。演示程序的界面類似于圖 62 所示。 圖 62 演示程序界面 小結(jié) 本課介紹了一個(gè)簡(jiǎn)單的演示程序的制作過程。 習(xí)題 61 參照上節(jié)內(nèi)容，上機(jī)獨(dú)立完成一個(gè)座席程序，要求能夠簽入、簽出、應(yīng)答來話、釋放來話、內(nèi)部呼叫、呼出、示閑、示忙、靜音等操作，注意完成相應(yīng)功能時(shí)各事件的處理。 CC015501 ActiveX接續(xù)控件開發(fā)培訓(xùn)手冊(cè) ISSUE 應(yīng)用實(shí)例分析 28 第 7章 應(yīng)用實(shí)例分析 本節(jié)通過應(yīng)用實(shí)例進(jìn)行接續(xù)控件的屬性、方法和事件調(diào)用的處理。在此通過平臺(tái)接 續(xù)控制條的應(yīng)用為例進(jìn)行講解。接續(xù)控制條提供了接續(xù)控件支持的所有呼叫接續(xù)的基本功能和高級(jí)功能，以及與呼叫相關(guān)的其它功能。 基本接續(xù)功能包括：簽入 /簽出排隊(duì)機(jī)、呼叫應(yīng)答、呼叫釋放、呼叫轉(zhuǎn)移、轉(zhuǎn)出、內(nèi)部呼叫、呼出、三方通話、內(nèi)部求助、報(bào)音、靜音 /取消靜音、示忙 /示閑、保持 /取保持等。 高級(jí)接續(xù)功能包括：監(jiān)聽、插入、攔截、強(qiáng)制示閑、強(qiáng)制示忙、強(qiáng)制簽出、質(zhì)檢錄音等。 與呼叫相關(guān)其它功能：放音、座席信息、隊(duì)列信息、排行榜、用戶信息、發(fā)布公告、發(fā)布通知等。 基本設(shè)置：主備用 CCS IP 地址、服務(wù)器連接、應(yīng)答 /釋放方式、 APC 卡類型、超時(shí)時(shí)長(zhǎng)、錄音目錄等。 實(shí)現(xiàn)以上功能必須通過控件的基本屬性、方法和事件的調(diào)用，下面對(duì)各項(xiàng)功能的實(shí)現(xiàn)和過程描述作詳細(xì)講解。 說明：為便于使用，將所有常量、全局變量、結(jié)構(gòu)體、自定義過程和函數(shù)定義在同一個(gè)單元 Variable 中。 基本設(shè)置 完成接續(xù)控件的基本屬性設(shè)置，如主 CCS IP、后備 CCS IP、服務(wù)器連接、 APC卡類型、超時(shí)時(shí)長(zhǎng)、應(yīng)答方式、釋放方式等，保證應(yīng)用程序能夠正常注冊(cè)平臺(tái)，從而實(shí)現(xiàn)簽入排隊(duì)機(jī)，進(jìn)行正常的話務(wù)接續(xù)功能。設(shè)置界面如下圖 71所示。 CC015501 ActiveX接續(xù)控件開發(fā)培訓(xùn)手冊(cè) ISSUE 應(yīng)用實(shí)例分析 29 圖 71參數(shù)設(shè)置 實(shí)現(xiàn)過程： procedure (Sender: TObject)。 var iAPC : Integer。 //***** 設(shè)置 APC 卡對(duì)應(yīng)的值 ***** sAPC : String。 //***** 設(shè)置 APC 卡的型號(hào) ***** begin iAPC := 0。 if = 39。39。 then begin giRet := Messagedlg(39。主 CCS IP:不能為空 !39。,mtWarning,[mbyes],0)。 end else begin with do CC015501 ActiveX接續(xù)控件開發(fā)培訓(xùn)手冊(cè) ISSUE 應(yīng)用實(shí)例分析 30 begin MainCcsIP := 。 //***** 主 CCS IP ***** BackCCSIP := 。 //***** 備 CCS IP ***** if = 39。CCS39。 then CCSID := 20 //***** 直連 CCS ***** else CCSID := 22。 //***** 通過 PROXY 代理 ***** MyID := 。 //***** 通訊進(jìn)程 ***** if then HaveBell := True //***** 鈴聲提示 ***** else HaveBell := False。 //***** 無 鈴 聲 ***** if then AutoAnswer := True //***** 自動(dòng)應(yīng)答 ***** else AutoAnswer := False。 //***** 人工應(yīng)答 ***** if then AutoRelease := True //***** 自動(dòng)釋放 ***** else AutoRelease := False。 //***** 人工釋放 ***** if then CC015501 ActiveX接續(xù)控件開發(fā)培訓(xùn)手冊(cè) ISSUE 應(yīng)用實(shí)例分析 31 AutoReConnect := True //***** 自動(dòng)連接 ***** else AutoReConnect := False。 //***** 手動(dòng)連接 ***** if then gbShowInfo := True //***** 自動(dòng)顯示客戶信息 ***** else gbShowInfo := False。 //***** 不顯示客戶信息 ***** //**************************** APC 型號(hào) **************************** 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。 //*************************** 超時(shí)時(shí)長(zhǎng) ,注意為毫秒 ******************* TimeOut := StrToInt( + 39。00039。)。 BellTime := StrToInt()。 //***** 響鈴時(shí)長(zhǎng) ***** RecordFileDir := 。 //***** 錄音文件路徑 ***** giHintTime := 。 //***** 狀態(tài)信息提示時(shí)長(zhǎng) ***** end。 end。 CC015501 ActiveX接續(xù)控件開發(fā)培訓(xùn)手冊(cè) ISSUE 應(yīng)用實(shí)例分析 32 注意點(diǎn)：對(duì)于參數(shù)設(shè)置，選擇 APC 卡類型時(shí)，不同的類型對(duì)應(yīng)不同的值， CQ0CQ0 CQ0 CQ04 分別對(duì)應(yīng) 0、 9。當(dāng)然還可以定義枚舉數(shù)據(jù)類型，不過注意處理好 CQ04。 基本接續(xù)功能 完成基本接續(xù)操作，可以應(yīng)答 /釋放、靜音 /取消靜音、保持 /取保持、報(bào)音、呼叫轉(zhuǎn)移、轉(zhuǎn)出、內(nèi)部呼叫、呼出、三方通話、內(nèi)部求助、示忙 /示閑、休息等。 為了能夠進(jìn)行接續(xù)操作，必須首先注冊(cè)底層通信服務(wù)器 ，并初始化控件，然后簽入排隊(duì)機(jī)。注冊(cè)底層通訊服務(wù)器可以在運(yùn)行應(yīng)用程序時(shí)實(shí)現(xiàn)，初始化控件和簽入排隊(duì)機(jī)可以在座席登錄時(shí)完成。 注冊(cè)底層通信服務(wù)器實(shí)現(xiàn)過程： procedure (Sender: TObject)。 begin ．．．．．． //****************** 注冊(cè) ICDCOMM 底層通訊服務(wù)器 ***************** giRet := WinExec(39。39。,SW_HIDE)。 if giRet 31 then begin gsMsg := 39。注冊(cè) ICDCOMM 底層通訊服務(wù)器成功！ 39。 [0].Text := gsMsg。 //***** 調(diào) 試顯示信息 ***** end else begin gsMsg := 39。注冊(cè) ICDCOMM 底層通訊服務(wù)器失??！ 39。 [0].Text := gsMsg。 //***** 調(diào)試顯示信息 ***** exit。 end。 end。 CC015501 ActiveX接續(xù)控件開發(fā)培訓(xùn)手冊(cè) ISSUE 應(yīng)用實(shí)例分析 33 注意點(diǎn)：注冊(cè)底層通信服務(wù)器 ICDCOMM 通過調(diào)用 WinExec 函數(shù)實(shí)現(xiàn)，只有在調(diào)用返回值大于 31 時(shí)才成功，為其它值時(shí)請(qǐng)查看 WinExec 幫助說明，在Delphi 開發(fā)環(huán)境下輸入 WinExec，然后按 F1 即可 。 初始化控件及簽入排隊(duì)機(jī)實(shí)現(xiàn)過程： procedure (Sender: TObject)。 begin ...... giRet := 。 //***** 初始化控件 ***** if giRet = CCS_OK then //***** 初始化成功 *****