1:

error := recv(sock_handle, ut, 4, 0);                    

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:
33:
34:
35:
36:
37:
38:
39:
40:
41:

// Nur WinNT 3.5 und höher, Win2000 und WinXP, 
// da nur diese Versionen intern mit GMT-Zeit arbeiten,
// ansonsten muss die Zeitzone berücksichtig werden
function SetTimeFromInternet(buf: array of Char): Integer;
var
  umt: Int64;
  ft: _FILETIME;
  st: _SYSTEMTIME;
  li: ULARGE_INTEGER;
begin
  Result := 0;

  umt := Ord(buf[0]) * 256 * 256 * 256 + Ord(buf[1]) * 256 * 256 +
      Ord(buf[2]) * 256 + Ord(buf[3]);

  st.wYear := 1900;
  st.wMonth := 1;
  st.wDayOfWeek := 0;
  st.wDay := 1;
  st.wHour := 0;
  st.wMinute := 0;
  st.wSecond := 0;
  st.wMilliseconds := 0;

  if not SystemTimeToFileTime(st, ft) then
  begin
    Result := GetLastError;
    Exit;
  end;

  li.QuadPart := umt * 10000000;
  li.QuadPart := li.QuadPart + ULARGE_INTEGER(ft).QuadPart;

  if not FileTimeToSystemTime(_FILETIME(li), st) then
  begin
    Result := GetLastError;
    Exit;
  end;

  if not SetSystemTime(st) then Result := GetLastError;
end;                    

1:
2:

umt := Ord(buf[0]) * 256 * 256 * 256 + Ord(buf[1]) * 256 * 256 +
  Ord(buf[2]) * 256 + Ord(buf[3]);                    

1:

umt := MAKELONG(MAKEWORD(buf[3],buf[2]),MAKEWORD(buf[1],buf[0]));                    

1:

umt := Ord(buf[0]) shl 24 + Ord(buf[1]) shl 16 + Ord(buf[2]) shl 8 + Ord(buf[0]);                    

1:
2:
3:

var buf: array[0..3] of Byte; // Nicht lachen jetzt

error := recv(socket_handle, buf, 4, 0);                    

1:
2:
3:
4:

var buf: Integer;

error := recv(socket_handle, buf, 4, 0);
buf := htonl(buf);                    

1:

li.QuadPart := umt * 10000000;                    

1:
2:
3:
4:
5:

const
  IDC_BYTEARRAY  = 110;
  IDC_CARDINAL   = 111;
  IDC_BYTEMEANS  = 112;
  IDC_CARDMEANS  = 113;                    

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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

    WM_TIMER:
      if(wp = IDC_TIMER) then begin
        hostent := gethostbyname('ntpserv.fh-magdeburg.de');

        // als Byte-Array lesen
        s       := socket(PF_INET,SOCK_STREAM,0);
        if(s <> INVALID_SOCKET) and (hostent <> nil) then begin
          SetLength(b,4);

          ZeroMemory(@saddr,sizeof(TSockAddr));
          saddr.sin_addr.S_addr := integer(pointer(hostent^.h_addr_list^)^);
          saddr.sin_family      := PF_INET;
          saddr.sin_port        := htons(37);

          res                   := connect(s,saddr,sizeof(TSockAddr));
          if(res <> SOCKET_ERROR) then
            res                 := recv(s,b[0],length(b),0);

          // Byte-Array anzeigen, ...
          if(res <> SOCKET_ERROR) then
            SetWindowText(GetDlgItem(hwndDlg,IDC_BYTEARRAY),
            pchar(Format('%.2x %.2x %.2x %.2x',[b[0],b[1],b[2],b[3]])));

          // ... & Zeit berechnen
          SetTimeFromInternet(@b,nil,GetDlgItem(hwndDlg,IDC_BYTEMEANS));
          SetLength(b,0);

          CloseSocket(s);
        end;

        // als Cardinal lesen
        s       := socket(PF_INET,SOCK_STREAM,0);
        if(s <> INVALID_SOCKET) and (hostent <> nil) then begin
          ZeroMemory(@saddr,sizeof(TSockAddr));
          saddr.sin_addr.S_addr := integer(pointer(hostent^.h_addr_list^)^);
          saddr.sin_family      := PF_INET;
          saddr.sin_port        := htons(37);

          res                   := connect(s,saddr,sizeof(TSockAddr));
          if(res <> SOCKET_ERROR) then
            res                 := recv(s,i,sizeof(i),0);

          if(res <> SOCKET_ERROR) then
            // Cardinal-Wert "drehen" (host byte order -> TCP/IP network byte order)
            i                   := htonl(i)
          else
            i                   := 0;

          // Cardinal als 8-stelligen Hex-Wert anzeigen, ...
          if(res <> SOCKET_ERROR) then
            SetWindowText(GetDlgItem(hwndDlg,IDC_CARDINAL),
            pchar(Format('0x%.8x',[i])));

          // ... & Zeit berechnen
          SetTimeFromInternet(nil,@i,GetDlgItem(hwndDlg,IDC_CARDMEANS));

          CloseSocket(s);
        end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TBArray = array of byte;
  PBArray = ^TBArray;
