자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 15853
공지 유용한 관련 사이트 관리자2 2014.03.20 54651
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98111
1719 webbrowser 이미지 보기 문의 [1] file 사랑남 2015.06.02 345
1718 문장안에 숨어있는 아스키값을 표시할순 없을까요? [1] file 라빌레나 2020.07.29 345
» XE8 REST JSON 데이터 서비스 문제문의 [1] file 디알H 2015.07.11 346
1716 답변이 없으셔서 다시 문의 합니다.(Rest 컴포넌트 관련) [3] 제트콜 2017.09.15 346
1715 Delphi 10.2.1 Update후 MSSQL 2000 연결시 오류가 납니다. 불나방 2017.12.18 346
1714 C/C#으로 만들어진 SDK 델파이에서 사용방법. [3] 엔달 2018.04.25 346
1713 Delphi 10.4 버전 맥용으로 컴파일시 오류 발생하는 이유가 궁금합니다. [2] 델포이 2021.06.04 346
1712 RAD Studio 10.3.2 사용 문의입니다. [1] file ip7203 2019.07.26 347
1711 XE8 리스트박스(데이터+이미지) 쓰레드 방법으로 구현하는 방법... file 김하나 2015.05.28 347
1710 Troubleshooting cannot deploy an application for android에러 [2] file 김태윤 2016.05.23 348
1709 RAD Studio 10.3 비콘관련 문의드립니다. [3] 정은은은 2019.05.14 348
1708 이 에라 메세지는 어떻게 처리하는지요? [1] file 화이부동 2016.09.19 349
1707 안드로이드 API Level 26 문제 [1] 토끼왕 2018.10.06 349
1706 stringgrid에 넣은 Image 클릭 이벤트 발생을 어떻게 해야 하나요? [1] 초보델팡이 2019.06.11 349
1705 [XE8 웹세미나] reFind.exe를 XE이하 환경에서도 쓸 수 있는 방법을 알고 싶네요. 관리자 2015.05.08 349
1704 모바일에서 이미지 로딩시, 사진 방향이 바뀌는 이유 [3] delphiman 2021.01.26 349
1703 리눅스 기반 웹서비스 테스트 중 - [FireDAC][Phys][MySQL]-314. Cannot load vendor library [3] agallee 2017.04.19 350
1702 아이폰 상태바에 내용이 안보이고 그만큼 잘리는 현상입니다. [1] gildata 2017.10.19 350
1701 IBLite 연결 질문~ [2] file 아놀드 2016.01.11 350
1700 delphi 베를린 android database 에러 질문합니다. [4] devdev 2018.10.05 351