![]() |
Re: Thread gegen sich selbst absichern
Hi,
ja den Timer disable ich und am ende Enable ich ihn wieder. Das Application.Processmessage rufe ich eigentlich nicht direkt auf, das macht ein Komponente intern, wenn ich nicht will, dass diese Kompo umgestrickt wird, muss ich dafür ein Workaround machen. |
Re: Thread gegen sich selbst absichern
@alzaimar
Hi, ich habe dein Code mal ausprobiert, leider habe ich jetzt den Effekt, dass die Form einfriert. Da ja wenn die Funktion WaitForSingleObject aufruft, den kompletten Thread lahm legt richtig? |
Re: Thread gegen sich selbst absichern
Nein, jedenfalls nicht bei mir, aber vermutlich hast Du einen anderen Anwendungsfall...
WaitForSingleObject wartet, bis der Status der Semaphore <> '0' ist. Sie ist ja mit '1' initialisiert. Also wird der erste aufruf von 'Enter' sofort zurückkehren. Ein zweiter aufruf von 'Enter' hängt dagegen, bis irgendwer 'Leave' aufruft. Zeig doch mal Deinen Code. [edit]: In meinem Testfall habe ich im Timer-Event ein Sleep eingebaut, da friert das Formular natürlich auch ein. |
Re: Thread gegen sich selbst absichern
Also folgender Fall.
Die Funktion tritt mit Enter ein und dann wird Application Processmessages aufgerufen.. Jetzt kommt asynchron eine erneuter Funktionsaufruf (bspw. über einen Button) Der versucht jetzt auch über Enter einzusteigen (und ruf WaitforSing... auf)
Delphi-Quellcode:
So nun scheint es so als hätten wir einen Deadlock, da der erste Funktionsaufruf es nicht schaft ein Leave aufzurufen, da
Procedure TThreadCriticalSection.Enter;
Begin WaitForSingleObject(fSemaphore, INFINITE) End; der Thread still steht und darauf wartet... Vielleicht sehe ich es ja auch falsch.. Danke! |
Re: Thread gegen sich selbst absichern
Wie versprochen mein Beispiel Code:
Delphi-Quellcode:
procedure Test;
begin MyThreadCriticalSection.Enter; Try inc( Counter ); while not (qbytes= 1000) do begin Application.ProcessMessages; inc(qbytes); Sleep(1); end; Finally qbytes:=0; MyThreadCriticalSection.Leave; End; Unit1.Form1.Label1.Caption:=IntToStr(Counter); end; procedure TForm1.Timer1Timer(Sender: TObject); var merkeEnabled:Boolean; begin merkeEnabled:=Timer1.Enabled; Timer1.Enabled:=false; Test; Timer1.Enabled:=merkeEnabled; end; procedure TForm1.Button1Click(Sender: TObject); begin Test; end; |
Re: Thread gegen sich selbst absichern
Ach jetzt hab ich das erst kapiert ... Dieses verflixte 'Application.ProcessMessages'.... stimmt. So ein Mist.
Hmmm... ich glaube, das geht so nur über eine Steuervariable, sodaß ein Versuch, den geschützten Bereich nochmals zu betreten, abgewiesen wird. Ich mach das immer ziemlich billig über die 'Tag' - Eigenschaft des Formulares.
Delphi-Quellcode:
In meinem Fall wird BlaBla() u.U. wieder den Event 'SomeEvent' auslösen und ich wäre in einer Endlosschleife. So vermeide ich das. Das dürfte in deinem Fall genauso funktionieren.
Procedure TMyForm.SomeEvent(Sender : TObject);
Begin If Tag<>0 Then Exit; Tag := 1; Try Blabla(); Finally; Tag := 0; End; End; Ich hab die Sache mit der Semaphore ohne Nachzudenken aus einem Projekt, das bei den konkurrierenden Events ohne ProcessMessages auskommt. Hab gar nicht nachgedacht.... |
Re: Thread gegen sich selbst absichern
Ja das verflixte Application.ProcessMessage,
das ist Segen und Fluch zugleich :bounce1: :bouncing4: Mein Problem ist da dann wenn der Zugriff abgewiesen wird, dann wird meine Funktion ja nicht ausgeführt... |
Re: Thread gegen sich selbst absichern
Du kannst doch einfach einen Zähler hochstellen, und in einem Timer (Thread wäre hier wohl zu viel des Guten) dann die Position überprüfen und gegebenenfalls dekrementieren und die Funktion ausführen.
|
Re: Thread gegen sich selbst absichern
du könntest ja eine Aufgabenliste in einbauen, da trägt sich die Funktion ein, wenn sie abgewiesen wurde und am Ende der Funktionen wird in der Liste nachgesehn, ob noch was zum Ausführen da ist.
oder wenn es nur ein und die selber Funktion ist, welche sich sperrt, dann halt wie Apollonius schon sagte. |
Re: Thread gegen sich selbst absichern
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:30 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz