Prozedur gegen sich selbst absichern

[DelphiManiac]

Hallo,

ich habe folgendes Problem und hoffe ihr könnt mir da helfen:


Ich habe eine Prozedur:

Delphi-Quellcode:

procedure TuWas;
begin
  // Prozedur tut was und hat einen exklusiven Zugriff auf eine Ressource
  // zwischendurch ruft sie Application.ProcessMessages auf
end;

Jetzt wird diese Methode von mehreren Seiten aufgerufen (Button.Clicks, oder Timmereignisse etc).
Da es schwierig ist diese zu synchronisieren würde ich gerne eine Möglichkeit schaffen, dass die Prozedur nur exklusiv aufgerufen wird.

Jetzt kann folgendes passieren:

- Button.Click
-> TuWas wird aufgerufen (das dauert u.Um. 100 ms und zwischendurch wird Application.Processmessages aufgerufen)
->Timer Ereignis schlägt zu und ruft auch TuWas auf.

Jetzt ist kein konsistenter Zustand mehr gegeben.

Ich wollte euch fragen welche Form von Sperrobjekten man da verwenden kann schließlich ist ja alles im einem Thread und einem Prozess?


Vielen Dank

MfG
DelphiManiac

[Bernhard Geyer]

Das einfachste ist ein Flag (IchBinInTuWas: Boolean) das in der Unit definiert wird und am Anfang geprüft, anschließend gesetzt und am Ende zurück gesetzt wird.

[SirThornberry]

Du kannst über eine globale Variable (welche im Implementationsteils plaziert werden sollte) absichern das die Funktion nicht mehrfach aufgerufen wird.
Was mir bei deiner Beschreibung fehlt: Was soll passieren die Funktion bereits aktitv ist?
Und anstelle von ProcessMessages wäre hier vielleicht ein Thread sinnvoller? Dann sollte der Zugriff über CriticalSections erfolgen.

[Edit]Du schreibst

Zitat:

Jetzt wird diese Methode...

Wenn es sich wirklich um eine Methode handelt (was hier wirklich sinnvoll wäre) dann gehört die Variable natürlich in den private-Bereich. Wenn es sich jedoch um eine Ressource handelt auf die auch nicht von mehreren Instanzen zugegriffen werden soll dann gehört sie wieder global so das die Methode (egal von welcher Instanz) nur einmal zur gleichen zeit aufgerufen werden kann. In dem Fall bietet es sich auch an den Zugriff auf die Ressource über eine eigene Komponente zu realisieren und über diese das ganze abzusichern.

[DelphiManiac]

Hallo,

also einen Thread würde ich an der Stelle recht ungern einpflegen, weiß, dass das im Prinzip die sauberste Lösung wäre, aber das bringt noch eine Reihe anderer Probleme mit sich, und da es eine Programmerweiterung sein soll, sind mir hier glaube ich die Hände gebunden...

Also wenn die Methode noch aktiv ist sollen "die" anderen warten, also müsste das im Prinzip in eine Queue gehen die nach FIFO die Aufrufe macht, wenn die Methode nicht mehr besetzt ist, so macht es doch auch die Windows Queue, aber da kann ja der Methoden aufruf durch dass Appl.Processmessages dazwischen kommen.

Gruß

[SirThornberry]

Das warten gestaltet sich sehr schwierig/unmöglich? wenn du eine Threads arbeitest. Denn wenn Du ProcessMessages aufrufst und dann im Timerevent wartest (weil die Funktion bereits belegt ist) dann kehrt ProcessMessages auch nicht zurück und somit wird die Funktion nie fertig. Warten ist also nur richtig möglich wenn es sich um mehrere Threads handelt.

[DelphiManiac]

Ok, angenommen ich würde dieses eine Prozedur in einen Thread auslagern,

wie sollte ich dann die Absicherung machen, über Critical Sections?

Gruß
DM

[Reinhard Kern]

Zitat:

Zitat von DelphiManiac

...
Also wenn die Methode noch aktiv ist sollen "die" anderen warten, also müsste das im Prinzip in eine Queue gehen die nach FIFO die Aufrufe macht, wenn die Methode nicht mehr besetzt ist, so macht es doch auch die Windows Queue, aber da kann ja der Methoden aufruf durch dass Appl.Processmessages dazwischen kommen.

Gruß

Hallo,

du siehst das schon nebelhaft richtig, wenn Tuwas zwar exklusiv ist, aber nach Aufruf immer abgearbeitet werden muss, dann muss man wohl die Programmstruktur nicht unerheblich ändern und für Tuwas eine Warteschlange einrichten - die Aufrufer platzieren dort also ihren Wunsch nach Tuwas und die Parameter dazu. Das Problem setzt sich aber fort: können die Aufrufer dann weitermachen oder müssen sie warten, bis ihr Tuwas fertig ist? Das erhöht das Deadlock-Potential gewaltig und setzt sorgfältige Planung voraus.

Da Windows (inzwischen) preemptive Multitasking verwendet, kann man auch mit einer einfachen boolschen variable in Schwierigkeiten kommen, daher solltest du dich mit den Möglichkeiten des BS beschäftigen wie Mutexe, Semaphoren, Critical Sections usw. Ist komplex, aber das liegt halt am Problem.

Gruss Reinhard

[mjustin]

Zitat:

Zitat von DelphiManiac

Ich wollte euch fragen welche Form von Sperrobjekten man da verwenden kann

Aus der Indy Library:

TIdThreadSafeBoolean

(in IdThreadSafe.pas)

Cheers,

[jfheins]

Zitat:

Zitat von DelphiManiac

Ok, angenommen ich würde dieses eine Prozedur in einen Thread auslagern,

wie sollte ich dann die Absicherung machen, über Critical Sections?

Gruß
DM

Ja zum Beispiel ;)

Wenn du sie in einen Thread auslagerst, kannst du dir das Application.Provessmessages sparen, da die Hauptanwendung ja sowiso weiterläuft.

Dann musst du dir ein CriticalSection-Objekt erstellen und am anfang der Prozedur da rein gehen (weis nicht, wie die Methode genau heißt) Falls die Critical Section belegt ist, wird entsprechend gewartet.

Am Ende musst du sie verlassen, was es dann den wartenden ermöglicht, ihrerseits einzutreten.

[Meflin]

Zitat:

Zitat von jfheins

... am anfang der Prozedur da rein gehen (weis nicht, wie die Methode genau heißt) ... Am Ende musst du sie verlassen

TCriticalSection.Enter und .Leave ;)