Einzelnen Beitrag anzeigen

mjustin

Registriert seit: 14. Apr 2008
3.004 Beiträge
 
Delphi 2009 Professional
 
#2

AW: https web-Server mit indy 10 Fehler: SSL3_GET_Record:wrong version number

  Alt 4. Apr 2021, 09:11
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/
Michael Justin

Geändert von mjustin ( 4. Apr 2021 um 09:15 Uhr)
  Mit Zitat antworten Zitat