Hallo zusammen,

sorry, dass ich schon wieder nerve, und mir auch kein SO aussagekräftiger Name eingefallen ist. Am liebsten hätte ich schreiben wollen: "Bin verwirrt, helft mir"

Sorry, der Thread wird etwas länger...

Ich will ein kleines Progtramm schreiben, das mir die CRC32 Checksummen von Dateien berechnet. Das Berechnen ist nicht das Problem.

Ich will das Berechnen in einen Thread auslagern, folgender Code:

zusammenfalten · markieren

Delphi-Quellcode:

type TCRCThread = class(TThread)
  protected
    procedure Execute; override;
  public
    constructor Create;
end;


type TCRCList = class(TObject)
  private
    fOL : TCRCObjectList;
    fThread : TCRCThread;
    fInList : TListBox;
    fOutList : TMemo;
  public
    constructor Create;
    destructor Destroy; override;
    procedure getFiles;
    procedure StartCRC;
    procedure StopCRC;
    procedure DisplayCRC;
    property InList : TListBox read fInList write fInList;
    property OutList : TMemo read fOutList write fOutList;
end;

TCRCList.GetFiles schreibt die DateiNamen und Sonstige Informationen in die gecastete ObjectList fOL.
TCRCList.StartCRC erzeugt und startet den Thread namens fThread.
TCRCList.DisplayCRC soll unter anderem die berechneten Checksummen in das Memo fOutList schreiben.
TCRCThread.Execute soll der Reihe nach die CRC32 aller in der ObjectList vorhandenen Dateien berechnen und diese im Memo fOutList ausgeben.

Problem: Wie kann ich im Thread auf die Elemente meiner ObjectListe der Klasse TCRCList zugreifen?

Zweites Problem: Wie kann ich im thread, wenn er einen for-Durchgang beendet hat, die Methode DisplayCRC der Klasse TCRClist aufrufen?

markieren

Delphi-Quellcode:

procedure TCRCThread.Execute;
var i : integer;
begin
  for i := 0 to fOL.Count-1 do <-- ?
  begin
    //ComputeChecksum
    //Display CheckSum in Memo <-- ?
  end;
end;

Das blöde ist, ich brauche Methode und ObjectList auch, bevor ich den Thread createt und nachdem ich ihn zerstört habe. Sonst hätte ich ja einfach dem Thread die Methode und die ObjectList geben können.

Meine einzige Idee ist es, dem Thread eine eigene ObjectList und eigene Display-Methode zu spendieren und dann die ObjectList einfach zu kopieren...

zusammenfalten · markieren

Delphi-Quellcode:

type TCRCThread = class(TThread)
  private
    fOL : TCRCObjectList;
    procedure DisplayCRC;
  protected
    procedure Execute; override;
  public
    constructor Create;
end;

procedure TCRCList.StartCRC;
begin
  fThread := TCRCThread.create;
  fThread.fOL := fOL;
  [...]
end;

Ich hoffe, ich konnte mein Problem halbwegs verständlich machen
Gibt es eine Möglichkeit, vom Thread fThread aus auf die ObjectList fOL der Klasse TCRCList zuzugreifen?

Der Thread braucht ein Feld, in dem die CRCList gespeichert wird.

Zitat von Apollonius:

Der Thread braucht ein Feld, in dem die CRCList gespeichert wird.

Erstmal danke für die Antwort.
Wenn ich Dich recht verstehe, meinst Du etwa folgendes?

zusammenfalten · markieren

Delphi-Quellcode:

type TCRCThread = class(TObject)
  private
    fList : TCRCList; // <--
  protected
[...]
end;

procedure TCRCThread.Create;
begin
  fList := TCRCList.Create;
end;

procedure TCRCList.StartCRC;
begin
  fThread := TCRCThread.Create;
  fThread.fList.fOL := fOL;
  fThread.fList.fInList := fInList;
  fThread.fList.fOutList := fOutList;
  fThread.Resume;
end;

So hatte ich es auch mal, aber es erschien mir zu "umständlich", um richtig zu sein

Allerdings tut sich ein kleine Problem auf:
[Pascal Error] uType.pas(112): E2003 Undeclared identifier: 'TCRCList'

zusammenfalten · markieren

Delphi-Quellcode:

type TCRCThread = class(TObject)
  private
    fList : TCRCList; // <--
  protected
