进阶datasnap回叫功能(李维).pdfVIP

Delphi/C++Builder 2010 加入了回叫機 , 我也在 2009 年的部落格文章中說明了如何使用 Delphi/C++Builder 2010 的回叫功. 然而Delphi/C++Builder XE 又再次強化了回叫機 , 讓這 個功能更為強大和完善, 由於XE 版的回叫機制提供了眾多新的功能, 因此我想藉由這篇文章說 明一下如何使用XE 版的回叫機 , 雖然我無法一次把所有的功能寫完, 但起個頭還是很有用的. DataSnap XE 在原有的基礎回叫機制之上加入了許多強大的新功能，從DataSnap XE 開始開發人 員可以使用下面的回叫功能:  用戶端可向伺服端註冊回叫通道，如此一來伺服器可以一次回叫所有在同回叫 通道中所有註冊的用戶端回叫函式  用戶端可以同時註冊多個不同的回叫通道  用戶端可以藉由回叫通道呼叫不同的用戶端  新增回叫元件以幫助開發人員簡化開發回叫機 DataSnap XE 新的回叫功能雖然很多，但使用起來仍然相當的容易，下面說明了如何使用這些 DataSnap XE 新的回叫功能的基本步驟:  用戶端使用TDSClientCallbackChannelManager 向伺服器註冊一個回叫通道  伺服器使用TDSServer 元件的BroadcastMessage 方法回叫所有註冊的用戶端 當然，開發人員可以更進一步的使用DataSnap XE 進階的回叫功能，不過在那之前也許我們應該 先說明數個範例讓讀者瞭解如何使用這些基本的步驟。 開發回叫DataSnap 伺服器 在Delphi 整合發展環境中建立一個DataSnap Server 專案: 在設定此伺服器的特性時，讓我們目前只選擇使用TCP/IP通訊協定，如下圖所示: 開啟專案中的 ServerContainer 程式單元，此時在 ServerContainer 中產生了兩個元件， TDSServer以及TDSTCPServerTransport，由於接下來我們將先展示Windows用戶端的回叫功能， 因此現在使用TCP/IP通訊協定就足夠了。 現在開啟專案主表單，並且在其中置入如下的元件: 主表格上方使用了TListBo 元件，它可以顯示所有用戶端註冊的回叫識別 ID，而下方的TMemo 元件則是使用來回叫註冊用戶端，在稍後我們將在此TMemo元件中輸入資訊，這些輸入的資訊就 會藉由回叫通道自動傳遞給用戶端。 DataSnap 伺服器要回叫所有註冊的用戶端是非常容易的，只需要藉由 TDSServer 類別定義的 BroadcastMessage方法即可，TDSServer類別中定義了兩個BroadcastMessage方法原型如下: 1. function BroadcastMessage(const ChannelName: String; const Msg: TJSONValue; const ArgType: Integer = TDBXCallback.ArgJson): boolean; overload; 2. 3. 4. 5. function BroadcastMessage(const ChannelName: String; const CallbackId: String; const Msg: TJSONValue; const ArgType: Integer = TDBXCallback.ArgJson): boolean; overload; 复制代码 這兩個BroadcastMessage方法的差異在於上述第一個BroadcastMessage可以傳遞訊息給它第一 個參數ChannelName指定的通道中所有的回叫用戶端，而第二個BroadcastMessage方法則是只 傳遞訊息給它第一個參數ChannelName指定的通道中由第二個參數CallbackId指定的回叫用戶 端，最後這個兩個BroadcastMessage方法傳遞給用戶端的訊息則由第二個參數Msg封裝。 瞭解了如何使用 BroadcastMessage 方法之後，我們就可以看看如何把 DataSna 伺服器中於 TMemo 元件中輸入的訊息傳遞給回叫用戶端。現在為主表單中的 TMemo 元件實作OnChange 事件 處理函式如下: 1. 001 procedure TForm17.mmMessageChange(Sender: T