24 lines
442 B
Plaintext
24 lines
442 B
Plaintext
program ShowHTTPS;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses IdHttp, IdSSLOpenSSL;
|
|
|
|
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://sourceforge.net/');
|
|
Writeln(s);
|
|
finally
|
|
lHTTP.Free;
|
|
lIOHandler.Free;
|
|
end;
|
|
end.
|