TIdHttpServer: Im Ereignis CommandGet Port finden

[marabu]

Hallo Günter,

ich würde es so machen:

Delphi-Quellcode:

procedure TMainForm.HTTPServerCommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  iPort: Integer;
begin
  iPort := AThread.Connection.Socket.Binding.Port;
  // ...
end;

Grüße vom marabu