进阶DataSnap回叫功能(李维).docxVIP

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專案: HYPERLINK /attachment.php?aid=73k=1a561993d9cae02af90aed2d43a89cd4t=1335362358nothumb=yes \o l1.jpg \t _blank 在設定此伺服器的特性時，讓我們目前只選擇使用TCP/IP通訊協定，如下圖所示: HYPERLINK /attachment.php?aid=74k=2dd2912db333b752c688e9b44552abdat=1335362358nothumb=yes \o l2.jpg \t _blank 開啟專案中的ServerContainer程式單元，此時在ServerContainer中產生了兩個元件，TDSServer以及TDSTCPServerTransport，由於接下來我們將先展示Windows用戶端的回叫功能，因此現在使用TCP/IP通訊協定就足夠了。 HYPERLINK /attachment.php?aid=75k=5a37cd64edc4aa310c63d1d2838e7d38t=1335362358nothumb=yes \o l3.jpg \t _blank 現在開啟專案主表單，並且在其中置入如下的元件: HYPERLINK /attachment.php?aid=76k=3003fd798b5186bae2902a7435db355at=1335362358nothumb=yes \o l4.jpg \t _blank 主表格上方使用了TListBox元件，它可以顯示所有用戶端註冊的回叫識別ID，而下方的TMemo元件則是使用來回叫註冊用戶端，在稍後我們將在此TMemo元件中輸入資訊，這些輸入的資訊就會藉由回叫通道自動傳遞給用戶端。DataSnap伺服器要回叫所有註冊的用戶端是非常容易的，只需要藉由TDSServer類別定義的BroadcastMessage方法即可，TDSServer類別中定義了兩個BroadcastMessage方法原型如下: function BroadcastMessage(const ChannelName: String; const Msg: TJSONValue; const ArgType: Integer = TDBXCallback.ArgJson): boolean; overload; function BroadcastMessage(const ChannelName: String; const CallbackId: String; const Msg: TJSONValue; const ArgType: Integer = TDBXCallback.ArgJson): boolean; overload; 复制代码 這兩個BroadcastMessage方法的差異在於上述第一個BroadcastMessage可以傳遞訊息給它第一個參數ChannelName指定的通道中所有的回叫用戶端，而第二個BroadcastMessage方法則是只傳遞訊息給它第一個參數Cha