Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Auf Beendigung einer Methode warten (https://www.delphipraxis.net/129437-auf-beendigung-einer-methode-warten.html)

Bomberbb 19. Feb 2009 07:53


Auf Beendigung einer Methode warten
 
Hallo,

folgendes Problem: Ich habe eine Klasse vom typ TCustomPanel abgeleitet um hierauf zu zeichen. Nun habe ich das Problem, dass die Objekte nicht gleichzeitig zeichnen dürfen. Habe das auch schon abgefangen. Das Problem ist, dass das Zeichnen der Panels einfach verworfen wird. Meine Idee wäre es, wenn ich den anderen Objekten eine Nachricht schicke, wenn das Zeichnen beim ersten Objekt beendet ist. Oder gibt es eine Möglichkeit, das Zeichnen der anderen Objekte irgendwie in eine Warteschlange zu stellen?

Momentan sieht mein Quelltext so aus:
Code:
  ...
  CriticalSection.enter;
  if not Semaphor then
    Semaphor := true;
    fonPainting := true;
  CriticalSection.Leave;

  if fonPainting then
    Zeichnen;

  Semaphor := false;
  fOnPainting := false;
End;

worker 19. Feb 2009 07:54

Re: Auf Beendigung einer Methode warten
 
Threads :?: :!:

Bernhard Geyer 19. Feb 2009 08:01

Re: Auf Beendigung einer Methode warten
 
Zitat:

Zitat von worker
Threads :?: :!:

Threads und Zeichnen auf GUI-Elemente ist bei der VCL eine ganz ganz schlechte Idee.

Bomberbb 19. Feb 2009 08:07

Re: Auf Beendigung einer Methode warten
 
An Threads hab ich auch schon gedacht, aber die Objekte selbst arbeiten schon parallel...

worker 19. Feb 2009 08:08

Re: Auf Beendigung einer Methode warten
 
Okay, wieder was dazu gelernt. (Hatte in Kunst 'ne 5 ;))

Blup 19. Feb 2009 09:04

Re: Auf Beendigung einer Methode warten
 
Zitat:

Zitat von Bomberbb
Hallo,

folgendes Problem: Ich habe eine Klasse vom typ TCustomPanel abgeleitet um hierauf zu zeichen.

Mir ist nicht klar, warum du dafür eine eigene Ableitung von TCustomPanel benötigst.

Zitat:

Zitat von Bomberbb
Nun habe ich das Problem, dass die Objekte nicht gleichzeitig zeichnen dürfen. Habe das auch schon abgefangen.

Also ich vermute du erstellst bei jeder Zeichenoperation ein neues Objekt, um die einzelnen Operationen nacheinander wiederholen zu können(z.B. wenn der Bildschirm aktualisiert wird) und um mehrere unabhängige Zeichenebenen darzustellen. In einem Thread passiert überhaupt nichts parallel und der einzige Thread der direkt mit der VCL arbeiten darf ist der Haupthread.

Zitat:

Zitat von Bomberbb
Das Problem ist, dass das Zeichnen der Panels einfach verworfen wird. Meine Idee wäre es, wenn ich den anderen Objekten eine Nachricht schicke, wenn das Zeichnen beim ersten Objekt beendet ist. Oder gibt es eine Möglichkeit, das Zeichnen der anderen Objekte irgendwie in eine Warteschlange zu stellen?.

Hier gibt es scheinbar ein grundsätzliches Verständnisproblem wie Wincontrols funktionieren.
Jedes Wincontrol hat einen in der Regel rechteckigen Bildschirmbereich in dem es sich zu zeichnen hat.
Wird dieser Bereich von einem anderen Wincontrol zum Teil oder ganz überdeckt, so kann das Wincontrol in diesem Teil nicht zeichnen.

Zitat:

Zitat von Bomberbb
Momentan sieht mein Quelltext so aus:
Code:
  ...
  CriticalSection.enter;
  if not Semaphor then
    Semaphor := true;
    fonPainting := true;
  CriticalSection.Leave;

  if fonPainting then
    Zeichnen;

  Semaphor := false;
  fOnPainting := false;
End;

Obwohl das nichts mit dem eigentlichen Problem zu tun hat, eher so:

Code:
  ...
  if not Semaphor then
  begin
    Semaphor := true;
    fonPainting := true;
  end
  ...
Ich würde die Zeichenobjekte von TGraphicControl ableiten.
Schau dazu einfach mal die Quellen von TShape und TBevel an.

Bomberbb 19. Feb 2009 09:19

Re: Auf Beendigung einer Methode warten
 
Ich habe bis zu 3 Zeichenflächen nebeneinander, auf denen unterschiedliche Darstellungen wiedergegeben werden. Sie dürfen nicht zur gleichen Zeit zeichnen, da sie alle auf die selbe Datei zugreifen. Und hier kommt es zum Fehler, wenn ich
Delphi-Quellcode:
Zeichenflaeche1.paint;
Zeichenflaeche2.paint;
Zeichenflaeche3.paint;
aufrufe, ist die Datei in Benutzung. Wenn ich ein Sleep(500) dazwischensetze, ist alles ok.

Soweit ich weiß arbeiten Objekte doch zeitlich (quasi)parallel. Warum sollten Sie dann nicht zeitgleich zeichnen oder zumindest die Berechnungen fürs zeichnen zeitgleich durchführen?

sirius 19. Feb 2009 09:27

Re: Auf Beendigung einer Methode warten
 
Objekte arbeiten nicht parallel. Threads arbeiten parallel.

Bomberbb 19. Feb 2009 09:33

Re: Auf Beendigung einer Methode warten
 
Dazu mal ein Zitat aus meinen Studienunterlagen zum Thema oop:
Zitat:

Parallelität bedeutet in diesem Grundmodell,
dass möglicherweise mehrere Nachrichten gleichzeitig unterwegs
sind und mehrere Objekte gleichzeitig Methoden ausführen.

sirius 19. Feb 2009 09:40

Re: Auf Beendigung einer Methode warten
 
Ich habe sowas zwar nie studiert, aber rein aus praktischer Sicht und ohne Kontext ist das erstmal falsch.
In einem Modell kann man das vielleicht so betrachten, aber...

Wenn du nur einen Thread (MainThread) hast, dann wird definitiv nur eine Methode abgearbeitet und dann die nächste. Die Messages werden gepuffert und nacheinander (entspr. ihrer Prioritäten) abgearbeitet.


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:30 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz