델파이에서 Json 사용하기
Using Json in Delphi
우선 델파이의 string에서 Json형태로 변경해주는 한줄 함수
At first, the function converting string to JsonString in 1 row.
uses 절에 REST.Json 추가
Add REST.Json @ uses
TJson.JsonToObject
TJson.ObjectToJsonString
클래스 함수로 선언된 것이라 반드시 TJson.을 붙여서 사용해야함
This has to write with TJson in front of the function because it is a class function as you can see.
간단한 클래스 생성
Create simple class
사용방법
Usage
요청 전문은 StringStream으로 TJson.ObjectToJsonString함수를 사용하여 객체를 곧바로 Json형태의 스트링으로 변환하여 담아준다. HTTPJson함수내용은 단순하게 주소로 StringStream을 Post방식으로 보내는 역할뿐이다.
The request as a StringStream is made by string of Json using the converting class TJson.ObjectToJsonString.
HTTPJson function is simple that send StringStream as post method of HTTPPost().
HTTPPost에는 여러가지 overload된 함수가 존재하는데 string으로 요청을 보낼 시에는 이상하게 계속 폴더명이 붙어버린다.
There are lots of overloaded function of HTTPPost. so when trying to send as string, you can see it changes weird string seems like path of directory.
댓글