TIdHttpServer und mehrere Bindings

[GuenterS]

Hallo,

ich bin dabei ein Programm zu schreiben, welches auf mehreren IP/Port auf Http Anfragen lauschen soll.

Dazu würde ich gerne die Indy Komponente TIdHttpServer verwenden. Denke dass mir diese schon eine Menge Arbeit abnimmt.

Solange ich nur eine Adresse mit einem Port zuweise klappt es, aber sobald es mehr werden bekomm ich eine Fehlermeldung. ("SocketFehler 10049. Die angeforderte Adresse kann nicht zugewiesen werden.")

Mein Code schaut in etwa so aus:

Delphi-Quellcode:

  if (not Server.Active) then
  begin
    with qryFirma do
    begin
      First;
      while (not Eof) do
      begin
        lSocketHandle := Server.Bindings.Add;
        lSocketHandle.IP := FieldByName('IP').AsString;
        lSocketHandle.Port := FieldByName('PORT').AsInteger;
        Next;
      end;
    end;
    Server.Active := true;
  end
  else
    Server.Active := false;

Der Fehler kommt genau dann, wenn ich den Server auf Active = true setze.

Als IP und Ports würde folgendes eingetragen
IP: '127.0.0.1' Port: 80
IP: '192.168.1.110' Port: 80