Hi,

kann mir jemand sagen wie ich aus diesem Thread aus der Codelib: http://www.delphipraxis.net/internal...t.php?p=937329 die Millisekunden ausgeben kann?

Luckie schreibt folgendes: Die Uptime steht in dem Feld tod_msecs.

Wenn ich jetzt zum Beispiel:

Caption := IntToStr(tod_msecs); schreibe kommt ein Fehler. Ich habe noch nie mit solchen Records gearbeitet. Vielleicht kennt jemand eine schnelle Lösung?

markieren

Delphi-Quellcode:

var x: TTimeOfDayInfo;

...
Caption := IntToStr(x.tod_msecs);

stell dir den Record wie ein Objekt vor

Danke

Ich glaube ich mache was falsch. Also hier nochmal Luckies Code:

zusammenfalten · markieren

Delphi-Quellcode:

type
  NET_API_STATUS = DWORD;

type
  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;


const
  NERR_Success = 0;
  netapi32lib = 'netapi32.dll';


// [..]

function NetApiBufferFree(Buffer: Pointer): NET_API_STATUS; stdcall; external netapi32lib name 'NetApiBufferFree';
function NetRemoteTOD(UncServerName: LPCWSTR; BufferPtr: PBYTE): NET_API_STATUS; stdcall; external netapi32lib name 'NetRemoteTOD';

// [..]

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;

Wenn ich das Ganze in einem Button so aurufe:

markieren

Delphi-Quellcode:

var x: TTimeOfDayInfo;
Caption := IntToStr(x.tod_msecs);

kommt immer 4 raus. Weiß jemand wie ich das richtig aufruf?

Zitat:

kommt immer 4 raus. Weiß jemand wie ich das richtig aufruf?

du solltest natürlich auch noch Luckies Funktion irgendwo aufrufen, denn dessen Werte möchtest du doch haben

markieren

Delphi-Quellcode:

var x: TTimeOfDayInfo;

x := GetRemoteToD('Name der Maschine');
Caption := IntToStr(x.tod_msecs);

Jetzt bekomm ich die Meldung "Der Dienst ist noch nicht gestartet".

Die // mussten weg. Jetzt gehts.