TIdHttpServer: Im Ereignis CommandGet Port finden

[GuenterS]

Hallo,

ich habe eine TIdHttpServer Komponente auf mehrere verschiedene Ports einer bestimmten IP Adresse gemappt und möchte im CommandGet, je nach verwendetem Port unterschiedlich reagieren.

Ich habe mir die RequestInfo angeschaut. Mit RemoteIP bekomme ich die IP des anfragenden Systems, aber wie kann ich die verwendete Port Nummer herausfinden?

[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

[GuenterS]

Super :)

Funktioniert. Dankeschön.