안녕하세요 델파이개발자인데
주소 API 이용하고 싶어서 테스트 해보고 있습니다.
Debugger Exception Notification
Project JUSO.exe raised exception class EIdOSSLConnectError with message ‘Error connecting with SSL.’.
Break Continue Help
이 에러 원인을 못찾겠습니다.
에러는 OpenSSL 에러인데 REST API의 이용방법이 잘못됐나요?
google이나 다른 https url로 넣었을 때는 에디트에 응답바디가 잘 받아집니다.
procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
IdHTTP_ForAddress: TIdHTTP;
ForSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
try
IdHTTP_ForAddress := TIdHTTP.Create(nil);
ForSSL := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP_ForAddress);
try
// HTTPS 통신위해서
ForSSL.SSLOptions.Method := sslvSSLv23;
IdHTTP_ForAddress.IOHandler := ForSSL;
IdHTTP_ForAddress.ReadTimeout := 50000;
// 헤더 Auth인증
IdHTTP_ForAddress.Request.Accept := ‘application/json, text/plain; q=0.9, text/html;q=0.8,’;
IdHTTP_ForAddress.Request.AcceptCharSet := ‘UTF-8, *;q=0.8’;
IdHTTP_ForAddress.Request.CustomHeaders.FoldLines := False;
IdHTTP_ForAddress.Request.CustomHeaders.Values[‘Authorization’] := 'KakaoAK ’ + API_KEY;
s := IdHTTP_ForAddress.Get(‘https://dapi.kakao.com/v2/local/search/address.json?query=234’);
RichEdit1.Text := s;
except
on E: EIdHTTPProtocolException do begin
showMessage(inttostr(E.ErrorCode));
end;
end;
finally
IdHTTP_ForAddress.Free;
end;
end;