Funktioniert denn der Zugriff auf den Server innerhalb des lokalen Netzes über einen Browser (Chrome, Firefox, Edge, ...) oder kommt hier auch eine Fehlermeldung?
Hier ist ein minimales Testprojekt für
Indy HTTPS Konfiguration:
Delphi-Quellcode:
program IndyHttpsTest;
{$APPTYPE CONSOLE}
uses
IdSSLOpenSSL,
IdGlobal, IdHTTPServer,
SysUtils, Classes, ShellAPI;
procedure Start;
var
IOHandler: TIdServerIOHandlerSSLOpenSSL;
Server: TIdHTTPServer;
begin
// create IOHandler for OpenSSL
IOHandler := TIdServerIOHandlerSSLOpenSSL.Create;
IOHandler.SSLOptions.CertFile := '
cert.pem';
IOHandler.SSLOptions.KeyFile := '
key.pem';
IOHandler.SSLOptions.RootCertFile := '
cacert.pem';
IOHandler.SSLOptions.Mode := sslmServer;
Server := TIdHTTPServer.Create;
try
Server.DefaultPort := 443;
Server.IOHandler := IOHandler;
Server.Active := True;
// start the server
WriteLn(Format('
Server is listening on port %d', [Server.DefaultPort]));
// launch browser
ShellExecute(0, '
open', PChar('
https://127.0.0.1'), '
', '
', 0);
// terminate
WriteLn('
Hit any key to terminate.');
ReadLn;
finally
Server.Active := False;
Server.Free;
end;
end;
begin
try
Start;
except
on E:
Exception do begin
Writeln(E.Classname, '
: ', E.
Message);
ReadLn;
end;
end;
end.
https://github.com/michaelJustin/dar...yHttpsTest.dpr
Es gehört zu diesem Artikel:
https://mikejustin.wordpress.com/201...y-http-server/