hi zusammen,

hoffe das ich hier richtig bin. Meine Client / Server Anwendung ist in eine Threadklasse.
Jetzt habe ich zum Test einen Text vom Client zum Server, alle 10ms, gesendet und einen Text vom Server an alle Clients, alle 100ms,gesendet um zu testen wie stabil die Anwendung ist.

Habe den Test über Nacht laufen lassen. Start 16 Uhr. Letzter Text am Server gegen 18 Uhr am gleichen Tag.

Heute morgen war dann die Meldung
"Thread zugriff verweigert (5)"

Wie kann ich einen solchen Fehler finden? Weis ja nicht wo dran es liegt. Ist eine Exception in der Execute vom Thread aufgetreten und deswegen hat der Thread sich aufgehangen? ....

thx

Wenn in einem Thread eine Exception auftritt, bekommst du dies ohne Exceptionbehandlung nicht mit. Der thread stürzt einfach ab. Ende.
Du kannst im Ereignis onTerminate die Eigenschaft FataException abfragen. Dann weißt du, was pssiert ist.


(War es das was du fragtest?)

super danke, werde ich mal testen.

thx

Sobald mehrere Client's Daten an den Server senden und er diese in einer Liste verwaltet, musst du sicherstellen, dass nicht 2 Threads gleichzeitig in eine Liste / ein Memo schreiben können. Andersfalls kann es jeder Zeit zu Fehlern kommen.
Dies ist z.B. mit CriticalSections möglich.

Schau dir mal die Klasse TThreadList aus der Classes-Unit an. Diese Kapselt die Klasse TList. Hier wird durch "LockList" und "UnlockList" die CriticalSection erzeugt/geschlossen.
Leider sind die wenigsten Delphi-Klassen Threadsicher.

Selbst IntToStr oder DateTimeToStr schreibt Intern die Werte in eine globale Variable. Dies kann auch zu Fehlern führen, wenn 2 Threads gleichzeitig diese Funktionen nutzen.

Aber der Server besteht doch nur aus einen Thread.
Wenn zwei Clients gleichzeitig Daten senden, wird doch erst der eine bearbeitet und dann der andere, oder sehe ich das falsch?

Zitat von Xeres:

Selbst IntToStr oder DateTimeToStr schreibt Intern die Werte in eine globale Variable.

Sicher?

Könnte auch ein nicht threadsicherer oder nichtsynchronisierter Aufruf sein. Irgendeine Routine macht etwas und wenn sie zurückkommt ist der Thread schon beendet.
Da ist mir dieser Fehler schon untergekommen.

Grüße, Messie

solange die Anwendung läuft sollte eigentlich auch mein Thread laufen.....
Habe die Exception abgefangen und bekommen "'' ist keine gültiger Integerwert"
Muss also in meiner Jobverarbeitung bzw. mein Protokoll überarbeiten....

Zitat von sirius:

Zitat von Xeres:

Selbst IntToStr oder DateTimeToStr schreibt Intern die Werte in eine globale Variable.

Sicher?

JA! Hier:

zusammenfalten · markieren

Delphi-Quellcode:

function IntToStr(Value: Integer): string;
asm
        PUSH ESI
        MOV ESI, ESP
        SUB ESP, 16
        XOR ECX, ECX // base: 0 for signed decimal
        PUSH EDX // result ptr
        XOR EDX, EDX // zero filled field width: 0 for no leading zeros
        CALL CvtInt
        MOV EDX, ESI
        POP EAX // result ptr
        CALL System.@LStrFromPCharLen
        ADD ESP, 16
        POP ESI
end;

Die Variablen, ESI,ESP,ECX,EDX und EAX sind nicht lokal deklariert, also sind es globale Variablen.