idhttp와 idSSLIOHANDLERSocketOpenSSL을
이용하여 https 페이지를 가져오려고 하는데
어떻게 해야되나요??
아래는 작성한 코드인데
"Socket Error # 10060 Connection timed out."이 발생합니다.
procedure TForm1.btnRequestClick(Sender: TObject);
var
s: string;
lHTTP: TIdHTTP;
lIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
lHTTP := TIdHTTP.Create(nil);
lIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
try
lHTTP.IOHandler := lIOHandler;
lHTTP.HandleRedirects := True;
s := lHTTP.Get(' https://esta.cbp.dhs.gov/esta/');
Memo.Text := s;
finally
lHTTP.Free;
lIOHandler.Free;
end;
end;
|