Datenaustausch zwischen einer Methode und einem Programm

[Chewie]

Ich habe gerade folgendes Problem:
Ich habe eine Methode, die u.a. die Dateien eines Verzeichnisses (inkl. Unterverzeichnisse, rekursiv) ermittelt. Und ich will den Fortschritt irgendwie (wahrscheinlich in einer Progressbar) darstellen. Da ich weder die rekursive Struktur aufheben will( und deswegen keine DoFirst/DoNext - Variante möglich ist) noch die Ausgabe in der Progressbar in die Klasse integrieren will, frage ich mich, wie ich am besten der Progressbar sage, dass sie ihre Position ändern soll.

Was ich favoriere, wäre, der Dateiscan-Methode einen Zeiger auf die Funktion/Prozedur, die die Progressbar verwaltet, zu übergeben, und die Funktion dann aufzurufen. Da der Datei-Scan Algo aber in einem seperaten Thread ablaufen soll, weiß ich nicht, ob es da probleme geben kann. Auch bin ich mir nicht ganz darüber im klaren, wie ich an die Prozedur, deren Zeiger ich hab, Parameter übergeben kann.

Wär super, wenn mir jemand helfen könnte.

[MSCH]

Via Thread auf ein VCL Objekt zugreifen geht nur über die Synchronize() Methode des Threads.
Eine Übergabe von Parametern von Functionen könnte so laufen:

Code:

type
  TmyNewProc = procedure (max, position:Integer);
...
  myThread= Class(TThread)
    Proc: TmyNewProc; // nur Pointer !
    constructor Create(.., varTmyNewProc: TmyNewProc,..)
  ...

im Hauptprogramm Thread.Create(..) mit Procedure übergeben

constructor myThread.Create;
begin
  ...
  Proc:= varTmyNewProc;
  ...
end;

procedure myThread.Execute;
begin
  ...
  Synchronize(test);
  ...
end;

procedure MyThread.Test;
...
  Proc(80,8);
...

so aus'm Gedächtniss.


Übergebe dem Thread doch direkt die Progressbar. In der Execute() dass die Progressbar direkt aus dem Thread (Synchronize) aktualisieren.