Function in Thread auslagern

[Salomon]

Hallo,
ich habe eine Funktion bei deren Abarbeitung das ganze Programm hängt. Nun wollte ich diese in einen Thread auslagern. Das Problem ist, das ich in der Funktion auf die Listboxen der Form zugreifen muss. Ich weiß nicht wie ich das machen kann.

Ich habe folgenden Codeschnipsel bei mir gefunden, nur kann ich damit wie gesagt nicht auf die Komponenten der Form zugreifen:

Delphi-Quellcode:

type 
  TMyThread = class(TThread) 
  protected 
    procedure Execute; override; 
  end; 
 
procedure TMyThread.Execute; 
begin 
  //Mach irgendwas 
end; 
 
procedure StartThread; 
var 
  MyThread: TMyThread; 
begin 
  MyThread:=TMyThread.Create(true); 
  MyThread.Priority:=tpLower; 
  MyThread.FreeOnTerminate:=true; 
  MyThread.Resume; 
end;

Thx Salomon

[Salomon]

Ich kann es kaum glauben das es hier keinen "Thread Experten" gibt :?: Dann formuliere meine Frage etwas um.

Ich brauche eine Thread, indem ich Code ausführen kann der auch auf Form Komponenten zugreift.

Please help.

Thx Salomon

[sakura]

Schau Dir mal das Delphi Example Virtual Listview an, da ist das gezeigt. Besonders ist die Methode Synchronize von Interesse.

...:cat:...

[Salomon]

Werde ich mir gleich mal ansehen.

[darkstone]

Das Problem ist also, dass du irgendwie auf das Form-Objekt zugreifen musst. Ich würds so machen:

Delphi-Quellcode:

TMyThread = class(TThread)
  protected
    fMyForm: TxxForm; // Muss von extern versorgt werden...

    procedure Execute; override;
    procedure DoIt; // Die wird vom Execute aufgerufen
  public
    property MyForm: TxxForm read fMyForm write fMyForm;
end;

procedure TMyThread.DoIt;
// Dieser Code wird im Main-Thread ausgeführt - ist daher nicht parallel
begin
  if fMyForm = nil then 
    Exit;
  fMyForm.ListBox1.Items.Add('Juchui');
  // Mach sonst noch was...
end;

procedure TMyThread.Execute;
begin
  Synchronize(DoIt);
  // Ab hier gehts wieder im aktuellen Thread weiter - parallel zu anderen Threads.
  // 
  // Mach was paralleles...
end;

procecure StartThread;
var
  hThread: TMyThread;
begin
  hThread := TMyThread.Create( True );
  // Thread-Settings wie Priority, ...
  hThread.MyForm := FrmxxForm;
  hThread.Resume;
end;

Bei Threads sollte man nicht direkt aus der Execute auf iregendwelche Controls in Forms zugreifen, da dadurch unerwartete Ereignisse eintreten können. Um das zu umgehen, gibts die Methode Synchronize. Diese bewirkt, dass die im Parameter angegeben Prozedur im Main-Thread des Programms ausgeführt wird.

Vielleicht hilfts dir ja wieter...

[jbg]

Direkt aus dem von Delphi kreierten Quellcode heraus:

Zitat:

{ Wichtig: Methoden und Eigenschaften von Objekten in VCL oder CLX können
nur in Methoden verwendet werden, die Synchronize aufrufen, z.B.:

Synchronize(UpdateCaption);

wobei UpdateCaption so aussehen könnte:

procedure TEst.UpdateCaption;
begin
Form1.Caption := 'In einem Thread aktualisiert';
end; }

[FriFra]

Du kannst auch erreichen, dass eine Single-Thread Anwendung noch reagiert, wenn Du innerhalb deiner Zeit-/Rechenintensiven Function/Procedure wiederholt

Code:

Application.Processmessages;

einfügst.

[Salomon]

@darkstone: Vielen Dank für den Code, das ganze funktioniert super :D

@FriFra: "Application.Processmessages;" kann ich nicht verwenden, da es sich um nur eine einzige Funktion handelt, deren result erst nach einigen Sekunden zurückgegeben wird.

[FriFra]

Zitat:

Zitat von Salomon

@FriFra: "Application.Processmessages;" kann ich nicht verwenden, da es sich um nur eine einzige Funktion handelt, deren result erst nach einigen Sekunden zurückgegeben wird.

Was machst Du innerhalb der Funktion? Wenn Du innerhalb der Funktion z.B. eine Schleife hast, kann "Application.Processmessages" auch bei jedem Durchlauf erneut aufgerufen werden...