Chat Internetfähig machen!!!?!?!?!??!?!?!?!?[/color]
Mein Programm soll im Internet laufen, da ich keine feste
IP habe benötige ich ein scanntool, das mir die ServerIP herausfindet, nur wie!
Newbee sucht Hilfe!
Dieser vereinfachte Code zeigt mein Problem!
Delphi-Quellcode:
PROCEDURE SCAN;
VAR i:Integer;
Begin
For i:=0 to 255 do
Begin
Client.host:='192.168.2.'+inttostr(i);
Client.open;
If Client.socket.connected=true then
Listbox1.items.add('Client.host');
Client.close;
end;
end;
Wenn nun die Verbindung versucht wird aufzubauen kommt eine Fehlermeldung, logisch und das Programm bleibt stehn! Wieverhindere ich diese Fehlermeldung, so das alle 255 Möglichkeiten ausprobiert werden und hinterher nur noch die richtigen ips in der Listbox stehen!
Habe schon mit Try und Except experimentier, hat aber den gleichen Effekt!
Bitte um Hilfe!
Thx
[Edit=Sakura]Delphi-Tags eingefügt.[/Edit]