이원진 10월 27일, 2021에 포스트됨 공유하기 10월 27일, 2021에 포스트됨 sResponse := idHttps.Put(URL + //url '?confmKey=' + Code + //인증키값 '&client_userid=' + userid + //id ':&client_password=' + cpassword + //password '&Content_type=' + 'application/json:charset=utf-8' ); 여기 코딩작성이 잘 되지 않아서 질문 드립니다. 아래파일은 서버단에서 주신 문서 입니다. 어떻게 코딩을 해야 할지 몰라서 질문 드립니다. 인용하기 이 댓글 링크 다른 사이트에 공유하기 더 많은 공유 선택 사항
0 험프리 10월 27일, 2021에 포스트됨 공유하기 10월 27일, 2021에 포스트됨 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 메소드도 위 내용 참고하셔서 직접 진행해 보시기 바랍니다. 테스트 후 결과 답변 부탁드립니다. 인용하기 이 댓글 링크 다른 사이트에 공유하기 더 많은 공유 선택 사항
0 이원진 10월 27일, 2021에 포스트됨 Author 공유하기 10월 27일, 2021에 포스트됨 빠른 답변 감사합니다. 테스트후에 결과 다시 올리도록 하겠습니다. 인용하기 이 댓글 링크 다른 사이트에 공유하기 더 많은 공유 선택 사항
질문
이원진
sResponse := idHttps.Put(URL + //url
'?confmKey=' + Code + //인증키값
'&client_userid=' + userid + //id
':&client_password=' + cpassword + //password
'&Content_type=' + 'application/json:charset=utf-8'
);
여기 코딩작성이 잘 되지 않아서 질문 드립니다. 아래파일은 서버단에서 주신 문서 입니다.
어떻게 코딩을 해야 할지 몰라서 질문 드립니다.
이 댓글 링크
다른 사이트에 공유하기
2 answers to this question
Recommended Posts
이 토의에 참여하세요
지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.