첨부파일을 델파이 rest 클라이언드 변환

[이원진]

sResponse := idHttps.Put(URL + //url
                             '?confmKey=' + Code + //인증키값
                             '&client_userid=' + userid + //id
                             ':&client_password=' + cpassword + //password
                             '&Content_type=' + 'application/json:charset=utf-8'
                             );

여기 코딩작성이 잘 되지 않아서 질문 드립니다. 아래파일은 서버단에서 주신 문서 입니다.

어떻게 코딩을 해야 할지 몰라서 질문 드립니다. 

[험프리]

REST 클라이언트를 이용해 REST 서비스와 연동할 수 있습니다.

https://tech.devgear.co.kr/delphi_news/345476

 

위와 같은 문서 중 GET 방식은 아래와 같은 코드로 연동하시면 될 것 같습니다.

uses
  System.NetEncoding;

procedure TForm5.Button1Click(Sender: TObject);
var
  Auth: string;
  Id, Pwd: string;
begin
  RESTClient1.BaseURL := 'https://api.allbaro.or.kr:27000/restApi';
  RESTClient1.ContentType := 'application/json;charset=utf-8';

  RESTRequest1.Method := rmGET;
  RESTRequest1.Resource := 'selectT100_3001_02';

  id := 'blahblah';
  pwd := '';
  Auth := TBase64Encoding.Base64.Encode(Format('%s:%s', [Id, Pwd]));
  RESTRequest1.Params.AddItem('Autorization', 'Basic ' + Auth,
      TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);
  RESTRequest1.Execute;

  Memo1.Lines.Text := RESTResponse1.Content;
end;

RESTClient20211027.zip

 

계정이 없어 테스트는 진행하지 못했습니다. 올바른 계정을 넣어 테스트 진행해보시기 바랍니다.

PUT 메소드도 위 내용 참고하셔서 직접 진행해 보시기 바랍니다.

테스트 후 결과 답변 부탁드립니다.

[이원진]

빠른 답변 감사합니다.

테스트후에 결과 다시 올리도록 하겠습니다.