; 在servermethodUnit中Function code 如下:
function TServerMethods1.GetexamlistJson: TJSONArray; var Ja : TJSONArray; Jo : TJSONObject; Jp : TJSONPair; aaaa : String; begin examelist.Active := False; examelist.CommandText := 'select * from examelist where docno = "101-04-011" '; try examelist.Active := True; examelist.First; Ja := TJSONArray.Create; while not examelist.Eof do begin Jo := TJSONObject.Create; Jo.AddPair(TJSONString.Create('單號'),TJSONString.Create(examelist.FieldByName('docno').AsString)); Jo.AddPair(TJSONString.Create('檢查類別'),TJSONString.Create(examelist.FieldByName('itemtype').AsString)); Jo.AddPair(TJSONString.Create('識別編號'),TJSONString.Create(examelist.FieldByName('id').AsString)); Jo.AddPair(TJSONString.Create('序號'),TJSONString.Create(examelist.FieldByName('itemno').AsString)); Jo.AddPair(TJSONString.Create('品名'),TJSONString.Create(examelist.FieldByName('item').AsString)); Jo.AddPair(TJSONString.Create('檢驗說明'),TJSONString.Create(examelist.FieldByName('examscript').AsString)); Jo.AddPair(TJSONString.Create('檢驗方式'),TJSONString.Create(examelist.FieldByName('examtype').AsString)); Jo.AddPair(TJSONString.Create('檢驗結果'),TJSONString.Create(examelist.FieldByName('exameresult').AsString)); Jo.AddPair(TJSONString.Create('檢驗單位'),TJSONString.Create(examelist.FieldByName('signunit').AsString)); Ja.AddElement(Jo); examelist.Next; end; finally result := Ja; end; end; 連結資料庫的部份是使用 dbexpress 元件
mysqlconn: TSQLConnection; examelist: TSQLDataSet; 我另外有用 dbgrid 連接測試,結果中文正常。
請問各位先進,可否指導何處設定有誤導致中文顯示正常。 謝謝!
|