TFileTime addieren

[Luckie]

Wie addiere ich zwei TFileTime-Werte?

Delphi-Quellcode:

CPUTime.dwLowDateTime := ProcList.Items[i].KernelTime.dwLowDateTime + ProcList.Items[i].UserTime.dwLowDateTime;
CPUTime.dwHighDateTime := ProcList.Items[i].KernelTime.dwHighDateTime + ProcList.Items[i].UserTime.dwHighDateTime;

Das stimmt irgendwie nicht. Denn wenn ich das in eine Zeit umwandele,

Delphi-Quellcode:

FileTimeToLocalFileTime(CPUTime, lft);
FileTimeToSystemTime(lft, st);
GetTimeFormatW(LOCALE_SYSTEM_DEFAULT, TIME_FORCE24HOURFORMAT, @st, nil, TimeStr, SizeOf(TimeStr));

kommt ein falscher Wert dabei raus.

[mirage228]

Wozu addierst Du die Werte denn bzw. was soll dabei rauskommen?

mfG
mirage228

[Luckie]

Die CPU Zeit eines Prozesses setzt sich zusammen aus der zeit, die er im Kernel-Mode und User-Mode war. Deswegen muss ich sie addieren.

[mirage228]

Hi,

Also in meiner D7 W32-SDK Hilfe steht zu FileTime

Zitat:

It is not recommended that you add and subtract values from the FILETIME structure to obtain relative times. Instead, you should
· Copy the resulting FILETIME structure to a LARGE_INTEGER structure.
· Use normal 64-bit arithmetic on the LARGE_INTEGER value.

Vielleicht hilft Dir das weiter.

mfG
mirage228

[Luckie]

Hm, und wie kopiere ich das in eine LARGE_INTEGER Struktur? Und wie bekomme ich davon dann wieder die Zeit?

[sirius]

Wie wärs z.B. damit:

Delphi-Quellcode:

type TLargeTime=record
       case boolean of
         True: (DWlo:cardinal;DWHi:cardinal);
         False: (QW:int64);
end;
//kein Ahnung ob lo oder hi zuerst kommt, aber da wir bei little endian sind....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:TLargeTime;
begin
  a.DWlo:=5;
  a.DWHi:=0;
  memo1.lines.add('A: '+inttostr(a.qw));

  b.DWlo:=0;
  b.DWHi:=6;
  memo1.lines.add('B: '+inttostr(b.qw));

  c.qw:=a.qw+b.qw;

  memo1.lines.add('C: '+inttostr(c.qw));
end;

Edit: Wichtig ist, dass in ASM bei der Addtion der Hi DWords ein "adc" statt eines "add" genommen wird, um den Übertrag aus der zuvor erfolgten Addition (hier reicht add) der Lo DWords mitzunehmen.

Edit2: Was die Unit Windows nicht so alles bietet :mrgreen:

Delphi-Quellcode:

_LARGE_INTEGER = record
    case Integer of
    0: (
      LowPart: DWORD;
      HighPart: Longint);
    1: (
      QuadPart: LONGLONG);
  end;

PS: Irgendwie beist sich bei der Bezeichnung doch was:
1. DateTime -normalerweise double
2. dw* -steht eher für DWORD
3. Was ist dann DW*DATETIME?

[Leonard]

Zitat:

Zitat von Luckie

Hm, und wie kopiere ich das in eine LARGE_INTEGER Struktur? Und wie bekomme ich davon dann wieder die Zeit?

Hi,
hier http://www.swissdelphicenter.ch/torr...ode.php?id=969 wird mit LARGER_INTEGER rumgerechnet. Ich denke, da könnte auch das passende für dich dabei sein.

mfg Leonard

[Luckie]

Danke für den Link:

Delphi-Quellcode:

        CPUTime64.LowPart := ProcList.Items[i].KernelTime.dwLowDateTime + ProcList.Items[i].UserTime.dwLowDateTime;
        CPUTime64.HighPart := ProcList.Items[i].KernelTime.dwHighDateTime + ProcList.Items[i].UserTime.dwHighDateTime;
        CPUTimeft.dwLowDateTime := CPUTime64.LowPart;
        CPUTimeft.dwHighDateTime := CPUTime64.HighPart;
        //CPUTime := (ProcList.Items[i].KernelTime.dwLowDateTime shl 32) + ProcList.Items[i].UserTime.dwHighDateTime;
        FileTimeToSystemTime(lft, st);
        GetTimeFormatW(LOCALE_SYSTEM_DEFAULT, TIME_FORCE24HOURFORMAT, @st, nil, TimeStr, SizeOf(TimeStr));

PS: Man sollte bei der CPU-Zeit auch nicht die Zeitzone berücksichtigen. :mrgreen:

[Hawkeye219]

Hallo Michael,

du hast Sirius' Ergänzung offenbar überlesen:

Zitat:

Zitat von sirius

Edit: Wichtig ist, dass in ASM bei der Addtion der Hi DWords ein "adc" statt eines "add" genommen wird, um den Übertrag aus der zuvor erfolgten Addition (hier reicht add) der Lo DWords mitzunehmen.

Es reicht nicht, Lo- und Hi-Teil getrennt zu addieren, weil dabei ein eventueller Übertrag unterschlagen wird. Du mußt eigentlich nur so vorgehen wie bei der schriftliche Addition von Dezimalzahlen - oder so, wie sirius es zuvor gezeigt hat.

Das hier

Zitat:

Delphi-Quellcode:

//CPUTime := (ProcList.Items[i].KernelTime.dwLowDateTime shl 32) + ProcList.Items[i].UserTime.dwHighDateTime;

ist zwar auskommentiert, beinhaltet aber einige Fehler, die möglicherweise auch an anderen Stellen in deinem Quelltext vorkommen. Zunächst werden zwei Teile aus unterschiedlichen Strukturen (KernelTime und UserTime) verheiratet, wahrscheinlich ist das nur ein Schreibfehler. Dann wird der niederwertige Anteil verschoben - richtig wäre der höherwertige Anteil. Der letzte Fehler: bei einer Verschiebung um 32 Bits passiert nichts, wenn das Argument nicht zuvor nach Int64 gecastet wird.

Gruß Hawkeye

[Luckie]

Zitat:

Zitat von Hawkeye219

oder so, wie sirius es zuvor gezeigt hat.

Leder kann ich die QuadParts nicht addieren, da TFileTime dies nicht besitzt, deswegen hatte ich es einzeln addiert.