Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Thread gegen sich selbst absichern (https://www.delphipraxis.net/115452-thread-gegen-sich-selbst-absichern.html)

DelphiManiac 12. Jun 2008 11:46

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.

DelphiManiac 12. Jun 2008 12:07

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?

alzaimar 12. Jun 2008 12:16

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.

DelphiManiac 12. Jun 2008 13:12

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:
Procedure TThreadCriticalSection.Enter;
Begin
  WaitForSingleObject(fSemaphore, INFINITE)
End;
So nun scheint es so als hätten wir einen Deadlock, da der erste Funktionsaufruf es nicht schaft ein Leave aufzurufen, da
der Thread still steht und darauf wartet...

Vielleicht sehe ich es ja auch falsch..

Danke!

DelphiManiac 12. Jun 2008 13:16

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;

alzaimar 12. Jun 2008 14:07

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:
Procedure TMyForm.SomeEvent(Sender : TObject);
Begin
  If Tag<>0 Then Exit;
  Tag := 1;
  Try
    Blabla();
  Finally;
    Tag := 0;
  End;
End;
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.

Ich hab die Sache mit der Semaphore ohne Nachzudenken aus einem Projekt, das bei den konkurrierenden Events ohne ProcessMessages auskommt. Hab gar nicht nachgedacht....

DelphiManiac 12. Jun 2008 15:06

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...

Apollonius 12. Jun 2008 15:08

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.

himitsu 12. Jun 2008 15:10

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.

sirius 12. Jun 2008 20:31

Re: Thread gegen sich selbst absichern
 
Zitat:

Zitat von DelphiManiac
Natürlich könnte man eine Steuervariable verwenden, aber das ist für meinen Fall nicht so gut geeignet.

Ja, musst du dann auch. Du kannst doch nicht eine elegante Lösong für ein unelegentes Gesamtkonzept fordern. Hast ja selber erkannt: Nimm dieses verdammte Application.Processmessages raus. Das macht dir nur Ärger und ein Workaround dazu dauert länger als bspws. gleich einen separaten Thread zu programmieren.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:04 Uhr.
Seite 2 von 2     12   

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