柏林版的DataSnap-李維.docVIP

柏林版的DataSnap 在發表RAD Studio柏林版介紹到DataSnap功能時,英巴的文件只說柏林版的DataSnap除了改bug之外,就是開始移除Indy並改用THTTPClient等新的HTTP相關類別, 另外又隱約提到一個類別TDBXJSONStream,它可使用在DataSnap服務方法中. 第1次看到TDBXJSONStream時感覺有點陌生,但從它的名稱可大約猜出它應該是一個使用在dbExpress(DBX?)應用中的相關類別並提供JSON串列流的功能(JSONStream?). 嗯, 我很好奇的在IDE中搜尋TDBXJSONStream,並在Data.DBXCommon程式單元中找到了它, TDBXJSONStream是一個新類別,我並沒有在以前的版本中看到它.查看它的程式碼發現它提供了JSON Reader和Writer, 那麼這代表它提了寫入JSON物件和讀取JSON物件的功能. property Reader: TJSONReader read GetJSONReader; property Writer: TJSONWriter read GetJSONWriter; 此外它又有一個TStream物件特性, OK, 那麼它一定可以在此TStream物件中寫入和讀出JSON物件, 而這些功能也正是它的名稱代表的意義. property BaseStream: TStream read FBaseStream; 瞭解了它的功能之後我們就可以來看看如何使用它. 先建立一個DataSnap Server專案, 在其中定義一個QueryHotel方法, 請注意QueryHotel方法回傳的物件正是TDBXJSONStream: function QueryHotel(const sName : String) : TDBXJSONStream; 此DataSnap Server專案使用FireDAC存取MS SQL Sevrer中的資料: QueryHotel方法展示了如何使用TDBXJSONStream物件, 要寫入JSON物件到TDBXJSONStream, 我們只需要使用它的Writer特性取得它的JSON Writer: function TServerMethods1.QueryHotel(const sName: String): TDBXJSONStream; var ? sSQL : String; ??procedure WritePair(const sProperty, sFieldName : String); 搜尋?begin ??Result.Writer.WritePropertyName(sProperty); ??Result.Writer.WriteValue(qryTheHotel.FieldByName(sFieldName).AsString); ?end; begin ?Result := TDBXJSONStream.Create; ?sSQL := qryTheHotel.SQL.Text; ?sSQL := sSQL + ? + sName + ?? ?qryTheHotel.SQL.Text := sSQL; ?qryTheHotel.Open(); ?try ??Result.Writer.WriteStartArray; ??while (not qryTheHotel.Eof) do ??begin ???try ????Result.Writer.WriteStartObject; ??????? WritePair(‘名稱’, ‘STITLE’); ??????? WritePair(‘地址’, ‘ADDRESS’); ??????? WritePair(‘電話’, ‘MEMO_TEL’); ????? finally ??????? Result.Writer.WriteEndObject; ??????? qryTheHotel.Next; ????? end; ??? end; ? finally ??? Result.Writer.WriteEndArray; ??? Result.Writer.Close; ??? qryTheHotel.Close; ? end; end; 編譯並執行此DataSnap Server之後就可以使用瀏覽器來試著呼叫QueryHotel方法, 下圖顯示成功的呼叫QueryHotel方法並取得由TDBXJSONStream物件回傳的JSON資料: 當然我們也可以使用Windows/OSX/Android/iOS客戶端來呼叫QueryHotel方法. 下