Kein wirklicher Geschwindigkeitsvorteil durch Threads?

[generic]

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]

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]

Ja, der Unterschied ist jetzt, dass du nicht mehr auf Beendigung der Threads wartest. :-D

Ich weiß nicht, ob du das wirklich wolltest?

[Ginko]

Nein wollte ich nicht. Aber anders ist die erste Version immer abgestürzt....

[Uwe Raabe]

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]

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]

Stand nicht irgend wann mal in einer Delphi Docu, dass mehr als 16 Thread es langsammer machen?

Mavarik

[Der schöne Günther]

Ja, und da steht auch drin, dass man mindestens 90MHz auf seiner CPU haben sollte wenn seine Form transparent machen möchte.

[jaenicke]

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]

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. "