자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi idhttp로 https주소로 post 방식으로 API insert 문의드립니다...
2021.03.26 15:04
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요...
api 부분의 개념을 알아가는게 생각보다 쉽지 않네요....
현재 https의 데이터를 읽어오는것은 됩니다...(get이 맞죠?)
근데 https로 특정 데이터를 insert(put맞죠?) 를 해야하는데 잘 되질 않네요....
procedure Tform1.Button1Click(Sender: TObject);
var
TRequest : TstringStream;
URL, sString, sResponse : String;
api_key, api_name : string;
begin
sString := '';
api_key := 'sadlfjlksdjfeii';
api_name := '12345';
sString := '{'
+ '"api_key" : "' + api_key + '",'
+ '"api_name" : "' + api_name + '",' + '}';
memo1.lines.clear;
memo1.lines.text := sString;
TRequest := TStringStream.Create(Utf8Encode(sString));
try
IDhttp1.Request.ContentType := 'application/json';
IDhttp1.Request.ContentEncoding := 'UTF-8';
IdHTTP1.Request.Username := 'admin';
IdHTTP1.Request.Password := 'admin';
URL := 'https://api.dev~~~~';
try
sResponse := idHTTP1.post(URL, TRequest);
except
on E: Exception do
howMessage('Error on request: '#13#10 + e.Message);
end;
finally
TRequest.Free;
end;
memo2.lines.text := sResponse;
end;
idhttp와 IdSSLIOHandlerSocketOpenSSL1 을 사용했구요...
IdSSLIOHandlerSocketOpenSSL1의 SSLOptions의 버전은 sslvTLSv1_2만 설정했습니다...
같은 설정으로 데이터를 읽어오는건 잘되는데...
insert는 안되네요...memo2에서 보여지는 값이 계속해서 에러나 나네요....ㅠㅠ
RAD10.4로 작업했습니다...
Whitelabel Error Page
This application has no explicit mapping for /error, so you are seeing this as a fallback.
id='created'
There was an unexpected error (type=Unauthorized, status=401)
고수분들 도움 부탁드립니다...
댓글 2
Delphi idhttp로 https주소로 post 방식으로 API insert 문의드립니다...
2021.03.26 15:04
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요...
api 부분의 개념을 알아가는게 생각보다 쉽지 않네요....
현재 https의 데이터를 읽어오는것은 됩니다...(get이 맞죠?)
근데 https로 특정 데이터를 insert(put맞죠?) 를 해야하는데 잘 되질 않네요....
procedure Tform1.Button1Click(Sender: TObject);
var
TRequest : TstringStream;
URL, sString, sResponse : String;
api_key, api_name : string;
begin
sString := '';
api_key := 'sadlfjlksdjfeii';
api_name := '12345';
sString := '{'
+ '"api_key" : "' + api_key + '",'
+ '"api_name" : "' + api_name + '",' + '}';
memo1.lines.clear;
memo1.lines.text := sString;
TRequest := TStringStream.Create(Utf8Encode(sString));
try
IDhttp1.Request.ContentType := 'application/json';
IDhttp1.Request.ContentEncoding := 'UTF-8';
IdHTTP1.Request.Username := 'admin';
IdHTTP1.Request.Password := 'admin';
URL := 'https://api.dev~~~~';
try
sResponse := idHTTP1.post(URL, TRequest);
except
on E: Exception do
howMessage('Error on request: '#13#10 + e.Message);
end;
finally
TRequest.Free;
end;
memo2.lines.text := sResponse;
end;
idhttp와 IdSSLIOHandlerSocketOpenSSL1 을 사용했구요...
IdSSLIOHandlerSocketOpenSSL1의 SSLOptions의 버전은 sslvTLSv1_2만 설정했습니다...
같은 설정으로 데이터를 읽어오는건 잘되는데...
insert는 안되네요...memo2에서 보여지는 값이 계속해서 에러나 나네요....ㅠㅠ
RAD10.4로 작업했습니다...
Whitelabel Error Page
This application has no explicit mapping for /error, so you are seeing this as a fallback.
id='created'
There was an unexpected error (type=Unauthorized, status=401)
고수분들 도움 부탁드립니다...
10.4 사용하시면 그냥 RestClient 를 사용하면 더 좋지 않을까요?