Anonymous user
HTTPS: Difference between revisions
Added Delphi example
m (Retro: omit) |
(Added Delphi example) |
||
Line 87:
;; Use
(wget-drakma-stream "https://sourceforge.net")</lang>
=={{header|Delphi}}==
<lang Delphi>program ShowHTTPS;
{$APPTYPE CONSOLE}
uses IdHttp, IdSSLOpenSSL;
var
s: string;
lHTTP: TIdHTTP;
lIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
ReportMemoryLeaksOnShutdown := True;
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.</lang>
=={{header|Erlang}}==
|