Delphi 호출 REST

2461 단어
Delphi 호출 REST는 간단합니다. 먼저 인터페이스에 배치합니다.
RESTClient1: TRESTClient; RESTRequest1: TRESTRequest; RESTResponse1: TRESTResponse;
간단히 호출하면 됩니다.
RESTClient1.BaseURL:=edtURL.Text;
RESTRequest1.Execute;
memLog.Text:=RESTResponse1.Content;

또한 JSON 구문 분석 등의 결과를 추가로 처리할 수도 있습니다.
procedure TfrmMain.btnGetClick(Sender: TObject);
var
  jo,jo2:TJSONObject;
  jv:TJSONValue;
  ja:TJSONArray;
  jp:TJSONPair;
  i:Integer;
begin
  RESTClient1.BaseURL:=edtURL.Text;
  RESTRequest1.Execute;
  memLog.Text:=RESTResponse1.Content;

  jo:=TJSONObject.Create;
  ja:=jo.ParseJSONValue(RESTResponse1.Content) as TJSONArray;
  for jv in ja do
   begin
      jo2:=jv as TJSONObject;
      for i:=0 to jo2.Count-1 do
      begin
        jp:=jo2.Pairs[i];
        memLog.Lines.Add(jp.JsonString.ToString+':'+jp.JsonValue.ToString);
      end;
   end;

end;

여기서 저는 Delphi가 자체로 가지고 있는 JSON 해석을 사용하고 단원 시스템을 참조합니다.json.

좋은 웹페이지 즐겨찾기