Zeit stoppen

[CalganX]

Hi!
Frage: Wie kann ich einen Zeitraum stoppen? (Z.B. wie lange das laden einer Website dauert)
Meine Idee, wäre das mit einer Timer-Komponente zu machen... Gibt es vielleicht noch eine andere Methode?

Chris

[Sharky]

Hai Chakotay,

Zitat von Chakotay1308:

Hi!
Meine Idee, wäre das mit einer Timer-Komponente zu machen...
Chris

Einen Timer brauchst Du eigentlich nicht. Du kannst mit GetTickCount die anzahl an ms ermitteln die seit dem Start von Windows vergangen sind. ACHTUNG: Der wert wird nach 49.7 Tagen auf 0 gesetzt.

Code:

var
 zeit_start,
 zeit_ende : Integer;

procedure StartAktion;
begin
 zeit_start := GetTickCount;
 LADEWEBSEITE ODER MACHE SONSTETWAS;
 zeit_ende := GetTickCount;
 Label1.Caption := 'Das Laden hat ' + IntToStr (zeit_ende - zeit_start) + ' ms gedauert';
end;

[Tpercon]

Mit dem Timer wären genaue Zeitmessungen auch nicht möglich.

[jbg]

Hier ist eine kleine Verbesserung, die auch am 49. Tag noch funktioniert:

Code:

[b]function[/b] TimeDiff(StartTime, EndTime: Cardinal): Cardinal;
[b]var[/b] i: Int64;
[b]begin
  if[/b] EndTime < StartTime [b]then[/b] i := $100000000 + EndTime
   [b]else[/b] i := EndTime;
  Result := i - StartTime;
[b]end[/b];

StartZeit := GetTickCount;
...
ZeitDifferenz := TimeDiff(StartZeit, GetTickCount)

[CalganX]

Danke... Werde die Funktion(en) nutzen...

Chris