Hallo,
an einer etwas ungewöhnlichen Stelle hört mein Programm einfach auf zu arbeiten:
Delphi-Quellcode:
try
for i := 0 to 19 do
begin
snlogger.Log('a'+IntToStr(i));
Application.ProcessMessages;
snlogger.Log('b'+IntToStr(i));
sleep(500);//Ab hier passiert nichtsmehr
snlogger.Log('c'+IntToStr(i));
Application.ProcessMessages;
snlogger.Log('d'+IntToStr(i));
SNTCPClient1.Write(C_PING);
snlogger.Log('e'+IntToStr(i));
end;
finally
snlogger.log('finally');
end;
Er steigt da nicht immer aus, nur ab und zu, manchmal läuft das da auch durch.
Das finally wird nicht ausgeführt, es passiert einfach garnichtsmehr.
Das Programm kommuniziert mit einem Dienst. Der Dienst meldet nichts, bis auf das die Verbindung weg ist. Wenn ich mitm
TCP Viewer schaue sind die tatsächlich weg. Es kommt keine Fehlermeldung und garnichts...
Das seltsame ist, das Programm beendet sich nicht, sondern ist nachwievor als Task aktiv.
Hat jemand en Tipp wie ich mich dem Problem nähern könnte?
