자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

 

XE8버전으로 아래와  같이  REST서버에 메소드를  만들어서 JSON 객체와  JSONArray를 리턴하였습니다.

그런데 JSONObject 의 경우는 문제가 없는데 JSONArray의 경우 JSON포멧이 이상하여 파싱이 되지 않습니다.

소스코드상에서 변경할 방법을 몰라서  문의 드립니다.

 

아래 JSONObject  타입은 JSON데이터에 문제가 없슴.

getJsonObject.jpg

 

아래 JSONArray타입은  "result":[...] 가 되어야 되는데 "result":[[ ...]] 가 되어  json 파싱이 되지 않음. ㅠㅠ
getJsonArray_Problem.jpg


----------------   관련  소스 ------------------------------------------------------


function TServerMethods1.GetName:TJSONObject;
var
 jRecord,jRecord2: TJSONObject;
begin
  jRecord := TJSONObject.Create;
  result := jRecord;
  result.AddPair('LastName','Hong');
  result.AddPair('FirstName','GilDong');
  result.AddPair('Age','30');
end;

 

function TServerMethods1.MyData: TJSONArray;
var
 jRecord,jRecord2: TJSONObject;
 I: Integer;
begin
ClientDataSet1.Open;
Result := TJSonArray.Create;

while not ClientDataSet1.EOF do
  begin
     jRecord := TJSONObject.Create;
     for I := 0 to ClientDataSet1.FieldCount - 1 do
       jRecord.AddPair( ClientDataSet1.Fields[I].FieldName,TJSONString.Create (ClientDataSet1.Fields[I].AsString));
       Result.AddElement(jRecord);
      ClientDataSet1.Next;
  end;
end;

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 39509
공지 유용한 관련 사이트 관리자2 2014.03.20 79007
892 XE8로 개발한 IoT관련 프로그램을 비글본블랙 보드(우분투14.04설치됨)에 올릴 수... [1] 영감땡감 2015.07.29 507
891 모바일 동영상 강의 DB 문의 [1] file syc 2015.07.27 413
890 [DB문의] Query결과 Row가 여러개일 경우 동시에 보여주는 방법 문의 [1] file 이경백 2015.07.26 1053
889 델파이에서 mysql 테이블에 데이터를 암호화하여 저장하기 superman 2015.07.28 435
888 델파이 XE8 업데이트1은 삭제 후 재설치해야 하는데, 도움되는 내용이 있나요?(설치, 재설치) Humphery 2015.07.28 272
887 델파이 XE7에서 ClientDataSet1 에 환경설정 하고 ACTIVE 을 True 하면 Access violation at address 50BDDD17 in module 'dsnap210.bpl'. Read of address 00000000. 라는 오류메세지가 나옵니다 [3] delphi 2015.07.13 1582
886 firedac oracle instant 관련 문의드립니다. [2] 모모무무 2015.07.23 289
885 [XE7] 클라이언트의 요청에 따라 DB를 선택적으로 연결할 수 있나요? [1] 이대희 2015.07.15 353
884 DUNIT 관련 [2] 초초보 2015.07.21 347
883 BOGO 프로모션 툴 다운로드 받는 방법 안내(2015.6.1~2015.6.30 구매고객) 관리자 2014.06.16 7815
882 XE8 블럭간 라인(?) 제거법 알려주세요. [2] file 도사 2015.07.16 388
881 Quick Report / Fast Report 문의 [1] 연일하 2015.07.15 988
880 64Bit Package 관련 문의 [1] dyna 2015.07.21 255
879 xe8 에서 mssql서버 접속방법 [1] 윤영일 2015.07.18 862
878 XE8 버전 tatukgis 문의합니다. [1] 데브기어만세 2015.07.19 350
877 Ribbon 메뉴 에러 질문.. [1] file syc 2015.07.15 358
» XE8 REST JSON 데이터 서비스 문제문의 [1] file 디알H 2015.07.11 471
875 iOS 앱스토어에 업로드중 에러 메세지... [1] file silkroad99 2015.07.14 595
874 xe7으로 안드로이드앱 ble통신을 하고 있는중입니다. [1] 아기사랑 2015.07.09 720
873 브레이킹 오류 file 마로 2015.07.14 259