Kein wirklicher Geschwindigkeitsvorteil durch Threads?
Hallo, ich versuche gerade mehrere Dateien zu bearbeiten. Um das ganze zu beschleunigen, versuche ich es mit Threads zu machen. Es bringt aber nur ca 1sek. Bei der Auslastung wurde auch nur ein CPU beansprucht (die andere nur ein wenig)
Delphi-Quellcode:
type
TThreadParams = packed record // Number: Integer; Dat: string; end; PThreadParams = ^TThreadParams; function Umwandler(pDateiname: Pointer): Integer; begin ... Umwandlung end; procedure TForm1.Button7Click(Sender: TObject); var DateienLst: TSearchRec; id: Cardinal; ExitCode : Cardinal; tp : TThreadParams; threadhandle: THandle; begin if FindFirst(Directory + '*.txt', faAnyFile and not faDirectory, DateienLst) = 0 then try repeat tp.Dat:= Directory+DateienLst.Name; threadhandle:= system.BeginThread(nil,0,@Umwandler,@tp,0,id); WaitForSingleObject(threadhandle, INFINITE); GetExitCodeThread(threadhandle, ExitCode); case ExitCode of IDYES: Writeln('Benutzer hat "Ja" angeklickt.'); IDNO: Writeln('Benutzer hat "Nein" angeklickt.'); end; CloseHandle(threadhandle); until FindNext(DateienLst) <> 0; finally SysUtils.FindClose(DateienLst); end; end; |
AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
Wenn du alles nur in einem Thread machst und den Hauptthrad auch noch anhältst ist das kein Wunder.
|
AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
Danke für die schnelle Antwort !
Wird durch die Schleife nicht direkt ein neues Thread aufgemacht ? |
AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
Zitat:
|
AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
Wenn ich das anhalten aus der Schleife hole wirds auch nicht schneller.
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var DateienLst: TSearchRec; id: Cardinal; ExitCode : Cardinal; tp : TThreadParams; threadhandle: THandle; begin if FindFirst(Directory + '*.txt', faAnyFile and not faDirectory, DateienLst) = 0 then try repeat tp.Dat:= Directory+DateienLst.Name; threadhandle:= system.BeginThread(nil,0,@Umwandler,@tp,0,id); until FindNext(DateienLst) <> 0; WaitForSingleObject(threadhandle, INFINITE); GetExitCodeThread(threadhandle, ExitCode); case ExitCode of IDYES: Writeln('Benutzer hat "Ja" angeklickt.'); IDNO: Writeln('Benutzer hat "Nein" angeklickt.'); end; CloseHandle(threadhandle); finally SysUtils.FindClose(DateienLst); end; end; |
AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
Und das funktioniert mit einer Threadhandle ?
Gruß K-H |
AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
Es dürfte auch nur das Threadhandle vom letzten Thread geschlossen werden.
|
AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
Also wäre hier ein Array von Threadhandles sinnvoll ?
|
AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
Darf ich dir einen Rat geben? Lass lieber die Finger von Threads bis du weißt, was du tust.
|
AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
Zitat:
Eine bestehende Struktur auf Threads umzubauen ist meist ein extrem schwieriges Unterfangen - Threads zu verwenden muss nämlich schon im grundlegenden Design der Software berücksichtigt werden. Luggi |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:31 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz