Up. I want to do it on the UniGUI side, I don't want to set any dummy port for later disable it
It has very simple solution (when sources is accessible, but we unfortunatelly has no sources, and have to bother support).
Just bind one port and use same port for https connections and that's all:
IdHTTPServer1.Bindings.Add.Port := HTTPPort;
procedure TWebDataModule.IdHTTPServer1QuerySSLPort(APort: word; var VUseSSL: boolean);
begin
VUseSSL := APort = HTTPPort;
end;
That's all.