Sekunden in Millisekunden für Sleep umwandeln

[a.def]

Hab jetzt eine andere Lösung gefunden. Die funktioniert.

[Mavarik]

Zitat von a.def:

Hab jetzt eine andere Lösung gefunden. Die funktioniert.

Dann zeig doch mal!

[t.roller]

Zitat von a.def:

Wie lasse ich den Sleep denn 500ms warten?

Delphi-Quellcode:

Zeit.QuadPart := 1 * (-10000000); // 1 Sekunde
Zeit.QuadPart := 1 * (-1000000); // 100 msec
Zeit.QuadPart := 1 * (-100000); // 10 msec
Zeit.QuadPart := 1 * (-10000); // 1 msec

[himitsu]

Nur mal zur Info: Es gibt ein paar Konstanten zur Zeitkonvertierung.

Zitat:

Delphi-Quellcode:

  HoursPerDay   = 24;
  MinsPerHour   = 60;
  SecsPerMin    = 60;
  MSecsPerSec   = 1000;
  MinsPerDay    = HoursPerDay * MinsPerHour;
  SecsPerDay    = MinsPerDay * SecsPerMin;
  SecsPerHour   = SecsPerMin * MinsPerHour;
  MSecsPerDay   = SecsPerDay * MSecsPerSec;

SysUtils


Laut Definition will SetWaitableTimer direkt den LARGE_INTEGER und keinen "QuadPart".

[a.def]

Ich mache das jetzt so

Delphi-Quellcode:

procedure TForm1.LongDelay(Milliseconds: Cardinal);
var
 FirstTickCount: DWord;
begin
 FirstTickCount := GetTickCount;

 while ((GetTickCount - FirstTickCount) < Milliseconds) do
  begin
   if not ThreadRunning then // nur ein Beispiel! (das hier steht hier nur, damit bei Programmende nicht unnötig hier gewartet wird)
    Exit;

   Application.ProcessMessages;
   Sleep(0);
  end;
end;

// Eingabe Nutzer: 600
var
 dTmp: Single;
 iMaxImgLifetime: Integer;
begin
 dTmp := (StrToIntDef(sSecondsInput, 600) / 20); // 20 = Anzahl Bilder
 iMaxImgLifetime := Round(dTmp * 1000); // Lebenszeit eines Bildes, bevor es versteckt wird

 // Thread
 while ... do
  begin
   LongDelay(iMaxImgLifetime);

   // Arbeite ...
  end;

[himitsu]

Nur keine Ahnung, warum jemand sich so viele Umstände macht anstatt das ganze Problem mit 2 Zeilen Code und einem TTimer zu lösen.

[a.def]

Weil ein Timer hier die GUI minimal blockieren würde. Statt einen Timer läuft es bei mir in einem TTask, ist doch kein Problem?

[himitsu]

Nein, es läuft nicht alles im Thread und wenn doch, dann hast du da einen schweren Designfehler im Programm, denn auf die VCL greift man ausschließlich vom Haupthtread drauf zu.
Der Task/Thread macht doch scheinbar nichts anderes, als sinnlos zu warten und dann das Bild zu änder.

Das Einzige, was hier "eigentlich" gemacht wird, ist alle x Sekunden in der GUI ein Bild zu ändern.
Das Ändern dauert immer gleich lang, egal ob es direkt im VCL-Thread von einem Timer ausgeführt wird
oder ob man es aus einem Thread synchronisiert im VCL-Thread macht.

[a.def]

Habs jetzt in einen Timer gepackt. Kein TTask mehr, kein Synchronize mehr, kein LongDelay mehr
Das Interval ist die Zeit die vorher meine Sleep-Dauer war.
Im Timer ist bei jedem Durchgang ein ProcessMessages.

[stahli]

Das ist gut so, wie auch himitsu empfohlen hat.

Aber das ProcessMessages ist sicherlich überflüssig.
Erstens wird es keinen positiven Effekt haben und zweitens kann es durchaus Probleme machen.

Was willst Du damit erreichen?