while schleife all 10 interationen mit einer Pause (asu TIMER)

[Alex_ITA01]

Zitat von mkinzler:

Zitat:

Abgesehen davon, Sleep() friert den Prozess/das Programm ein.

Nein, tut es nicht (mehr)

Also wenn ich folgenden Code in 10.4 rein kopiere, hängt meine Anwendung. Bin über die Aussage auch verwundert?!

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  T : LongWord;
begin
  T := GetTickCount; // oder eine andere Zeitfunktion
  while True do
  begin
    if Integer(GetTickCount - T) > 10 * 1000 then
    begin // Integer wegen eventuellem Überlauf, wenn der Rechner mehr als 48 Tage läuft
      T := GetTickCount;
      Sleep(10 * 1000);
    end;
  end;
end;

[himitsu]

Eigentlich würde ich gern mal nachsehn ob/was die mit dem Sleep da grade für ein Verbrechen begehen ... wenn ich's mal schaffe 10.4 installiert zu bekommen.

Weil wenn die wirklich da Sleep durch Delay ersetzen würden, dann wäre das grob fahrlässig.

[Alex_ITA01]

Das sagt die 10.4 Hilfe:

Delay program execution for a specified number of milliseconds.

Sleep pauses program executions as specified by the milliseconds parameter. Under Windows, Sleep is just a link to the Sleep function in the API system

Wer traut aber schon der Hilfe

[KodeZwerg]

Ich habe nochmal in meinen Archiven geforstet nach einem Sleep() Ersatz ohne das der MainThread dabei einfriert und bin auf diese Perle gestoßen:

Delphi-Quellcode:

procedure Delay(Milliseconds: Integer);
  {by Hagen Reddmann}
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
      Application.ProcessMessages;
      Milliseconds := Tick - GetTickCount;
    end;
  finally
    CloseHandle(Event);
  end;
end;

In Verbindung mit Delphi Timer bzw Iterations-Zähler sollte das Thema erfolgreich gelöst sein, hoffe ich jedenfalls

[Michael II]

Zitat von mkinzler:

Zitat:

Abgesehen davon, Sleep() friert den Prozess/das Programm ein.

Nein, tut es nicht (mehr)

Hast du dazu ein Beispiel zu "Nein, tut es nicht (mehr)"? Wenn ich in

Delphi-Quellcode:

procedure TForm36.Button1Click(Sender: TObject);
begin
  sleep( 60000 );
end;

meinen Button1 klicke, dann schläft mein Hauptthread während 60 Sekunden (Form reagiert nicht mehr auf Mausklicks etc.) - wenn ich im Windows Task Manager nachsehe, dann steht dort sehr kurz nach dem Button1-Klick "Keine Rückmeldung".

Das war bis jetzt doch in jedem Delphi und jedem Windows so (?).

Rasch gecheckt mit Delphi 10.4 und Microsoft Windows [Version 10.0.19042.421].

Winapi.Windows:
procedure Sleep; external kernel32 name 'Sleep';

[KodeZwerg]

Ich denke mal das war ein Missverständnis das mkinzler meine Aussage dementierte.