Also ich hab dein Beipiel gerade auf mein Progyy angewandt und ich bekomm bei 'Online' Benutzern Resonanz. Bei Oflline einen Fehler wegen Zeitüberschreitung [EIDTimeout]Fehler. Also in sofern Erfolg das ich wenigstens ne Fehlermelkdung bekomme.
Kann mir jetzt mit dem Fehler weiterhelfen?
Hier noch mal de Code:
Delphi-Quellcode:
procedure TfrmMain.Timer1Timer(Sender: TObject);
var i :integer;
var Kontakte :
array of ttreenode;
begin
timer1.enabled := false;
setlength(kontakte,table1.RecordCount);
table1.First;
for i := 0
to length(kontakte) -1
do begin
try
generalc.Host := table1.fieldbyname('
IP').Text;
generalc.Connect(2000);
if generalc.Connected
then
begin
generalc.Disconnect;
showmessage('
Verbunden mit ' + generalc.Host);
end;
except
generalc.Disconnect;
showmessage('
Host ' + generalc.Host + '
nicht erreichbar!');
end;
if not table1.Eof
then table1.next;
timer1.enabled := true;
end;
Danke im Vorraus
Snaky