JSON 程式设计 – 使用过滤器.docVIP

JSON 程式設計 –?使用過濾器 在以前Tiburon遊記的文章解釋過JSON是使用字串型態來傳遞資料的，因此所有其他型態的資料都必須轉換為字串的型態，雖然如此一來在處理上 比較簡單，但這也造成了其他的問題，例如一些敏感性的資料如果使用字串型態來傳遞的話就會有問題。DataSnap 2010為了解決這種問題因此加入了過濾器的機制，讓開發人員在傳遞特殊的資料時可以藉由過濾器來進行額外的處理，例如在傳遞資料出去時先加密，並且在接 受到資料之後再進行解密。本篇文章的目的即在於討論如何使用DataSnap 2010的過濾器。 使用DataSnap 2010的過濾器非常的簡單，Delphi 2010也內建了一個壓縮過濾器，可以有效的壓縮使用TCP/IP通訊協定的資料傳遞。讓我們先說明如何使用這個內建的過濾器，稍後我們再深入的說明如何開發客製化過濾器。 讓我們仍然使用上篇文章的範例，要使用過濾器，請開啟ServerContainerUnit程式單元，點選表單中的 TDSTCPServerTransport元件，並且雙擊它的Filters特性，此時Filters特性值編輯器會啟動，請於其中加入一個新的過濾 器，點選此新的過濾器，然後在物件檢視器中選擇它的FilterId為ZlibCompression，如下所示: ZlibCompression過濾器就是DataSnap 2010內建的壓縮過濾器，在加入了ZlibCompression過濾器之後，編譯並且執行範例DataSnap伺服器，現在DataSnap伺服器就提供了壓縮JSON資料的能力。 現在再讓我們開啟用戶端應用程式，因為我們要在用戶端應用程式中加入解壓縮資料的能力，這個非常的簡單，我們只要在用戶端應用程式的主表單中加入使 用DBXCompressionFilter程式單元即可，例如下面就是用戶端應用程式加入DBXCompressionFilter程式單元的程式碼: implementation uses DBXJSONReflect, DBXJSON, uServerProxy, uEmployee, DBXCompressionFilter; 現在編譯並且執行用戶端應用程式，並且讓我們使用TCP Viewer來觀察使用壓縮過濾器之前的情形以及使用壓縮過濾器之後的效果。 下圖是TCP Viewer顯示範例DataSnap應用系統使用壓縮過濾器之前的情形，從下圖中我們可以看到在DataSnap伺服器和用戶端應用程式之間傳遞的資料 當然是使用字串的型態，所有傳遞的資料都一清二楚，同時請讀者注意下圖右邊顯示了從伺服器傳遞到用戶端的資料量(938位元組)以及從用戶端傳遞到伺服端 的資料量(706位元組)。 而下圖則是使用壓縮過濾器之後的效果: 從上圖中可以看到傳遞的資料經過壓縮，因此不易看出原始的資料，而且請讀者注意下圖右邊顯示了從伺服器傳遞到用戶端的資料量(653位元組)以及從 用戶端傳遞到伺服端的資料量(602位元組)，可見到壓縮過濾器有效的減少了伺服器和用戶端之間的資料傳遞量，這不但可以增加分散式應用程式的執行速度， 也可以增加支援的用戶端的數量。 如何? 使用過濾器是不是又簡單，又有明顯的效果? 不過DataSnap 2010只提供了一個內建的過濾器實在太少，好在DataSnap 2010過濾器架構在設計時就考慮到了允許讓開發人員能夠自行開發過濾器並且內嵌到DataSnap之中，接下來筆者將討論如何開發客製化過濾器並且使用 在DataSnap 2010的分散式應用系統中。 開發客製化過濾器 要開發客製化過濾器，開發人員必須從TTransportFilter類別衍生子代類別並且實作TTransportFilter類別中相關的虛擬方法，下面的表單說明了開發人員需要實作的虛擬方法: 函式名稱 回傳型態 說明 GetParameters TDBXStringArray 回傳所有的參數 GetUserParameters TDBXStringArray 回傳使用者可改變的參數 ProcessInput TBytes 使用客製化程式碼正向處理傳遞的資料流 ProcessOutput TBytes 使用客製化程式碼反向處理傳遞的資料流 Id UnicodeString 過濾器的ID GetParameterValue UnicodeString 取得特定名稱的參數值 SetParameterValue Boolean 設定特定名稱的參數值 瞭解了需要實作那些虛擬方法之後，我們就可以開始動手開發一個客製化過濾器了。在本文中筆者將撰寫一個非常簡單的加密/解密過濾器，其實這個加密/解密過濾器只是在傳遞資料時和一個字串進行xor的動作，到了另一端再次xor相同的字串而已。