Hi ihr,

mir brummt der Kopf. Ich versuche gerade, die DriveTools.pas (Direktlink) von Luckie in einen Thread auszulagern, da ich bei meinem Programm (nonVCL, mal wieder ) im Hintergrund einen definierten Ordner einlesen möchte. Mein Versuch sieht bis jetzt so aus:

zusammenfalten · markieren

Delphi-Quellcode:

 (*| Copyright (c) 2005 Michael Puff                                      |*)

uses Windows, Messages;

type
  TStringArray = array of string;

const
    {...}
type
  TFindFiles = class(TObject)
  private
    fThread: THandle;
    fThreadID: Cardinal;
    {...}
    procedure ThreadProc;
    {...}
  public
    {...}
  end;

var
  FFTerminate: Boolean;

  {...}

implementation

function GlobalThreadProc(Ptr: Pointer): DWORD;
begin
  TFindFiles(Ptr).ThreadProc();
end;

constructor TFindFiles.Create(Handle: THandle; RootFolder: string; Mask: string; Recurse: Boolean; Progress: Boolean);
begin
  fThread := BeginThread(nil, 0, @GlobalThreadProc, Self, CREATE_SUSPENDED, fThreadID);
  FHandle := Handle;
  FProgress := Progress;
  FFTerminate := False;
  if FProgress then
    Init;
end;

procedure TFindFiles.Init;
begin
  FCntFolders := 0;
  FiFolder := 0;
  FLevel := 0;
  if FProgress then
  begin
    SendMessage(FHandle, FFM_INIT, 0, 0);
    CountFolders(FRootFolder, FRecurse);
    Sendmessage(FHandle, FFM_MAXFOLDERS, FCntFolders, 0);
  end;
end;

procedure TFindFiles.CountFolders(RootFolder: string; Recurse: Boolean);
var
  hFindFile : THandle;
  wfd : TWin32FindData;
begin
  {...}
end;

procedure TFindFiles.Find(Handle: THandle; RootFolder: string; Mask: string; Recurse: Boolean = True);
var
  hFindFile : THandle;
  wfd : TWin32FindData;
begin
  {...}
end;

procedure TFindFiles.ThreadProc;
begin
  Find(FHandle, FRootFolder, FMask, FRecurse);
  SendMessage(FHandle, FFM_FINISH, 0, 0);
end;

procedure TFindFiles.FindFiles;
begin
  ResumeThread(fThread);
end;

class procedure TFindFiles.Terminate;
begin
  FFTerminate := True;
  EndThread(0);
end;

Ich habe die Unit auf die wichtigsten Teile gekürzt. Der Thread funktioniert auch soweit. Allerdings habe ich das Problem, dass das Fenster "ruckelt". Es springt beim Verschieben und reagiert sehr behäbig. Ich fürchte, irgendwo bin ich gestolpert, nur wo? Sieht jemand vielleicht von euch (Luckie? ), was ich da verbockt habe?

//Edit: Argh, beim Absenden kam mir einen Idee: In der "Find" - Funktion werden zwei Nachrichten abgesetzt. Einmal, wenn ein Ordner "gefunden" wurde, und einmal bei einer Datei. Auf die Nachricht der Datei reagiere ich, indem ich die ID3-Tags der Datei auslese und in eine SQLite-DB speicher. Das ist offensichtlich der Flaschenhals, denn kommentiere ich diesen Part aus, "ruckelts" nicht mehr. Ich fürchte, jetzt muss ich mir was anderes einfallen lassen... Das Schreiben in die DB muss noch in den Thread... Aiaiai...

Du weist aber, dass du deine GlobalThreadProc nicht brauchst, sondern auch gleich deine Methode aufrufen kannst (in BeginThread übergeben).

Dachte ich mir auch, aber dann bekomme ich den Fehler

Zitat:

[Pascal Fehler] MpuDriveTools.pas(111): E2036 Variable erforderlich

Wobei ThreadProc jetzt so definiert ist:

function ThreadProc(P: Pointer): DWORD;

markieren

Delphi-Quellcode:

constructor TTest.Create;
var id:Cardinal;
begin
  BeginThread(nil,0,@TTest.Thread,self,0,id);
end;

function TTest.Thread: Integer;
begin

end;

Mach ich ständig so.

Was machst du eigentlich mit dem EndThread da?

Zitat von sirius:

Was machst du eigentlich mit dem EndThread da?

Den Thread beim Zerstören des Objekts beenden. Nicht nötig?

Nicht nötig. Einfach aus der Threadproc rausgehen. Und in deinem Fall verstehe ich den Sinn sowieso nicht.

Zitat von sirius:

Und in deinem Fall verstehe ich den Sinn sowieso nicht.

Warum? Wenn der zugehörige Prozess beendet wird, werden dann auch automatisch alle Threads weggeräumt?

ist der Prozess weg, sind auch die Threads und alle möglichen (nicht gemeinsamen) Handles und auch der zugehörige Arbeitsspeicher weg, aber dennoch kann man ja selber noch ordentlich aufräumen.

Zitat von Daniel G:

Zitat von sirius:

Und in deinem Fall verstehe ich den Sinn sowieso nicht.

Warum? Wenn der zugehörige Prozess beendet wird, werden dann auch automatisch alle Threads weggeräumt?

Aber du musst EndThread (wenn überhaupt) innerhalb des entsprechenden Threads aufrufen.

Zitat von sirius:

Aber du musst EndThread (wenn überhaupt) innerhalb des entsprechenden Threads aufrufen.

Ähh... Jetzt wo du das so sagst... klingt logisch...

@himi: Mein Reden.

Danke.