AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Sekunden in Millisekunden für Sleep umwandeln
Thema durchsuchen
Ansicht
Themen-Optionen

Sekunden in Millisekunden für Sleep umwandeln

Ein Thema von a.def · begonnen am 11. Mär 2017 · letzter Beitrag vom 12. Mär 2017
Antwort Antwort
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.562 Beiträge
 
Delphi 12 Athens
 
#1

AW: Sekunden in Millisekunden für Sleep umwandeln

  Alt 11. Mär 2017, 14:49
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".
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (11. Mär 2017 um 14:53 Uhr)
  Mit Zitat antworten Zitat
a.def
(Gast)

n/a Beiträge
 
#2

AW: Sekunden in Millisekunden für Sleep umwandeln

  Alt 11. Mär 2017, 16:55
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;
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.562 Beiträge
 
Delphi 12 Athens
 
#3

AW: Sekunden in Millisekunden für Sleep umwandeln

  Alt 11. Mär 2017, 16:59
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.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
a.def
(Gast)

n/a Beiträge
 
#4

AW: Sekunden in Millisekunden für Sleep umwandeln

  Alt 11. Mär 2017, 17:01
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?
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.562 Beiträge
 
Delphi 12 Athens
 
#5

AW: Sekunden in Millisekunden für Sleep umwandeln

  Alt 11. Mär 2017, 20:00
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.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
a.def
(Gast)

n/a Beiträge
 
#6

AW: Sekunden in Millisekunden für Sleep umwandeln

  Alt 11. Mär 2017, 20:13
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.
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.358 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Sekunden in Millisekunden für Sleep umwandeln

  Alt 11. Mär 2017, 20:24
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?
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
t.roller
(Gast)

n/a Beiträge
 
#8

AW: Sekunden in Millisekunden für Sleep umwandeln

  Alt 11. Mär 2017, 20:45
Laut Definition will SetWaitableTimer direkt den LARGE_INTEGER und keinen "QuadPart".
Zeit.QuadPart ist INT64.
Largeint ist ein 8 Byte großer Integerwert mit Vorzeichen.
Ist also das Gleiche!

WINDOWS.PAS:
LARGE_INTEGER = record
case Integer of
0: (
LowPart: DWORD;
HighPart: Longint);
1: (
QuadPart: LONGLONG);
end;
TLargeInteger = Int64;

Zitat:
Remarks

The LARGE_INTEGER structure is actually a union. If your compiler has built-in support for 64-bit integers, use the QuadPart member to store the 64-bit integer. Otherwise, use the LowPart and HighPart members to store the 64-bit integer.
Angehängte Grafiken
Dateityp: jpg SETWAITABLETIMER.jpg (53,8 KB, 6x aufgerufen)

Geändert von t.roller (11. Mär 2017 um 21:04 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.358 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: Sekunden in Millisekunden für Sleep umwandeln

  Alt 11. Mär 2017, 20:57
@a.def

Die Positionsberechnung führst Du sicher in einem anderen Ereignis durch - oder?
Dann ruf Deine Positionsberechnung einfach noch mit in der Timer-Behandlung auf. Dann sollte das eigentlich funktionieren.

Mit Application.Processmessages schiebst Du im Grunde auch nur eine zusätzliche Ereignisbehandlung in die Timerbehandlung hinein.
Das kann aber Probleme machen - siehe hier: http://www.delphipraxis.net/190294-p...alsection.html

Kannst Du sonst mal ein Demoprojekt anhängen? Das sollte eigentlich ohne ProcessMessages funktionieren.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.562 Beiträge
 
Delphi 12 Athens
 
#10

AW: Sekunden in Millisekunden für Sleep umwandeln

  Alt 11. Mär 2017, 22:34
Das Timer-Event ist eine Message und direkt danach werden alle weiteren Messages verarbeitet, es bringt also eigentlich garnichts, wenn man das vorher selber die Messages verarbeiten will, abgesehn von den genannten Problemen mit den rekursiven Aufrufen.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz