Sekunden in Millisekunden für Sleep umwandeln

[a.def]

Genau das ist es was ich gesucht habe nur ich war zu dumm dafür das selber zu machen.

[Mavarik]

Wenn Du die einen TEvent erzeugst...

Wait := TEvent.create(NIL,true,true,'');

Du kannst bei einem Wait.WaitFor(TimeOut) angeben wie lange ein Thread warten soll..
Bei einem Keypress oder was auch immer du machst um Dein Programm zu beenden, brauchst Du nur ein Wait.SetEvent; Terminate; aufrufen und schon ist dein Thread beenden.

Mavarik

[a.def]

Bzgl dieses Codes hier:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var
AlarmTimer : THandle;
Zeit : Large_Integer;
start, ende : Cardinal;
begin
  Memo1.lines.add('SetWaitableTimer: 1 sec Running');
  start:= GetTickCount;
AlarmTimer := CreateWaitableTimer(nil, False, nil);
CancelWaitableTimer(AlarmTimer); // goto Start
Zeit.QuadPart := 1 * (-10000000); // 1 Sekunde
SetWaitableTimer(AlarmTimer, Zeit.Quadpart, 0, nil, nil, False);
while WaitForSingleObject(AlarmTimer, 20) <> Wait_Object_0 do // Beispiel: 20msec
begin Application.ProcessMessages; end;
  end1:= GetTickCount;
  Memo1.lines.add(INTTOSTR(end1-start)+' msec');
  Memo1.lines.add('WaitableTimer: Ready');
end;

Wie lasse ich den Sleep denn 500ms warten?
Verstehe den irgendwie nicht so richtig.

Der folgende wäre mir deutlich lieber aber auf meine boolsche Prüfung reagiert er gar nicht! Caption := 'X'; wird auch nie ausgeführt wenn das drin steht.

Delphi-Quellcode:

procedure TForm1.LongDelay(Milliseconds: Integer);
var
 Tick: DWord;
 Event: THandle;
begin
 Event := CreateEvent(nil, False, False, nil);

 try
  Tick := GetTickCount + DWord(Milliseconds);

  while (Milliseconds > 0) and (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
   begin
    if not bTimerRunning then
     Exit;

    Milliseconds := Tick - GetTickCount;
   end;
 finally
  CloseHandle(Event);
 end;
end;

[Mavarik]

Zitat von a.def:

Der folgende wäre mir deutlich lieber aber auf meine boolsche Prüfung reagiert er gar nicht! Caption := 'X'; wird auch nie ausgeführt wenn das drin steht.

Delphi-Quellcode:

procedure TForm1.LongDelay(Milliseconds: Integer);
var
 Tick: DWord;
 Event: THandle;
begin
 Event := CreateEvent(nil, False, False, nil);

 try
  Tick := GetTickCount + DWord(Milliseconds);

  while (Milliseconds > 0) and (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
   begin
    if not bTimerRunning then
     Exit;

    Milliseconds := Tick - GetTickCount;
   end;
 finally
  CloseHandle(Event);
 end;
end;

Caption := 'X'; ?? wo?

Du musst das ganz natürlich in einem Thread machen...

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