Thread gegen sich selbst absichern

[DelphiManiac]

Hallo,

ich habe folgendes Problem.
Ich nutze eine Thread (nur den Hauptthread also den GUI-Thread)

Jetzt habe ich eine Procedure: (ist natürlich nur ein Beispiel)

Delphi-Quellcode:

procedure SchreibeLese;
begin
  Schreibe
  Application.ProcessMessages;
  Lese;
end;

Diese Funktion wird nun in einem Timer alle 100 ms aufegerufen.

Jetzt passiert ein Asynchroner Zugriff auf die Procedure über ein ButtonClick.

Wie kann ich sicher gehen, dass die Procedure nie nochmals aufgerufen wird wenn sie gerade aufegerufen worden ist.

Jetzt ist es ja durch das Application.ProcessMessages möglich, dass genau in dem Zeitpunkt (zwischen Schreiben/Lesen)
die Funktion nochmals aufgerufen wird, richtig?

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

Gibt es eine Synchronisationsmöglichkeit im eigenen Thread,
CritcalSections sind ja Threadübergreifend...

Hoffe ich habe mich nicht zu unklar ausgedrückt :stupid:

Gruß
DM

//EDIT: Delphi Code Tags vergessen :wall:

[Assertor]

Hi DelphiManiac,

Delphi-Quellcode:

procedure SchreibeLese;
var
  b: Boolean;
begin
  b := MeinTimer.Enabled;
  MeinTimer.Enabled := False;
  Schreibe
  Application.ProcessMessages;
  Lese;
  MeinTimer.Enabled := b;
end;

So würd ich es machen. Damit wird der Timer in Deinem "Thread" für die Dauer des Prozeduraufrufs deaktiviert und nach Fertigstellung auf den ursprünglichen Stand zurückversetzt.

Der Boolean ist nur dafür da, falls Du die Prozedur auch von anderer Stelle aus aufrufst und der Timer gerad nicht läuft. Würde man den immer am Ende anmachen, käme es ja sonst zu Problemen.

Gruß Assertor

Edit: War doch etwas wortkarg ;)

[Luckie]

Deaktivier die Schaltfläche, dann sieht der Bneutzer auch, dass er da jetzt nicht draufklicken kann/darf.

[Assertor]

Zitat:

Zitat von Luckie

Deaktivier die Schaltfläche, dann sieht der Bneutzer auch, dass er da jetzt nicht draufklicken kann/darf.

Das kommt noch dazu. Visuelles Feedback ist was tolles. Das die Anwender das auch immer haben wollen, Tse ;)

Gruß Assertor

[alzaimar]

Threadübergreifend geht eine CriticalSection, aber nicht innerhalb eines Threads...

Ich würde eine Semaphore nehmen und damit die kritischen Teile kapseln:

Delphi-Quellcode:

  TThreadCriticalSection= Class
  private
    fSemaphore: THandle;
  public
    Constructor Create;
    Destructor Destroy; override;
    Procedure Enter;
    Procedure Leave;
  End;


Constructor TThreadCriticalSection.Create;
Begin
  fSemaphore := CreateSemaphore(Nil, 1, 1, Nil);
End;

Destructor TThreadCriticalSection.Destroy;
Begin
  closeHandle(fSemaphore);
End;

Procedure TThreadCriticalSection.Enter;
Begin
  WaitForSingleObject(fSemaphore, INFINITE)
End;

Procedure TThreadCriticalSection.Leave;
Begin
  ReleaseSemaphore(fSemaphore, 1, Nil);  
End;

Dann so:

Delphi-Quellcode:

Procedure TMyClass.MyEvent;
Begin
  MyThreadCriticalSection.Enter;
  Try
    DoExclusiveStuff
  Finally
    MyThreadCriticalSection.Leave;
  End;
End;

@Luckie: Dann blinkt der Button ja ständig. (Timer alle 100ms)

[Assertor]

@alzaimar:

Ist das nicht etwas oversized? Ich habe DelphiManiac so verstanden: Er hat keinen wirklichen Thread, da er vom GUI-Mainthread spricht. Er hat also nur einen Timer, der innerhalb des VCL MainThreads aufgerufen wird.

Gruß Assertor

[alzaimar]

Für Timer würe Dein Ansatz reichen, bei Events allgemein muss man eine Semaphore nehmen (Async Communication z.B.)

[DelphiManiac]

Hi danke für eure Antworten,

also das mit dem einen Button ist natürlich nur ein Beispiel gewesen, eigentlich sind es 20-30.
Und die kann / will / sollte ich auch nicht sperren, ich will ja nur die Prozedur so gestalten,
dass sie im Hauptthread immer vollständig abgearbeitet worden ist, bevor sie erneut aufgerufen wird.
Gruß
DM

[Luckie]

Dann lass das Application.ProcessMessages weg.

[Assertor]

Zitat:

Zitat von Luckie

Dann lass das Application.ProcessMessages weg.

Richtig, aber zusätzlich trotzdem den Timer deaktivieren. Sonst wir die Prozedur ja trotzdem immer wieder aufgerufen...