자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi json 사용 https 주소로 post 방식으로 API 호출tl Header 에 key 추가부분좀 봐주세요
2019.03.07 18:47
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
구글 검색했는데 잘모르겠어요
POSTMan 에서 셋팅은
호출할 API URL은 https://~
https 형식 주소이고
post 방식호출
headers 에 Key : XXXXX, value : XXXXX 등록
Text -> JSON(application/json)
보낼 형식을 raw
json 형태로 내용을 입력
{ "contents": "테스트 테스트" }
이걸 델파이 코드로 만들려고 하는데
다른데 소스 있는거 보고 추가 해보았는데요
https 쪽으로 API 호출로 IOHandler 추가하고
hearder 에 KEY 값을 추가 하는데 아래처럼 하는게 맞는가요?
IdHTTP1.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
IdHTTP1.HandleRedirects := True;
IdHTTP1.Request.Clear;
IdHTTP1.Request.Accept := 'application/json';
IdHTTP1.Request.ContentEncoding := 'UTF-8';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Request.CustomHeaders.Values['x-api-token'] := 'xxxxxxxx';
param_req := Memo2.Text ;
Params := TStringList.Create;
try
Params.Values['JSONData'] := param_req;
Response := TBytesStream.Create;
try
IdHTTP1.Post('https://xxxxx', Params, Response);
Response.SetSize(Response.Size);
Res := TEncoding.UTF8.GetString(Response.Bytes);
Memo1.Lines.Add(Res);
finally
Response.Free;;
end;
finally
Params.Free;
end;
Delphi json 사용 https 주소로 post 방식으로 API 호출tl Header 에 key 추가부분좀 봐주세요
2019.03.07 18:47
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
구글 검색했는데 잘모르겠어요
POSTMan 에서 셋팅은
호출할 API URL은 https://~
https 형식 주소이고
post 방식호출
headers 에 Key : XXXXX, value : XXXXX 등록
Text -> JSON(application/json)
보낼 형식을 raw
json 형태로 내용을 입력
{ "contents": "테스트 테스트" }
이걸 델파이 코드로 만들려고 하는데
다른데 소스 있는거 보고 추가 해보았는데요
https 쪽으로 API 호출로 IOHandler 추가하고
hearder 에 KEY 값을 추가 하는데 아래처럼 하는게 맞는가요?
IdHTTP1.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
IdHTTP1.HandleRedirects := True;
IdHTTP1.Request.Clear;
IdHTTP1.Request.Accept := 'application/json';
IdHTTP1.Request.ContentEncoding := 'UTF-8';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Request.CustomHeaders.Values['x-api-token'] := 'xxxxxxxx';
param_req := Memo2.Text ;
Params := TStringList.Create;
try
Params.Values['JSONData'] := param_req;
Response := TBytesStream.Create;
try
IdHTTP1.Post('https://xxxxx', Params, Response);
Response.SetSize(Response.Size);
Res := TEncoding.UTF8.GetString(Response.Bytes);
Memo1.Lines.Add(Res);
finally
Response.Free;;
end;
finally
Params.Free;
end;
REST 클라이언트 기준 자료는 다음 링크를 참고하시기 바랍니다.
http://tech.devgear.co.kr/delphi_news/449892
RESTRequest1
.
Params
.
AddItem(
'api-auth-id'
, UNLEASHED_API_ID, pkHTTPHEADER);
RESTRequest1
.
Params
.
AddItem(
'api-auth-signature'
, signature, pkHTTPHEADER, [poDoNotEncode]);
——————
답글이 도움이 되셨는지 다른 분들도 참고할 수 있도록 결과 댓글 부탁드립니다.
(결과 댓글이 없는 경우 다른 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)