Problem bei Überprüfung ob Client Online ist! IndyTCP

[Snaky]

habe ein Problem mit der IndyTCPclient Komponente. Ich lasse mit einer For-Schleife Verbindungen zu Servern aufabeun. Fals der Server online ist wird die ip in eine TreeNode von einer Treeview eingetragen. Mein Problem ist das das Programm ohen Fehlermeldung abstürzt sobald ein Server Offline ist. Hier der Code:

Delphi-Quellcode:

procedure TfrmMain.Timer1Timer(Sender: TObject);
var i :integer;
var Kontakte : array of ttreenode;
begin
setlength(kontakte,table1.RecordCount);
tree2.Items.Clear;
tree2.items.add(nil,'Online');
tree2.items.add(nil,'Offline');
pb1.max := table1.recordcount;
pb1.visible := true;
table1.First;
for i:= 0 to table1.recordcount -1 do begin
  pb1.position := i;
  GeneralC.host := table1.fieldbyname('IP').text;

  try GeneralC.Connect;
    GeneralC.Disconnect;
    kontakte[i] := tree2.Items.AddChildFirst(tree2.Items.Item[0],table1.fieldbyname('Name').Text);
//0 ist online
    tree2.FullExpand;
  except;
//1 ist Offline
    kontakte[i] := tree2.Items.AddChildFirst(tree2.Items.Item[1],table1.fieldbyname('Name').Text);
    tree2.FullExpand;
  end;

  if not table1.Eof then table1.Next;

end;
pb1.visible := false;


end;

Ich bedanke mich schonm,al im vorraus für die Hilfe.
Snaky

[DataCool]

Hi,

erstmal würde ich den Connect mit einem Timeout versehen !

Code:

GeneralC.Connect(5000); // 5 Sekunden

Zweitens, würde ich Dir dringenst empfehlen am am Anfang deiner Procedure den Timer auszuschalten und am Ende der Procedure den Timer wieder anzuschalten, vielleicht das ganze durch nen Try Finnally Block sichern.

Dann würde ich hingehen und Deinen Code etwas optimieren :

Code:

  // .....
  try 
    GeneralC.Connect(5000); // Timeout 5 Sek.
  except
    // just catch the exception
  end;
  if GeneralC.connected then begin
    // save disconnect
    try
      GeneralC.disconnect;
    except 
      // just catch it 
    end;
    kontakte[i] := tree2.Items.AddChildFirst(tree2.Items.Item[0],table1.fieldbyname('Name').Text);
  end
  else begin
    // Offline
    kontakte[i] := tree2.Items.AddChildFirst(tree2.Items.Item[1],table1.fieldbyname('Name').Text);
  end; 
end; // end vom For
if tree2.items.item[0].ChildCount > 0 then
  tree2.items.item[0].Fullexpand;
if tree2.items.item[1].ChildCount > 0 then
  tree2.items.item[1].Fullexpand;

Desweiteren würde ich mir noch Deinen "Online" und Deinen "Offline" Node in einer temporären Var speichern und nicht mit Item[0] und Item[1] arbeiten.

Gruß Data

[Snaky]

Ja aber das ist nicht wirklich ne Lösung für das Problem. Das iss ja im Mom noch Quick and Dirty!

Frage ist ja warum das abstürzt und das hat nix mit dem Timeout zu tun. Ist ja schön und gut das du da was optimierst aber damit ist mir nicht wirklich geholfen!

Trotzdem vielen dank!

Snaky

[DataCool]

Hi,

hast du das ganze mal debugged ? Wo knallt er denn ?
Auf Anhieb ist mir von der Logik nämlich nix aufgefallen, ausser das der timer doppelt eintreten könnte.

Gruß Data

[Snaky]

hi,

der Timer tritt erst nach 30seks wieder ein (Also kein Doppel). Der Debugger gibt keine Fehler aus! Das Programm bleibt einfach hängen. Ka worans liegt!

Snaky

[DataCool]

Hi,

und was passiert, wenn du ohne Timeout connectest ?
Meinst du nicht das könnte 30 sek. dauern ? und dann haste das was ich gesagt habe doppelter Timer

Gruß Data

P.S.: Bleibt einfach hängen könnte auch passieren, wenn DU kein IdAntifreeze auf der Form hast

[Snaky]

Ja wenn der Timer den Fehler verursachen würde dann würde es ja auch nicht bei den Kontakten funitionieren die Onlinen sind. Da diese aber funktionieren kanns daran ja nicht liegen!

Snaky

[DataCool]

Hi,

bei den online Kontakten bekommst du nen connect und musst nicht länger als den Timer-Intervall warten !

GRuß DAta

[Snaky]

Also du meinst das so:

GeneralC.connect(Timeout...)
wenn der connected hast ja keinen Timeout.
wenn der nicht online ist dann Timeout...
Geht der das dann trotzdem in den Except Teil???

Snaky

PS: bin grad in der schule und kann das nicht ausprobieren


trotzdem Daneke
Snaky

[Chris1986]

Mal ne andere Vermutung:
Wenn du das Programm aus der Delphi-IDE heraus startest knallts immer. Probiers mal so zu starten. Aber irgendwie finde ich die Lösung auch nicht schön. Wenn du nur im LAN connecten willst solltest du dir mal UDP-Broadcasts ansehen. im Inet könntest du alle IP's auch etwas bequemer durchgehen und du bräuchtest nichtmal einen try-except Block.

Gruß
Christian