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