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)

zusammenfalten · markieren

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;

Wenn du alles nur in einem Thread machst und den Hauptthrad auch noch anhältst ist das kein Wunder.

Danke für die schnelle Antwort !
Wird durch die Schleife nicht direkt ein neues Thread aufgemacht ?

Zitat von Ginko:

Danke für die schnelle Antwort !
Wird durch die Schleife nicht direkt ein neues Thread aufgemacht ?

Das schon. Aber du wartest mit WaitForSingleObject gleich wieder so lange bis er beendet ist.

Wenn ich das anhalten aus der Schleife hole wirds auch nicht schneller.

zusammenfalten · markieren

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;

Und das funktioniert mit einer Threadhandle ?

Gruß
K-H

Zitat von Ginko:

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)

Mal abgesehen davon, dass Du die Threads falsch anwendest, liegt das Hauptproblem am HDD-Zugriff.
Ein Lesekopf kann nicht gleichzeitig an mehreren Stellen sein. Da summieren sich die Positionierungszeiten...
Wenn man regelmässig so etwas machen muss, ist bessere Hardware (SSD) oder mehrere HDDs erforderlich.
Ausserdem weist man Threads verschiedenen Cores zu - wenn man welche hat...