JSON程式设计.docVIP

JSON程式設計 上篇文章簡單的介紹了如何使用DataSnap開發基於JSON分散式應用系統，Delphi 藉由原本的Midas/DataSnap和dbExpress的元件提供這個新的分散式計算能力，但使用這些元件都是資料的方式來存取遠端服務，然而我們 也可以使用前面介紹的JSON類別再結合DataSnap來實作出存取遠端數值物件(Value Object)或是所謂的DTO(Data Transfer Object)的應用，讓用戶端可以存取遠端的物件。在下面的範例中我們將展示如何開發使用VO/DTO的DataSnap應 用程式伺服器，並且在用戶端擷取其中封裝的資料和物件。這個範例將開發一個可以讓用戶端查詢資料和物件的DataSnap應用程式伺服器，當用戶端查詢物 件時，我們將使用TJSONObject封裝物件並且傳遞到用戶端。X-3-1開發數值物件伺服器首先建立一個VCL Form應用程式專案，在它的主表單中加入如下的元件:?圖7 VO DataSnap應用程式伺服器 接著在專案中建立一個新的程式單元，於其中實作一個簡單的TEmployee類別如下: unit uEmployee;interfaceuses SysUtils, classes;type? TEmployee = class? private??? { Private declarations }??? FName : string;??? FEMail : string;??? FPhone : string;? public??? { Public declarations }??? constructor Create(sName? : string = 』; sEMail : string = 』; sPhone : string = 』);??? property Name : string read FName write FName;??? property EMail : string read FEmail write FEMail;??? property Phone : string read FPhone write FPhone;? end;implementation{ TEmployee }constructor TEmployee.Create(sName, sEMail: string; sPhone: string);begin? FName := sName;? FEmail := sEMail;? FPhone := sPhone;end;end. 再於專案中建立一個新的程式單元稱為uEmployeeValueObject，其中定義TEmployeeVO類別如下，請注意TEmployeeVO類別使用了{$MethodInfo ON}和{$MethodInfo Off}編譯器指令要求編譯器把TEmployeeVO類別的Reflection資訊編譯到執行檔中。 ? {$MethodInfo ON}? TEmployeeVO = class(TComponent)? private??? { Private declarations }??? FEmployees : TObjectListTEmployee;??? function CreateEmployeeJSONObject(employee : TEmployee) : string;??? function CreateEmployeeJSONArray : string;??? function CreateEmployeeJSONObjectJ(employee : TEmployee) : TJSONObject;? public??? { Public declarations }??? destructor Destroy; override;??? function GetEmployeeJ(const sName : string) : TJSONObject;??? function GetAllEmployeesJ : TJSONArray;??? procedure AddEmployee(const sName : string; const sEMail : string; const sPhone : string);? end;? {$MethodInfo Off}TEmployeeVO宣告了三個方法說明如下: 方法名稱 說明 備註 AddEmployee 讓用戶端呼叫增加員工資訊 GetEmployeeJ 讓用戶端以員工