【文章內容簡介】 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ā)培訓手冊 ISSUE 簡單演示程序 25 當有來話分配到座席時，接續(xù) 控件會先后觸發(fā) 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接續(xù)控件開發(fā)培訓手冊 ISSUE 簡單演示程序 26 sMsg := 39。釋放來話 ...39。 AddMsg(sMsg, iRet)。 End。 呼出 用按鈕 Button6 進行呼出操作，呼出成功后會先后觸發(fā) OnCallOutSuccess，OnCallOutSuccTalk，呼出失敗后將觸發(fā) 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接續(xù)控件開發(fā)培訓手冊 ISSUE 簡單演示程序 27 sMsg := 39。呼出失敗 39。 AddMsg(sMsg, CCS_FAIL)。 end。 其他操作 類似的，可以根據需要增加其他的操作，注意方法調用的返回值，以及對可能觸發(fā)的事件的處理。演示程序的界面類似于圖 62 所示。 圖 62 演示程序界面 小結 本課介紹了一個簡單的演示程序的制作過程。 習題 61 參照上節(jié)內容，上機獨立完成一個座席程序，要求能夠簽入、簽出、應答來話、釋放來話、內部呼叫、呼出、示閑、示忙、靜音等操作，注意完成相應功能時各事件的處理。 CC015501 ActiveX接續(xù)控件開發(fā)培訓手冊 ISSUE 應用實例分析 28 第 7章 應用實例分析 本節(jié)通過應用實例進行接續(xù)控件的屬性、方法和事件調用的處理。在此通過平臺接 續(xù)控制條的應用為例進行講解。接續(xù)控制條提供了接續(xù)控件支持的所有呼叫接續(xù)的基本功能和高級功能，以及與呼叫相關的其它功能。 基本接續(xù)功能包括：簽入 /簽出排隊機、呼叫應答、呼叫釋放、呼叫轉移、轉出、內部呼叫、呼出、三方通話、內部求助、報音、靜音 /取消靜音、示忙 /示閑、保持 /取保持等。 高級接續(xù)功能包括：監(jiān)聽、插入、攔截、強制示閑、強制示忙、強制簽出、質檢錄音等。 與呼叫相關其它功能：放音、座席信息、隊列信息、排行榜、用戶信息、發(fā)布公告、發(fā)布通知等。 基本設置：主備用 CCS IP 地址、服務器連接、應答 /釋放方式、 APC 卡類型、超時時長、錄音目錄等。 實現以上功能必須通過控件的基本屬性、方法和事件的調用，下面對各項功能的實現和過程描述作詳細講解。 說明：為便于使用，將所有常量、全局變量、結構體、自定義過程和函數定義在同一個單元 Variable 中。 基本設置 完成接續(xù)控件的基本屬性設置，如主 CCS IP、后備 CCS IP、服務器連接、 APC卡類型、超時時長、應答方式、釋放方式等，保證應用程序能夠正常注冊平臺，從而實現簽入排隊機，進行正常的話務接續(xù)功能。設置界面如下圖 71所示。 CC015501 ActiveX接續(xù)控件開發(fā)培訓手冊 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接續(xù)控件開發(fā)培訓手冊 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接續(xù)控件開發(fā)培訓手冊 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 := 。 //***** 狀態(tài)信息提示時長 ***** end。 end。 CC015501 ActiveX接續(xù)控件開發(fā)培訓手冊 ISSUE 應用實例分析 32 注意點：對于參數設置，選擇 APC 卡類型時，不同的類型對應不同的值， CQ0CQ0 CQ0 CQ04 分別對應 0、 9。當然還可以定義枚舉數據類型，不過注意處理好 CQ04。 基本接續(xù)功能 完成基本接續(xù)操作，可以應答 /釋放、靜音 /取消靜音、保持 /取保持、報音、呼叫轉移、轉出、內部呼叫、呼出、三方通話、內部求助、示忙 /示閑、休息等。 為了能夠進行接續(xù)操作，必須首先注冊底層通信服務器 ，并初始化控件，然后簽入排隊機。注冊底層通訊服務器可以在運行應用程序時實現，初始化控件和簽入排隊機可以在座席登錄時完成。 注冊底層通信服務器實現過程： 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接續(xù)控件開發(fā)培訓手冊 ISSUE 應用實例分析 33 注意點：注冊底層通信服務器 ICDCOMM 通過調用 WinExec 函數實現，只有在調用返回值大于 31 時才成功，為其它值時請查看 WinExec 幫助說明，在Delphi 開發(fā)環(huán)境下輸入 WinExec，然后按 F1 即可 。 初始化控件及簽入排隊機實現過程： procedure (Sender: TObject)。 begin ...... giRet := 。 //***** 初始化控件 ***** if giRet = CCS_OK then //***** 初始化成功 *****