var
  hostent   : PHostEnt;
  s         : TSocket;
  saddr     : TSockAddr;
  res       : integer;
  b         : TBArray;
  i         : cardinal;                    

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:
33:
34:
35:
36:
37:

procedure SetTimeFromInternet(b: PBArray; i: PDWORD; wnd: HWND);
var
  umt : int64;
  st  : TSystemTime;
  ft  : TFileTime;
  li  : ULARGE_INTEGER;
  buf : array[0..MAX_PATH]of char;
begin
  if(b = nil) and (i = nil) then exit;

  if(i = nil) then umt := b^[0] shl 24 +
                          b^[1] shl 16 +
                          b^[2] shl 8  +
                          b^[3]
  else umt := i^;

  st.wYear         := 1970;
  st.wMonth        := 1;
  st.wDayOfWeek    := 0;
  st.wDay          := 1;
  st.wHour         := 0;
  st.wMinute       := 0;
  st.wSecond       := 0;
  st.wMilliseconds := 0;
  if(not SystemTimeToFileTime(st,ft)) then exit;

  li.QuadPart      := (umt * 10000000) + ULARGE_INTEGER(ft).QuadPart;
  if(not FileTimeToSystemTime(TFileTime(li),st)) then exit;

  ZeroMemory(@buf,sizeof(buf));
  if(GetTimeFormat(LOCALE_USER_DEFAULT,
    TIME_FORCE24HOURFORMAT,
    @st,
    nil,
    buf,
    sizeof(buf)) > 0) then SetWindowText(wnd,buf);
end;                    

1:

if b = 0                    

1:

st.wYear := 1970;                    

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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

//
// Liste mit den Zeitservern aus der INI-Datei lesen
//
const
  szDateTimeIni = 'DateTime.ini';
  szIniKey      = 'serverlist';
  BUFSIZE       = 16348;

procedure LoadTimeServers(hCombobox: HWND);
var
  buf, p        : pchar;
  kl            : array of string;
  i             : integer;
begin
  // Inhalt der Combobox leeren
  SendMessage(hCombobox,CB_RESETCONTENT,0,0);

  // Topicnamen aus der INI lesen
  GetMem(buf,BUFSIZE);
  try
    SetLength(kl,0);
    if(GetPrivateProfileString(szIniKey,nil,nil,buf,BUFSIZE,
      pchar(ExtractFilePath(paramstr(0)) + szDateTimeIni)) <> 0) then
    begin
      p := buf;
      while(p^ <> #0) do begin
        SetLength(kl,length(kl)+1);
        kl[length(kl)-1] := p;

        inc(p,strlen(p)+1);
      end;
    end;
  finally
    FreeMem(buf,BUFSIZE);
  end;

  // Werte aus der INI lesen, & in die Combobox eintragen
  if(length(kl) > 0) then begin
    GetMem(buf,BUFSIZE);
    try
      for i := 0 to length(kl)-1 do begin
        ZeroMemory(buf,BUFSIZE);
        if(GetPrivateProfileString(szIniKey,@kl[i][1],nil,
          buf,BUFSIZE,pchar(ExtractFilePath(paramstr(0)) + szDateTimeIni)) <> 0) then

        SendMessage(hCombobox,CB_ADDSTRING,0,LPARAM(buf));
      end;
    finally
      FreeMem(buf,BUFSIZE);
    end;

    SetLength(kl,0);
  end;

  // Eintrag auswählen, wenn vorhanden
  if(SendMessage(hCombobox,CB_GETCOUNT,0,0) > 0) then
    SendMessage(hCombobox,CB_SETCURSEL,0,0);
end;                    

1:
2:
3:
4:
5:

[serverlist]
svr1=ntpserv.fh-magdeburg.de
svr2=ntps1-0.cs.tu-berlin.de
svr3=ntps1-1.cs.tu-berlin.de
svr4=ntps1-1.uni-erlangen.de                    

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:
33:
34:
35:
36:
37:
38:
39:

// time ist schon der "gedrehte" Wert
procedure SyncTime(time: Cardinal);
const
  SYSTEM_SECONDS = 10000000;
var
  bias: Integer;
  ft: TFileTime;
  st: TSystemTime;
  li: TULargeInteger;
  tz: TTimeZoneInformation;
begin
  st.wYear := 1900;
  st.wMonth := 1;
  st.wDayOfWeek := 0;
  st.wDay := 1;
  st.wHour := 0;
  st.wMinute := 0;
  st.wSecond := 0;
  st.wMilliseconds := 0;

  if not SystemTimeToFileTime(st, ft) then Exit;

  case GetTimeZoneInformation(tz) of
    TIME_ZONE_ID_DAYLIGHT: bias := tz.Bias + tz.DaylightBias;
    TIME_ZONE_ID_STANDARD: bias := tz.Bias + tz.StandardBias;
    TIME_ZONE_ID_UNKNOWN: bias := 0;
  else
    Exit;
  end;
  bias := -bias;

  li.QuadPart := Int64(time) * SYSTEM_SECONDS + Int64(bias * 60) * SYSTEM_SECONDS;
  li.QuadPart := li.QuadPart + TULargeInteger(ft).QuadPart;

  if not FileTimeToSystemTime(TFileTime(li), st) then Exit;

  SetLocalTime(st);
  SendMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0);
end;