Entwickler-Ecke :: Thema anzeigen

uranop - Mi 27.08.08 08:13
Titel: WindowsUptime

morgen,

Wie ja bekannt ist gibt windows alle zeiten ( installdate, uptime, last boot, currenttime ) in relation zum
1/1/1970 an. soweit sogut ...

ich moechte die winuptime vomrechner uebr wmi auslesen.
geht nicht direkt sondern mussin 2 schritten unterteilt werden
auslesen von last boot time und davon current time abziehen
mach ich mit folgenden routinen

- vereinfacht -

a = SELECT LastBootUpTime from Win32_OperatingSystem
b = SELECT LocalDateTime from Win32_OperatingSystem

die werte a und b sind strings.

um mit ihnen zu rechnen muss ich die in integer umwandeln also z.b. strtoint(a) ...

das Abziehen der zeiten von einander geht auch noch .

lustiger wirds nun mit dem umwandeln ....

da steige ich aus.

ich habe mal nen code aufgeschnappt

Delphi-Quelltext

1:	EncodeDate(1970, 1 ,1) + (Value / SecsPerDay)

Value ist das wo die die Zeit zum umwandeln hernehmen ...

ich kann versuchen was ich will, ich bring meinen ausgerechneten uptimestring nicht konvertiert
entweder habe ich
string to extended fehler
int to extended

egal was immer mist ...

kann mir einer sagen wie ich das ´bewekstelligen kann ?
anscheinend kann ich wie ich auch die umwandlungen anbringe das nicht konvertieren

Moderiert von Tino: "Windoof" durch "Windows" im Titel ersetzt (die User sollen auch in Zukunft das Topic über die Suche finden).

delphi10 - Mi 27.08.08 08:40

Hi

Ist zwar nicht direkt eine Antwort zu Deiner Frage, aber vielleicht gehts mit UpTime so etwas leichter und (?)schneller:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

    Function TFormx.UpTime: string;
    const
      ticksperday : Cardinal = 1000 * 60 * 60 * 24;
      ticksperhour : Cardinal = 1000 * 60 * 60;
      ticksperminute : Cardinal = 1000 * 60;
      tickspersecond : Cardinal = 1000;
    var
      t : longword;
      d, h, m, s : Cardinal;
    begin
      t := GetTickCount;
      d := t div ticksperday;
      dec(t, d * ticksperday);
      h := t div ticksperhour;
      dec(t, h * ticksperhour);
      m := t div ticksperminute;
      dec(t, m * ticksperminute);
      s := t div tickspersecond;
      Result := IntToStr(d)+ ' Tage '+IntToStr(h)+' Std '+IntToStr(m)+' Min '+IntToStr(s)+' Sek';
    end;

cu delphi10

Delete - Sa 06.09.08 23:43

uranop hat folgendes geschrieben:

lokal sicher ...
gebe ich dir recht ...

ich klicke mich aber beim "kunden" auf und muss das demzufolge remote irgendwie rauskitzeln.
da faellt mir atm nix anderes als wmi ein

Geht auch ohne WMI:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

  PTimeOfDayInfo = ^TTimeOfDayInfo;
  TTimeOfDayInfo = packed record
    tod_elapsedt: DWORD;
    tod_msecs: DWORD;
    tod_hours: DWORD;
    tod_mins: DWORD;
    tod_secs: DWORD;
    tod_hunds: DWORD;
    tod_timezone: Longint;
    tod_tinterval: DWORD;
    tod_day: DWORD;
    tod_month: DWORD;
    tod_year: DWORD;
    tod_weekday: DWORD;
  end;

function GetRemoteToD(machine: WideString): TTimeOfDayInfo;

function GetRemoteToD(machine: WideString): TTimeOfDayInfo;
var
  TimeOfDayInfo: PTimeOfDayInfo;
  dwRetValue: DWORD;
begin
  dwRetValue := NetRemoteTOD(PWideChar(WideString(Machine)), PBYTE(@TimeOfDayInfo));
   if dwRetValue <> NERR_Success then
    raise Exception.Create(SysErrorMessage(dwRetValue));
  with TimeOfDayInfo^ do
  begin
    Result := TimeOfDayInfo^;
    NetApiBufferFree(TimeOfDayInfo);
  end;
end;

Windows SDK hat folgendes geschrieben:

NetRemoteTOD
The NetRemoteTOD function returns the time of day information from a specified server.

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

typedef struct _TIME_OF_DAY_INFO {
  DWORD tod_elapsedt; 
  DWORD tod_msecs;  // Uptime des Rechners in Millisekunden 
  DWORD tod_hours;
  DWORD tod_mins; 
  DWORD tod_secs;
  DWORD tod_hunds;
  LONG tod_timezone;
  DWORD tod_tinterval;
  DWORD tod_day;
  DWORD tod_month;
  DWORD tod_year; 
  DWORD tod_weekday;
} TIME_OF_DAY_INFO,
  *PTIME_OF_DAY_INFO,
  *LPTIME_OF_DAY_INFO;

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function FormatUpTime(msecs: int64): string;
var
  dwSecs            : DWORD;
  dwDays            : DWORD;
  ts                : SysUtils.TTimeStamp;
  UpTime            : TDateTime;
begin
  dwDays := 0;
  dwSecs := msecs div 1000;
  if dwSecs >= SecsPerDay then
  begin
    dwDays := dwSecs div SecsPerDay;
    dwSecs := dwSecs mod SecsPerDay;
  end;
  ts.Time := dwSecs * 1000;
  ts.Date := DateDelta;
  UpTime := SysUtils.TimeStampToDateTime(ts);
  Result := Format('%ud %sh %smin', [dwDays, FormatDateTime('h', UpTime),
    FormatDateTime('n', UpTime)])
end;

---Moderiert von Narses: Beiträge zusammengefasst---

Hier ist der vollständige Code: http://www.delphipraxis.net/topic141881_uptime+eines+remoterechners+ermitteln.html und noch ein paar Erklärungen.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!