TSocketConnection hängt, wenn man Netzwerkkabel entfernt...

[Koloss]

Ich greife das Thema wieder auf, nutze Delphi2010 mit TSocketConnection und habe gemau das selbe Problem! Gibt es dazu eine Lösung?

Das Programm hängt sich bei Connection.Connected := False auf.

[mjustin]

Kann man mit einem Netzwerkmonitor die Verbindung noch sehen (netstat, TCPView...)?

Der Default-Timeout des Betriebssystems könnte so hoch sein dass die Fehlermeldung erst nach längerer Zeit erscheint. Ich habe aktuell keinen Link zu einem technischen Artikel, aber man kann ihn entweder systemweit abfragen oder setzen.

Ferner würde ich einfach mal den Debugger anwerfen und in Detail nachverfolgen, wo das Programm hängt.

Passender Stack Overflow Artikel:

https://stackoverflow.com/questions/...nnection-hangs

[Koloss]

Das Programm läuft noch aber er hängt eben bei connection := False. Auch wenn ich connection.Free oder Clientdataset.close hängt es. Ich kann da nichts weiter debuggen, ich komme da nur in das CPU Fenster.

Kmischerweise bei einen anderen Programm mit der selben Verbindung dort schiebe ich aber weniger Daten hin und her.

Code:

    try
      if SocketConnection.Connected then
      begin
        SocketConnection.Connected := False;
        Clientdataset.open;
      end;
    except
      SocketConnection.Connected := False;
      Clientdataset.close;
    end;

[mjustin]

Zitat von Koloss:

ich komme da nur in das CPU Fenster

Projekt Debug-DCUs kompilieren, Bibliothekspfade checken, nochmal versuchen. Der Sourcecode ist dabei

p.s. eventuell muss die MidasLib Unit anstatt MIDAS.DLL eingebunden werden.

[Koloss]

Code:

procedure TDispatchConnection.DoDisconnect;
begin
  if not VarIsNull(AppServer) then
    SetAppServer(NULL);
end;

Später dann im assembler Code(Unit System) schmeißt es ihm hm... das ist leider schon zu tief unten. Darin sehe ich keine lösung.

Witzigerweise hat er es einmal korrekt gemacht. War wohl zufall.

[mjustin]

Zitat von Koloss:

Code:

procedure TDispatchConnection.DoDisconnect;
begin
  if not VarIsNull(AppServer) then
    SetAppServer(NULL);
end;

Später dann im assembler Code(Unit System) schmeißt es ihm hm... das ist leider schon zu tief unten. Darin sehe ich keine lösung.

Witzigerweise hat er es einmal korrekt gemacht. War wohl zufall.

Einfach den Code der in SetAppServer steht lesen, weiterverfolgen, und an sinnvollen Stellen Haltepunkte setzen. So umgeht man die Assemblerwüste.

[Koloss]

Was bringt mir das? Sollte ich jetzt Delphi umprogrammieren?