idTCPClient.Connect + Timeout und Abbruch

[Klaus01]

Hallo,

habe noch folgenden Thread in den NewsGroups gefunden: http://groups.google.de/group/borlan...2020fea855b604

Erklärt vielleicht das Problem.

Und viel Erfolg mit den 10er Indys.

Grüße
Klaus

[halinchen]

Danke!
Ich denke es ist genau das was ich suche!

[halinchen]

Ich hab jetzt Indy 10 installiert.

Und es geht nicht...

"Fehler beim Laden von Client.ConnectionTimeOut, Eigenschaft existiert nicht".

Übrigens auch bei einem, außer einem TidTCPClient, komplett leeren Projekt.
Ich probiers erstmal zu beheben, sonst kann ich schlecht weitermachen

[inherited]

Hast du die Pfade gesetzt?

[halinchen]

Ja. Ich habe selbst alle (und wirklich alle) Packages in Delphi deinstalliert und die *.bpl Dateien gelöscht. Und musste ich ich alles Packages wieder installieren.

Ich nehm jetzt wieder Indy 9, da gibts auch den TidICMPClienten.
Dann steig ich um wenn ich Zeit habe.

EDIT:

Zitat:

Set TIdICMPClient.Host to the Host IP to be checked.
Set TIdICMPClient.ReceiveTimeout to the number of ms to wait.
Call TIdICMPClient.Ping.
Check TIdICMPClient.ReplyStatus.ReplyStatusType.

If the ReplyStatus.ReplyStatusType <> rsTimeOut then it should be safe to
call Connect using the TCP Client. Otherwise connect will block until the
protocol stack times out.

Ich habs genauso gemacht und die CPU-Auslastung ging auf 100%, sonst passiert nichts. Nach ICMP.Ping ist Schluss;
Nach 2 Minuten hab ich es aufgegeben.
Das hatte es allerdings in einem Thread gemacht.

Ohne Thread funktioniert es!
Auf der Seite schien es bei ihm aber zu klappen, nur bei 2 gleichzeitigen nicht.

Hier mein Code:

Delphi-Quellcode:

var
ICMP:TidICMPClient;
begin
ICMP := TidICMPClient.Create(NIL);
ICMP.Host := Host; //Host, Port, TimeO sind globale Variablen des Thread-Objekts
ICMP.Port := Port;
ICMP.ReceiveTimeout := TimeO;
try
ICMP.Ping;
except
... //Hier Thread beenden
ICMP.Free;
exit;
end;
ICMP.Free;
...
end;

halinchen

P.S. Man muss nicht den ReplyStatus.ReplyStatustype abfragen, sondern den Ping-Befehl in einen try...except...end-Block (zumindest ging es bei mir nur so).

[halinchen]

Ich hab jetzt alles mit Indy 10 getestet. Auch kein Unterschied.
Ich werde die Sache jetzt auf sich beruhen lassen. Ich mach es ja nur als Hobby und ich hätte nie gedacht das sowas so kompliziert ist!

Nochmal ein dickes "DANKE" an alle!

halinchen

P.S. Falls ich trotzdem mal rausfinde worin es lag, schreib ich es hier rein.

[halinchen]

Ich hab mir das alles nochmal angeguckt.
Die Ping-Indy Kompo braucht irgentwelchen RAW-Zugriff.
-> Man muss Admin sein.

Kennt jemand eine Ping-Komponente, mit der man auch als eingeschränkter Benutzer pingen kann?

[halinchen]

Für alle die das selbe Problem wie ich haben:
Mit den TimeOut Funktionen der einzelnen Kompos kommt man nicht weiter.
Aber es geht doch:

Ich habe mir einen Thread angelegt, der das Senden übernimmt.
Nun habe ich vor dem Aufrufen des Threads GetTickCount in eine Variable gespeichert.
Und nun in einer Schleife testen ob die Zeit überschritten ist

Delphi-Quellcode:

Tick := GetTickCount;
While (not thread.Terminated) do begin
    Application.ProcessMessages;
    If (GetTickCount-Tick > TimeOut) AND (not thread.state) then break;
    end;

Nochmal zur Erläuterung:
thread.state ist ein Boolean und wird nach dem Verbinden (Client.Connect im Thread.Execute-Teil) auf true gesetzt.
Das habe ich gemacht, das es nicht abbricht wenn es sich schon verbunden hat. Es kann ja sein das das senden etwas länger dauert.

halinchen

//EDIT: Thread.FreeOnTerminate muss True sein, sonst gibt es den Speicher nicht mehr frei!!!

[glkgereon]

Ich stehe vor dem selben Problem...

Es kann doch nicht sein dass man um ein ConnectTimeout abzufangen in einem neuen thread anfangen muss den server zu pingen

Ich mein: ignoriert der IdTCPClient die Eigenschaft "ConnectTimeout" einfach?
Ist doch echt zum heulen

*anfang thread zu schreiben*

wenn irgendwer noch eine andere Idee hat...hierhin

[halinchen]

Du kannst auch unter der Eingabeaufforderung "ping computer /w 1" und "ping computer /w 1000". Da kommt auch kein Unterschied .

Wenn du Hilfe brauchst kannst mich ja auch fragen. Ist eigentlich auch nicht schwerer. Wenn du willst zeig ich dir den ganzen Quelltext.