Variable eines Forms ohne Synchronize im Thread ändern?

[changlee]

Hallo,

ich habe einen Thread, der sich ein Formular erzeugt, um den Status der aktuellen Aufgabe anzuzeigen.
Nichts anderes als der Thread greift sonst noch auf dieses Formlar zu.

Ich habe hier im Forum erfahren, dass ich trotzdem immer Synchronize benutzen muss, wenn ich auf visuelle Elemente zugreifen möchte.
In der Deklaration des Forms habe ich eine Variable (record) unter Public eingefügt.
Der record enthält nichts sichtbares er ist aber natürlich ein Element des sichtbaren Formulars.

Darf ich ohne Synchronize die Werte des Records ändern?

Hier die Deklaration:

Delphi-Quellcode:

TTaskLogStatus = record
    StepNr,min,max,step: integer;
    ordFeedback: integer;
    jobname: string;
    logStr:string;
    SpaceLines: integer;
  end;

TTaskLogForm = class(TForm)
    Memo: TMemo;
    TitelLabel: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    PB: TProgressBar;
    //...
    procedure CancelButtonClick(Sender: TObject);
    //...
  private
    { Private-Deklarationen }
    procedure RefreshPrevStep(im:TImage; Labl:TLabel; ordFeedback: integer);
    procedure SetToStep(StepNr:integer; ordFeedback: integer=ord(tfOk));
    procedure SetToStepPB(StepNr,min,max,step:integer; ordFeedBack:integer = ord(tfOk));
    procedure StepPB;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public-Deklarationen }
    Status: TTaskLogStatus;   // <-- hierum geht es. Darf dies ohne Synchronize geändert werden?
    procedure DoSetToStep;
    procedure DoSetToStepPB;
    procedure DoStepPB;
    procedure DoSetJobName;
    
    procedure SetWaitCursor;
    procedure SetDefaultCursor;
    procedure Log;
  end;

Hintergrund:
Da ich nur Methoden ohne Parameter an Synchronize übergeben kann, möchte ich im Thread erst die Statusvariable setzen und anschließend mittels Synchronize eine der Doxxx Prozeduren ausführen, die den Inhalt der Variable verarbeiten.

Oder gibt es einen besseren Weg als diesem Umweg?

[changlee]

Ich habe gerade festgestellt, dass ich mit Synchronize generell noch ein Problem habe.

Mein Thread ist folgendermaßen deklariert:

Delphi-Quellcode:

type
  TJobThread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    Job: TJob;
    procedure Sync(AMethod: TThreadMethod);
    constructor Create;
  end;


implementation


{ JobThread: }
constructor TJobThread.create;
begin
  inherited Create(true);
end;

procedure TJobThread.Execute;
begin
  Job.Execute(self);
end;

procedure TJobThread.Sync(AMethod: TThreadMethod);
begin
  Synchronize(AMethod);  
end;

In der Methode Job.Execute wird schließlich die tatsächliche "Arbeitsmethode" aufgerufen. Dabei wird der Thread mit überliefert:

Delphi-Quellcode:

procedure TJob.Execute(Sender: TObject);
begin
  if assigned(fOnJobExecute) then
    fOnJobExecute(Self,TJobThread(Sender))
end;

Der Methodenzeiger fOnJobExecute zeigt auf eine Methode, die sich nicht in der gleichen Unit befindet. Deshalb kann ich dort nicht die private Prozedur Synchronize des Threads aufrufen.
Ich habe mir also in TJobThread eine öffentliche Prozedur erstellt, die einfach nur auf Synchronize verweist.

Wenn ich jedoch jetzt in der "Arbeitsmethode" folgendes Aufrufe, dann bleibt die Anwendung dabei hängen:

Delphi-Quellcode:

  TaskLogForm := TTaskLogForm.Create(MainForm);
  try
    with TaskLogForm do begin
      JobThread.Sync(Show);    // <-- Hier gehts nicht weiter
      JobThread.Sync(Memo.Clear);
      Job := Sender;
      JobThread.Sync(DoSetTitle);
      JobThread.Sync(SetWaitCursor);
    end;
    //..
  finally
    TaskLogForm.Free;
  end;

Kann mir jemand sagen, was ich falsch mache?

[jaenicke]

Zitat:

