zur Berechnung von MD5 hashsummen (von grosen Files) wird eine thread classe verwendet

markieren

Delphi-Quellcode:

type
     TMD5Thread = class(TThread)
                  public
                  constructor Create(ThreadPriority : TThreadPriority);
                  function GetMD5OfFile(PathToFile : widestring): TMD5Digest;
                  function GetMD5DigestToStr(MD5summ : TMD5Digest): string;
                  end; // TMD5Thread

zusammenfalten · markieren

Delphi-Quellcode:

function TMD5Thread.GetMD5OfFile(PathToFile : widestring): TMD5Digest;
begin
     result := MD5File(PathToFile);
end;

function TMD5Thread.GetMD5DigestToStr(MD5Summ : TMD5Digest): string;
begin
      result := MD5DigestToStr(MD5Summ);
end;

constructor TMD5Thread.Create(ThreadPriority : TThreadPriority);
begin
  inherited Create(false);
  Priority := ThreadPriority;
end;

Leider friert das ganze Programm beim berechnen ein...
Ist es vieleicht ein Thread Problem....!?

Kann es sein, dass du gar keine Execute-Methode definiert hast, die den Ausführungscode enthält ?

Köntest du ein Beispiel oder kurze Bechreibung geben...))

Hallo,

Bei einem Abkömmling von TThread läuft die Execute-Methode in einem seperaten Thread ab. Der Thread wird beendet, sobald diese Methode fertig ist. Wenn du einfach irgendwelche Funktionen dieser Klasse aufrufst, die du selbst definiert hast, dann laufen diese im Kontext der Haupthreads ab.

Ich geh jetzt mal davon aus, dass das dein Problem ist. Da du den Thread nicht suspended (inherited Create(true)) erzeugst, muss es IMHO so sein.

BEISPIEL...!!!!

Zitat von m0sch3r:

BEISPIEL...!!!!

Sag mal, gehts noch? Beruhig dich mal, nicht jeder hat Lust/Zeit innerhalb von 5 Minuten Source zusammenzuschreiben, nur weil du nicht suchen willst/kannst. Zu Threads gibts hier genug Themen

greetz
alcaeus

Es fehlt schlicht und ergreifen die Execute Methode.

Und SCHREI hier nicht so rum! Warum sollten wir bereit sein dir innerhalb kürzeseter Zeit ein Beispiel zusammen zu schreiben, wenn du noch nicht mal bereit bist zu suchen?

http://tutorials.luckie-online.de

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMD5Thread = class(TTHread)
  //...
  public
    procedure Execute; override;
  end;

procedure TMD5Thread.Execute;
begin
  // Mache was im Thread
end;

Danke für die Antworten, anscheinend war daß mein Fehler.

Die Create methode war falsch...!!!! jetzt geht es...))))

Zitat von m0sch3r:

BEISPIEL...!!!!

SUCHEN...!!!!