Как сделать https сервер на ubuntu server?

Рейтинг: 0Ответов: 1Опубликовано: 17.06.2023

В Delphi 11 на windows создаю сервер с помощью Indy и компилирую на Ubuntu server с установленным openssl-3.1.0

IdHTTPServer := TIdHTTPServer.Create(nil);
IdHTTPServer.DefaultPort := 9875;
IdHTTPServer.IOHandler := TIdServerIOHandlerSSLOpenSSL.Create(IdHTTPServer);
(IdHTTPServer.IOHandler AS TIdServerIOHandlerSSLOpenSSL).SSLOptions.RootCertFile := 'root.pem';
(IdHTTPServer.IOHandler AS TIdServerIOHandlerSSLOpenSSL).SSLOptions.CertFile := 'cert.pem';
(IdHTTPServer.IOHandler AS TIdServerIOHandlerSSLOpenSSL).SSLOptions.KeyFile := 'key.pem';
(IdHTTPServer.IOHandler AS TIdServerIOHandlerSSLOpenSSL).SSLOptions.Mode := sslmServer;
(IdHTTPServer.IOHandler AS TIdServerIOHandlerSSLOpenSSL).SSLOptions.CipherList := 'ALL';
(IdHTTPServer.IOHandler AS TIdServerIOHandlerSSLOpenSSL).SSLOptions.SSLVersions := fuGetSSLVersions;
IdHTTPServer.OnCommandGet := IdHTTPServerOnCommandGet;
IdHTTPServer.Active := True;

Если обращаюсь к серверу http://host:9875/, ответ приходит, а как только пробую httpS://host:9875/ , ответа нет.

Подскажите, может я что то забыл, почему не работает?

ubuntu https delphi openssl indy
Источник: Stack Overflow на русском

Ответы

▲ 0Принят

@zed спасибо, помогло.

constructor THttpServer.Create;
begin
  inherited Create;
  IdHTTPServer := TIdHTTPServer.Create(nil);
  ...
  IdHTTPServer.OnQuerySSLPort := IdHTTPServerOnQuerySSLPort;
  ...
end;

procedure THttpServer.IdHTTPServerOnQuerySSLPort(APort: Word; var VUseSSL: Boolean);
begin
  if APort = 9876 then VUseSSL := False
  else if APort = 9875 then VUseSSL := True;
end;