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

혹시, 필요한 분이 있을까봐 남겨둡니다. (자문 자답)

 

Unleashed라는 도매 및 창고관리 SaaS 클라우드 소프트웨어의 API를 이용하는 애플리케이션을 델파이로 개발하고 있습니다.

해당 REST API를 이용하여 Product 데이터 1개의 수많은 필드 중 2개 필드의 값만 변경하고, 다른 것은 그대로 유지해야 했습니다.

 

그런데, Unleashed 에서 제공하는 API는 변경 시에도 PUT이나 PATCH 방식이 아니라 오직 POST만 제공합니다.

그리고, POST로 해당 Product 데이터를 제공할 때, 값을 넣지 않은 필드는 모두 디펄트값으로 변경된다고 합니다.

즉, 나는 2개 필드만 바꾸고 싶은데, 결국 바꾸고 싶은 2개 필드 이외에도 해당 Product의 모든 필드에 해당 현재 값을 모두 채워서 POST 방식으로 요청해야 하는 상황이 되었습니다.

 

HTTP 스펙 상 CRUD 메소드로, POST(생성, Create), GET(조회, Read), PUT(수정, Update- 통채로 Replace), PATCH(수정, Update-해당 부분만 Modify) 또는 DELECT(삭제, Delete) 방식(Method)를 정하고 있다는 면에서 볼 때, Unleashed의 API는 (뭔가 이유가 있었을텐데) 쉽게 이해하기는 힘듭니다. 하지만, API사용자 입장에서는 최대한 API 제공자의 서비스를 이해하고 맞추는 수밖에 없습니다. 아마 API 제공자도 이미 오픈한 API를 바꾸기도 쉽지 않겠죠) 

 

그래서, API 서버에서 Product을 JSON으로 가져오고, 그 JSON 안에서 원하는 2개 필드의 값만 바꾸어서 다시 API 서버로 통채로 던져서 수정하는 방법을 사용했습니다.

 

JSON 안의 특정 필드 값만 바꾸는 방법은 TJsonPair를 사용하면 간단합니다.

 

사실 Stack Overflow의 아래에 설명된 대로 하였습니다.
단, Stack Overflow에서 알려준 코드에서 JSON페어.JsonValue.Free; 코드가 없어야 작동합니다.(Delphi 10.3.3 버전 기준)

https://stackoverflow.com/questions/33426576/

 

[작성된 실전 코드 중 해당 부분 발췌 (Delphi 10.3.3 버전 기준)]

uses

..., System.JSON;

procedure TfrmMainForm.PriceBatchUpdate;

var

 JOProductU: TJSONObject;

 JOPair: TJSONPair;

begin

//상품코드를 이용하여 상품 데이터를 TJsonObject로 받아온다. 

JOProductU := TProductMgmt.GetProductUByProductCodeJSON(ProductCode);

 

 //TJsonPair로 원하는 필드를 가진 TJsonPair를 잡는다 (기본판매가: DefaultSellPrice 필드)

 //가장 바깥에 있는 필드라면, 이렇게 바로 잡아낸다. 

 JOPair := JOProductU.Get('DefaultSellPrice'); 

 PriceDefaultSellUOld := JOPair.JsonValue.Value; //기본판매가 값을 기록해둔다.(로그용)

 JOPair.JsonValue := TJSONNumber.Create(10); //기본판매가 값을 10으로 바꾼다.

 

//TJsonPair로 원하는 필드를 가진 TJsonPair를 잡는다 (T1판매가: SellPriceTier 필드 안에 있는 Value라는 필드)

 //이런 식으로 얼마든지 안쪽 깊이 들어 있는 필드도 잡을 수 있다. 

 JOPair := JOProductU.GetValue<TJSONObject>('SellPriceTier1').Get('Value');  

 PriceSell1UOld := JOPair.JsonValue.Value; //T1판매가 값을 기록해둔다.(로그용)

 JOPair.JsonValue := TJSONNumber.Create(15); //T1판매가 값을 15으로 바꾼다.

...

//TJsonObject인 JOProductU에서 원하는 값을 위 방법으로 이미 교체했으므로, 그대로 서버에 보낸다. 끝.

 dmUnleashedAccess.UpdateProduct(ProductIDU,JOProductU);

end;

 

(델파이 초보입니다. 더 좋은 코드나 제안이 있으면, 댓글로 가르침을 주세요. 미리 환영합니다)

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20047
공지 유용한 관련 사이트 관리자2 2014.03.20 58957
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102574
2919 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 10 - Exercise 1 [1] 관리자 2016.05.10 185
2918 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 9 - Exercise 3 [1] 관리자 2016.05.02 206
2917 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 9 - Exercise 2 [1] file 관리자 2016.05.02 211
2916 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 9 - Exercise 1 [1] file 관리자 2016.05.02 202
2915 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 23 - Exercise 1 관리자 2016.05.27 177
2914 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 14 - Exercise 2 관리자 2016.05.10 175
2913 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 4 [2] 관리자 2016.05.02 259
2912 TMediaPlayer.Open 중 Invalid floating point operation 에러 발생 [4] Jack 2020.06.29 867
2911 modal이 뒤로 숨는현상 cleo0917 2020.07.03 184
2910 DataSnap 문의입니다. [3] 최민철 2014.10.08 1713
2909 Firemoney 로 Mac 및 리눅스 앱 제작시 [1] 100jk 2020.06.26 154
2908 출력이 보이지 않습니다. [1] yawayo 2020.06.29 110
2907 구글플레이에 게시시 32, 64비트 스마트폰 동시에 지원하는 방법은? [1] 화이부동 2020.07.02 97
2906 TMS그리드 설치시 에러 [1] 피스티스 2020.07.02 287
2905 설치및 구버젼 라인센스 [2] 희망나라 2020.07.02 131
2904 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 2 [1] 관리자 2016.05.02 272
2903 TMediaPlayer.Play 에서 floating point invalid operation 에러 Jack 2020.06.30 190
2902 [세미나: 데이터와 RAD] 공유메모리를 32비트에서 잘사용중인데 64비트에서 문제가 있습니다. [2] 험프리 2020.06.24 449
» (자문 자답) JSON 안의 특정 필드 값만 바꾸는 방법은 TJsonPair를 사용하면 간단합니다. (POST, PUT 방식으로 특정 필드만 교체할 때, 특히 유용) [2] WhiteC 2020.06.15 433
2900 코로나19 세미나 관련 DB오류 질문드립니다. file 유정 2020.06.25 140