[...]
end;

type TCRCList = class(TObject)
  private
    fThread : TCRCThread; // <--
  protected
[...]
end;

Wenn Du Deine Augenbrauen zusammenziehst, bitte ich um besondere Beachtung meiner Signatur, hehe

zusammenfalten · markieren

Delphi-Quellcode:

type TCRCList = class; // <--

type TCRCThread = class(TObject)
  private
    fList : TCRCList; // <--
  protected
[...]
end;

type TCRCList = class(TObject)
  private
    fThread : TCRCThread; // <--
  protected
[...]
end;

Du denkst deutlich zu kompliziert. Erzeuge fList nicht im Konstruktor von TCRCThread, sondern setze in TCRCList.StartCRC einfach fThread.fList auf Self. Das geht allerdings nur, wenn bei der Zerstörung der CRCList auch der Thread beendet wird, was nach deiner Beschreibung aber vermutlich der Fall ist.
Um das Problem mit dem nicht deklarierten Bezeichner zu lösen, musst du TCRCList "forward-declaren" (Was ist das korrekte Verb dazu?). Dazu fügst du einfach vor die Deklaration von TCRCThread noch TCRCList = class; ein (ohne Vorfahrenliste!).

Zitat von Apollonius:

"forward-declaren" (Was ist das korrekte Verb dazu?).

Vorwärts deklarieren?

Zitat von Apollonius:

Du denkst deutlich zu kompliziert.

DAS hat bisher noch keiner zu mir gesagt, eher das genaue Gegenteil

Zitat von Apollonius:

Erzeuge fList nicht im Konstruktor von TCRCThread, sondern setze in TCRCList.StartCRC einfach fThread.fList auf Self. Das geht allerdings nur, wenn bei der Zerstörung der CRCList auch der Thread beendet wird, was nach deiner Beschreibung aber vermutlich der Fall ist.

Aber Du hast mit dem kompliziert Denken eindeutig recht.
Meine Standard-Anwort : Warum hab' ich nicht dran gedacht....

Zitat von Apollonius:

Um das Problem mit dem nicht deklarierten Bezeichner zu lösen, musst du TCRCList "forward-declaren" (Was ist das korrekte Verb dazu?). Dazu fügst du einfach vor die Deklaration von TCRCThread noch TCRCList = class; ein (ohne Vorfahrenliste!).

Zitat von DeddyH:

zusammenfalten · markieren

Delphi-Quellcode:

type TCRCList = class; // <--

type TCRCThread = class(TObject)
  private
    fList : TCRCList; // &lt;--
[...]
end;

type TCRCList = class(TObject)
  private
    fThread : TCRCThread; // &lt;--
[...]
end;

Kann mir jemand bitte erklären, warum der Quelltext von DeddyH bei mir den Fehler
[Pascal Error] uType.pas(108): E2086 Type 'TCRCList' is not yet completely defined
bringt, aber folgendes (nur ein type am Anfang) funktioniert

zusammenfalten · markieren

Delphi-Quellcode:

type
TCRCList = class; // <--

TCRCThread = class(TObject)
  private
    fList : TCRCList; // &lt;--
[...]
end;

TCRCList = class(TObject)
  private
    fThread : TCRCThread; // &lt;--
[...]
end;

Achja, beinahe hätt' ich's vergessen: Danke an alle und wieder mal

Zitat von Die Delphi-Hilfe:

If the declaration of a class type ends with the word class and a semicolon - that is, if it has the form

type className = class;

with no ancestor or class members listed after the word class, then it is a forward declaration. A forward declaration must be resolved by a defining declaration of the same class within the same type declaration section. In other words, between a forward declaration and its defining declaration, nothing can occur except other type declarations.

Zitat von Apollonius:

Zitat von Die Delphi-Hilfe:

If the declaration of a class type ends with the word class and a semicolon - that is, if it has the form

type className = class;

with no ancestor or class members listed after the word class, then it is a forward declaration. A forward declaration must be resolved by a defining declaration of the same class within the same type declaration section. In other words, between a forward declaration and its defining declaration, nothing can occur except other type declarations.

Danke für die Geduld.
Hmpf, in meiner Delphi-Hilfe habe ich dieses Thema nicht gefunden, aber ich stehe sowieso mit meiner Hilfe auf Kriegsfuß.