Timer wird zu langsam

[Larsi]

Hi,
ich habe einen Timer der eine Grafik bewegen soll, das funktioniert ja auch schon ganz gut! Aber wenn ich jetzt gleichzeitig eine andere Speicherfressende Sachen wie zb das suchen nach dateien in Delphi oder das löschen von mehreren Dateien bleibt der Timer einfach stehn! Ich habe mal was von IdProcessMessage oder irgendwie sowas gehört, hat das was damit zu tun, also ich will der der Timer weiterlüft. Und mit Threads kenn ich mich leider auch nicht besonders aus also wäre es gut wenn mit jemand mein Problem einfach lösen kann. Wäre sehr dankbar :)

Habe auch schon das Tutorial von dsdt oder wie das heißt über Threads falls die damit überhaupt was zu tun haben gelesen aber irgnedwie sieht das nach sehr viel Arbeit aus. Gehts nicht einfacherer?

MFG Lars Wiltfang

[sirius]

Threads sind ganz einfach. :gruebel:
Und du hast den richtigen (und einzigen) Lösungsansatz gefunden.

Wo klemmt es denn?

[Bernhard Geyer]

VCL-Anwendungen sind alles andere als geeigent für Echzeit-GUI-Aktionen. Hierfür arbeitest Du dich am besten auch in das Thema DirectX ein.

[Larsi]

Es geht mir grunsätzlich darum dass der Timer zu langsam ist jetzt nicht nur bei Grafik Sachen. Also mein Problem ist dass ich nicht weiß wie ich das machen soll mit dem Thread. Wenn mit jemand mal den Code dafür geben könnte wie ein Timer besser arbeitet wäre ich diesem wirklich sehr sehr sehr dankbar da ich schon sehr lange nach einer Lösung suche aber irgendwie hab ich das alles nciht kapiert! :)

[Klaus01]

Hallo Lars,

was ist denn Dein Problem?
Ist es, dass die Aufgaben nicht in einem Timerintervall erledigt werden können?
Oder ist Dir das kleinste Interval (20ms) zu groß?
Wenn es das zweite Problem sein sollte, kannst Du dir mal den MultimediaTimer anschauen.
Wenn es das erste Problem sein sollte -> Threads einsetzen oder das design ändern.

Grüße
Klaus

[sirius]

Es geht bei Threads nicht um den Timer. Es geht bei Threads darum, dass du solche Sachen:

Zitat:

zb das suchen nach dateien in Delphi oder das löschen von mehreren Dateien

in einen Thread auslagerst und dadurch allea was GUI betrifft ohne Probleme läuft.

Dazu nimmst du am einfachsten eine Ableitung der Klasse TThread. Im constructor übergibst du Initialisierungsparameter und im Ereignis onTerminate liest du das Ergebnis aus.
Wichtig ist, dass du dazwischen keine Variablen/Objekte aus dem anderen Thread/MainThread benutzt. Ansonsten musst du mit Synchronisieren anfangen.

[Bernhard Geyer]

Zitat:

Zitat von Larsi

Es geht mir grunsätzlich darum dass der Timer zu langsam ist jetzt nicht nur bei Grafik Sachen.

TTimer setzt auf den simplen Timer von Windows auf und der schlägt maximal 20/50 mal pro Sekunde zu. Alternative währen hier sog. Multimedia-Timer (Forensuche bemühen) die eine kleinere Auflösung bieten.

[Larsi]

Kann mir denn keiner ein simples Beispiel dafür geben wie ich dann z.b. das löschen mehreren dateien mit einem thread mache der aktiv ist wenn man auf nen button klcikt. Das mit dem löschen krieg ich natärlich selber schon mir gehts eher um den thread!

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

[Larsi]

Danke aber ich glaub ich bin zu blöd :) Wie kann ich denn jetzt diese einzelne Zeile die auf keine Variablen sondern nur auf einen schon oben genannte Funktion zugreift in nen Thread packen? Am besten wärs wenn das ganze in einer Button Procedur unterbring bar wäre!

Delphi-Quellcode:

XORCrypt('DasPassword', Edit1.text, Edit1.text);