Timer wird zu langsam

[sirius]

Wenn wir dem oben genannten Konzept bleiben:

Delphi-Quellcode:

type TCopy=class(TThread)
       constructor Create(const aPassword, aQuelle, aZiel : String);
      protected
       procedure execute; override;
      private
       FPassword:string; 
       FQuelle:string;
       FZiel:string; 
end;

...
constructor TCopy.Create(const aPassword, aQuelle, aZiel : String);
begin
  inherited Create(false); //false=> Thread gleich nach dem Constructor starten
  FreeOnTerminate:=True; //Objekt löschen, wenn Thread beendet wurde
  FPassword:=aPassword;
  FQuelle:=aQuelle;
  FZiel:=aZiel;
end;

procedure TCopy.execute;
begin
  XORCrypt(FPassword, FQuelle, FZiel);    
    
end;



//.... Aufruf von irgendwoher, Beispiel:

procedure TForm1.Button1click(...);
...
begin

  TCopy.create('DasPassword', Edit1.text, Edit1.text);
  //Objektzeiger brauchen wir nicht zu speichern, da er nicht mehr benötigt wird
  //Objekt gibt sich ja selber frei
end;

Das ist die einfachste Version mittels TThread. du kannst die Klasse auch noch weiter ausbauen und dich z.B. benachrichtigen lassen, wenn der Thread fertig ist, oder noch andere Sachen machen.