Delphi-PRAXiS
Seite 3 von 5     123 45      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Kein wirklicher Geschwindigkeitsvorteil durch Threads? (https://www.delphipraxis.net/174790-kein-wirklicher-geschwindigkeitsvorteil-durch-threads.html)

generic 10. Mai 2013 10:35

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
 
Schau dir die OmniThreadLib mal bitte an.
Mit der kann man einfacher Multithreaded programmieren.

Mit einer Collection (hier die Dateinamen rein) und dem ForEach wäre dir gelaube ich ganz gut geholfen.

https://code.google.com/p/omnithreadlibrary/

Ginko 10. Mai 2013 10:49

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
 
Hey danke nochmal für die vielen Antworten, ich hab es jetzt mal (trotz allen bedenken) mit einem Thread-Objekt (noch etwas unfertig) gemacht. Das ganze wird so in einem Bruchteil erledigt. Hier mal der Code.
Wie gesagt noch nicht ganz fertig... Wie kann man die Zeit von dem ganzen Ablauf Messen ? Vorher habe ich das mit dem QueryPerformanceCounter gemacht in der ButtonClick Prozedur. Aber die Threads verfälchen das ganze doch ?
Schneller ist es aufjedenfall, das sehe ich schon allein wie schnell der Output da ist.
Delphi-Quellcode:
type
  TMyThread1 = class (TThread)
    private
    protected
      procedure Execute; override;
     public
       FDateienname: String;
  end;

{ MyThread1 }

procedure TMyThread1.Execute;
var
  AProcess: TProcess;
begin
  AProcess := TProcess.Create(nil);
  try
    AProcess.Executable := ExtractFilePath(application.ExeName)+'Umwandler.exe';
    AProcess.Parameters.Add(FDateienname);
    AProcess.Options := AProcess.Options + [poWaitOnExit, poNoConsole];
    AProcess.Execute;
  finally
    AProcess.Free;
  end;
end;


procedure TForm1.Button8Click(Sender: TObject);
var
  DateienLst: TSearchRec;
  Thread1: TMyThread1;
begin
  if FindFirst(Directory + '*.txt', faAnyFile and not faDirectory, DateienLst) = 0 then
    try
      repeat
        Thread1:= TMyThread1.Create(True);
        Thread1.FDateienname:= Directory+DateienLst.Name;
        Thread1.Resume;
      until FindNext(DateienLst) <> 0;

      Thread1.FreeOnTerminate := True //??
    finally
      SysUtils.FindClose(DateienLst);
    end;
end;

Der schöne Günther 10. Mai 2013 10:56

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
 
Ja, der Unterschied ist jetzt, dass du nicht mehr auf Beendigung der Threads wartest. :-D

Ich weiß nicht, ob du das wirklich wolltest?

Ginko 10. Mai 2013 10:57

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
 
Nein wollte ich nicht. Aber anders ist die erste Version immer abgestürzt....

Uwe Raabe 10. Mai 2013 11:21

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
 
Das FreeOnTerminate gehört in die Schleife, sonst gilt es nur für die als letztes erzeugte Thread-Instanz.

Zitat:

Zitat von Ginko (Beitrag 1214929)
Delphi-Quellcode:
    try
      repeat
        Thread1:= TMyThread1.Create(True);
        Thread1.FreeOnTerminate := True //Wenn schon, dann gehört das hier hin.
        Thread1.FDateienname:= Directory+DateienLst.Name;
        Thread1.Resume;
      until FindNext(DateienLst) <> 0;

    finally
      SysUtils.FindClose(DateienLst);
    end;
end;

Du erzeugst jetzt für jede gefundene Datei einen Thread - das ist bei vielen Dateien auch wieder nicht optimal.

Daß du nicht auf das Ende der jeweiligen Threads wartest, wurde ja schon gesagt.

Ginko 10. Mai 2013 11:39

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
 
Zitat:

Zitat von Uwe Raabe (Beitrag 1214935)
Du erzeugst jetzt für jede gefundene Datei einen Thread - das ist bei vielenDateien auch wieder nicht optimal.

Ja das war eigentlich auch nur ein erster Versuch überhaupt das ganze mit Threads zum laufen zu bringen. Ich hatte auch vor die Anzahl zu beschränken, im Taskmanager sieht das so aber sehr lustig aus....

Mavarik 10. Mai 2013 12:01

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
 
Stand nicht irgend wann mal in einer Delphi Docu, dass mehr als 16 Thread es langsammer machen?

Mavarik

Der schöne Günther 10. Mai 2013 12:15

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
 
Ja, und da steht auch drin, dass man mindestens 90MHz auf seiner CPU haben sollte wenn seine Form transparent machen möchte.

jaenicke 10. Mai 2013 12:24

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
 
Zitat:

Zitat von Mavarik (Beitrag 1214938)
Stand nicht irgend wann mal in einer Delphi Docu, dass mehr als 16 Thread es langsammer machen?

Für mehr Threads als die Anzahl der Kerne gilt das auch schon, wenn die Threads einzeln einen Kern der CPU auslasten. Aber das ist ja auch logisch...

Ginko 10. Mai 2013 12:26

AW: Kein wirklicher Geschwindigkeitsvorteil durch Threads?
 
Das mit den 16 Threads hab ich auch vor kurzem irgendwo gelesen...
Ahh hier war es http://docwiki.embarcadero.com/Libra...lasses.TThread

" Auf einem Ein-Prozessor-System stellen 16 aktive Threads die praktikable Obergrenze dar. "


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:06 Uhr.
Seite 3 von 5     123 45      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz