Socket Komponente im XE4 <-> Indy TCPClient XE7

[Alex_ITA01]

Stimmt, eine Zeile im Code fehlt.
Nämlich das
with TCPClient do Das steht ganz außen rum.
Du hast Recht, in der XE7 Variante habe ich vor dem IOHandler das TCPClient extra stehen. Das ist aber überflüssig und lässt sich auch compilieren.
Die vielen Exception Behandlungen habe ich nur reingemacht um festzustellen, wo es knallt.

Die XE4 Variante geht bei mir und den anderen beiden Rechnern ohne Probleme.
Nur die XE7 mit der eingesetzten Indy Komponente macht teilweise Probleme.
Was mich hat total wundert, warum bekomme ich beim "WriteLn" eine Exception die heißt, Verbindung erfolgreich geschlossen?
Ich wollte doch gar nicht schließen...
Hoffe ihr habt noch paar Ideen.

Viele Grüße

Edit für die XE7 Variante:
Ich habe die TIdTCPClient Komponente auf einem Formular sitzen und habe einen IOHandler als Komponente auch mit auf das Formular gesetzt. Dann habe ich bei der TCPClient Komponente den IOHandler entsprechend im Objektinspektor verknüpft.
Hat es vielleicht damit etwas zu tun?

Laut deinem Source weißt du ja gar keinen IOHandler zu!?

[mjustin]

Zitat von Alex_ITA01:

Ich habe die TIdTCPClient Komponente auf einem Formular sitzen und habe einen IOHandler als Komponente auch mit auf das Formular gesetzt. Dann habe ich bei der TCPClient Komponente den IOHandler entsprechend im Objektinspektor verknüpft.
Hat es vielleicht damit etwas zu tun?

Laut deinem Source weißt du ja gar keinen IOHandler zu!?

Indy erzeugt den Standard IOHandler selbst, er muss nicht zugewiesen werden. (Ausnahmen sind SSL-IOHandler.)

Wenn die Gegenseite die Verbindung "sauber" schliesst, und danach ein Lesezugriff (oder Schreibzugriff) aus dem IOHandler auf die Verbindung stattfindet, wird Indy dies mit einer Exception melden. Was genau geschieht läßt sich man am einfachsten im Debugger nachvollziehen.

[Alex_ITA01]

Delphi-Quellcode:

  try
    TCPClient.Connect;
    TCPClient.IOHandler.WriteLn(MyStr1);
    TCPClient.IOHandler.WriteLn(MyStr2);
    TCPClient.Disconnect;
  except
    on E: Exception do
    begin
      // log Exception
    end;
  end;

Habe es jetzt mal genauso hintereinander weg geschrieben wie du und jetzt bekomme ich auf dem Rechnern wo es vorher nicht ging folgende Exception:

Exception: Verbindung besteht bereits.

Allerdings erst beim zweiten Sendeversuch.
Ich vermute der Server trennt die Verbindung nicht richtig oder?

Mit der XE4 Komponente funktioniert es allerdings. Die verhält sich also irgendwie anders.

Grüße

[Der schöne Günther]

Was für ein Zufall, die gleiche Frage hatte ich gestern (ebenfalls XE7) auch: Ich sage auf einem TidTCPClient Disconnect() und danach liefert Connected() immer noch True .

Ich bin da kein Profi, weiß aber noch, dass bei TCP das Schließen der Verbindung im gegenseitigen Abmelden besteht. Ich werde also wahrscheinlich irgendein Event benutzen müssen wann die Verbindung wirklich zu ist.

[Alex_ITA01]

Dann gehts nicht nur mir so

Mich wundert nur, dass der XE4 Source funktioniert, ohne dass ich an dem Server etwas geändert habe. Da scheint also die Verbindung "sauber" getrennt zu werden...

[mjustin]

Zitat von Alex_ITA01:

Mich wundert nur, dass der XE4 Source funktioniert, ohne dass ich an dem Server etwas geändert habe. Da scheint also die Verbindung "sauber" getrennt zu werden...

Den aktuellen Verbindungsstatus kann man auf Systemebene mit netstat oder TCPView kontrollieren. Als erste Maßnahme um halboffene Verbindungen bei zweiter und weiterer Verwendung, auszuschliessen würde ich die TIdTCPClient Komponente nicht auf dem Formular ablegen, sondern nur im Source dynamisch erzeugen (wie in meinem Beispiel).