Thread: OnExecute Prozedur übergeben

[kurtm1]

Ich möchte einem Thread im Constructor eine Prozedur mitgeben, die dann vom Thread ausgeführt werden soll (OnExecute).

Wie kann dies realisiert werden?

[Sir Rufo]

Schau Dir mal "TNotifyEvent"

cu

Oliver

[Björn Ole]

Delphi-Quellcode:

type
  TAProcedure = procedure(i: integer);

  TMyThread = class(TThread)
  private
    FAProcedure: TAProcedure;
  protected
    constructor Create(CreateSuspended: boolean; AProcedure: TAProcedure);
    procedure Execute; override;
  end;

{...}

implementation

procedure MyProcedure(i: integer); // Kopf entspricht TAProcedure
begin
  {..}
end;

{ TMyThread }

constructor TMyThread.Create(CreateSuspended: boolean;
  AProcedure: TAProcedure);
begin
  inherited Create(CreateSuspended);
  FAProcedure := AProcedure;
end;

procedure TMyThread.Execute;
begin
  if Assigned(FAProcedure) then
    FAProcedure(1);
end;

{ TfrmMain }

procedure TfrmMain.BtnClick(Sender: TObject);
begin
  TMyThread.Create(false, @MyProcedure); // passende Prozedur übergeben
end;

Beachte aber, dass du eventuelle Zugriffe auf die VCL synchronisieren musst.

[kurtm1]

Danke!

Wegen dem Synchronisieren:
Ich habe 2 Threads. Beide davon führen Aktionen aus bei denen Daten geändert werden und beide haben eine CallbackFunktion die in der VCL Progressbars setzen.
Eigentlich müsste es da genügen bei all diesen Prozeduren eine CriticalSection (Enter/Leave) einzufügen oder?

[himitsu]

Das Problem sind nicht nur die Threads untereinander, denn es gibt noch den Hauptthread, in dessen Kontext die VCL (in diesem Fall die Form und die ProgressBars) ablaufen.

Synchonize wäre da wichtig
und das würde auch die Threadzugriffe deiner beiden Threads auf die VCL gegenzeitig und gegen die VCL absichern

[kurtm1]

Zitat:

Zitat von himitsu

Synchonize wäre da wichtig

Ist Synchronize da besser/richtiger als wenn man mit CriticalSections arbeitet?

//edit noch eine Frage: und wenn ich eine Prozedur habe bei der ich zu wissen denke, dass darauf kein anderer Thread zugreifen kann, kann ich syncen eigentlich weglassen oder?

[himitsu]

Synchronize blockiert wärenddessen den Hauptthread, denn auf deine ProgressBars wird auch von der VCL zugegriffen
(z.B. wenn diese die ProgressBar anzeigt/zeichnet)
und die VCL kennt deine CriticalSection nicht :zwinker:

Zitat:

und wenn ich eine Prozedur habe bei der ich zu wissen denke, dass darauf kein anderer Thread zugreifen kann, kann ich syncen eigentlich weglassen oder?

Wenn die Prozedur nichts verwendet, was andere Threads auch verwenden könnten,
bzw. nur threadsichere Dinge nutzen,
dann ja

PS: zu wissen sicher bist (es nur zu denken könnte Probleme bereiten)