2009-11-25

一波未平,一波又起 uLkJSON

高興的收到了 lkJSON 升級到 1.07 ,本想以為 Unicode 問題結決了!結果還是一樣的......不知道為什麼 Delphi 2009 沒有 CodeGear 提供的 JSon Code(如果有、那表示我不知道,請告訴我吧!)。試了在試,就是希望能快快上手。

procedure TForm2.btnuLkJSONClick(Sender: TObject);
var
  jsonParams: TlkJSONobject;
  vParams: String;
begin
  jsonParams := TlkJSONobject.create;
  jsonParams.Add('TStrings', MemoS.Lines.Text);

  Memo1.Lines.Text := '== uLkJSON GenerateText ==';
  vParams := TlkJSON.GenerateText(jsonParams);
  Memo1.Lines.Append(vParams);
  jsonParams.Free;

  MemoD.Lines.Text := '== uLkJSON ParseText ==';
  jsonParams := TlkJSON.ParseText(vParams) as TlkJSONobject;
  vParams := jsonParams.getString('TStrings');
  MemoD.Lines.Append(vParams);
  jsonParams.Free;
end;



lkJSON 有一點好處是在處理 #0d #0a 這部分有轉換到 Unix 常用的 \r \n。如果使用 uJSON 就未遇到 'Unterminated string' 錯誤。雖然可以自己改,但總是別人正在進行的 Code!

沒有留言: