Mit IdDayTime Uhrzeit auslesen!

[Duffy]

Hallo Kevin,
hier ist mal ein Konsolenprogramm, was die Uhrzeit des Rechners setzt.

Delphi-Quellcode:

program SetNTTime;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  IdTime,
  IdBaseComponent,
  JclDateTime,
  Windows;

var
  TimeClient: TIdTime;
const
  TServer = 'ptbtime1.ptb.de';

function SetSystemDateTime(SystemDateTime: TDateTime): Boolean;
var
  SysDateTime: TSystemTime;
begin
  ZeroMemory(@SysDateTime, SizeOf(SysDateTime));
  with SysDateTime do
  begin
    DecodeDate(SystemDateTime, wYear, wMonth, wDay);
    DecodeTime(SystemDateTime, wHour, wMinute, wSecond, wMilliSeconds);
    Result := SetSystemTime(SysDateTime);
  end;
end;

begin
  TimeClient := TIdTime.Create(nil);
  TimeClient.Host := TServer;
  try
    SetSystemDateTime(LocalDateTimeToDateTime(TimeClient.DateTime));
    Writeln('Zeitstempel ["' + TServer + '"]: ' + DateTimeToStr(TimeClient.DateTime));
  except
    Writeln('Fehler beim lesen des Zeit Servers "' + TServer + '"');
  end;
  TimeClient.Free;
end.