Zitat von changlee

Darf ich ohne Synchronize die Werte des Records ändern?

Nein, denn dann wären parallele Zugriffe möglich.

Was deinen Quelltext angeht:
Synchronize ist nicht ohne Grund privat deklariert...
Das darf auch nur im Kontext des Threads aufgerufen werden. Wenn du jetzt von außerhalb dieses über eine Methode des Threads aufrufst, dann läuft diese auch im Kontext des Hauptthreads, mit dem dann versucht wird zu synchronisieren. Das kann aber nicht gehen, da der ja gerade in dem Aufruf hängt...

Deshalb: Synchronize brauchst du, wenn du aus dem Thread heraus nach außen etwas ändern willst. Also in Execute des Threads.

// EDIT:
Ok, ich hatte das nicht richtig gesehen. Der Fehler ist ein ganz anderer:
Du erzeugst innerhalb des Threadaufrufs ein Formular. Das kann nicht gut gehen. Formulare und alle visuellen Komponenten (TBitmap aber auch z.B.) müssen immer im Kontext des Hauptthreads erzeugt werden!

[changlee]

Ok, danke für den Hinweis.
Ich werde das mal eben umbauen und melde mich nochmal wenn es soweit ist.

[changlee]

Ja, du hattest Recht!

Ich erstelle jetzt einfach alle Forms schon vorher und es funktioniert.

Danke!

[alzaimar]

Hi changlee, bitte pushe deinen eigenen Thread nicht, sondern editiere deinen Beitrag, wenn dir noch etwas einfällt. Verwende dazu den kleinen Button um rechts in dem Beitrag.

Danke.

[jaenicke]

Wobei ich die Rückmeldung dann z.B. nicht mehr mitbekommen hätte. :!:

Pushen verstehe ich als nach vorne bringen der eigenen Frage ohne neue Inhalte oder nach 5 Minuten oder so. Und so steht es ja auch in den Regeln...

Zitat:

Das heißt, dass wir es nicht möchten, dass Du einen Nonsense-Beitrag schreibst, nur damit Deine Frage weiter oben in der Liste der aktuellen Themen rangiert.

Das war hier ja nun wirklich nicht der Fall. Das war ja gerade das Gegenteil, nämlich die Rückmeldung, dass sich niemand mehr damit beschäftigen muss und es erledigt ist.

[Die Muhkuh]

Zitat:

Zitat von jaenicke

Wobei ich die Rückmeldung dann z.B. nicht mehr mitbekommen hätte. :!:

:cry:

Zitat:

Zitat von jaenicke

Pushen verstehe ich als nach vorne bringen der eigenen Frage ohne neue Inhalte oder nach 5 Minuten oder so. Und so steht es ja auch in den Regeln...

:thumb: :nerd:

Zitat:

Zitat von jaenicke

Zitat:

Zitat von alzaimar

Das heißt, dass wir es nicht möchten, dass Du einen Nonsense-Beitrag schreibst, nur damit Deine Frage weiter oben in der Liste der aktuellen Themen rangiert.

Das war hier ja nun wirklich nicht der Fall. Das war ja gerade das Gegenteil, nämlich die Rückmeldung, dass sich niemand mehr damit beschäftigen muss und es erledigt ist.

Könnte man trotzdem in den letzten Post editieren. ;-)

Wer Ironie nicht versteht...

[DeddyH]

Man kann eine Frage ja auch als "offen" bzw. "gelöst" markieren. Damit umgeht man, dass der Beitrag aus "banalen" Gründen nach oben kommt, was anderen gegenüber unfair wäre.

[fajac]

Auch wenn dieser Thread schon erledigt ist und auf die Gefahr hin, hier als Klugscheißer zu gelten: Es ist sehr wohl möglich, ein VCL-Formular in einem eigenen Thread zu betreiben, wenn auch nicht uneingeschränkt. Funktioniert z.B. nur mit FormStyle fsNormal.

Als Beweis dafür das kleine angehängte Projekt.

Ich verwende ein Formular dieser Art in Projekten, die als Windows-Service laufen, um im Prozess Trace-Ausgaben zu konfigurieren und auszugeben. Ich kann z.B. sagen, welche Klasse bzw. welche Methode Trace-Ausgaben erzeugen soll...