{$PCU}
{$W- Warnings}
{$SL ON}
Unit uWzTnSNTP;
/////////////////////////////////////////////////////////////////////////////
//  Modul        : SNTP                                                    //
//  Beschreibung : Network Time                                            //
//  Autor        : (C)2010 E-LAB Computers / Thorsten Rohlfing             //
//  Version      : 1.00 Beta                                               //
//  Datum        : 20.11.2010                                              //
/////////////////////////////////////////////////////////////////////////////

interface
// global part

uses uWzTina;
{--------------------------------------------------------------}
{ Const Declarations }
const
  SNTPVer        : Byte      = 100;

structconst
// Germany ! Can be changed bu the application
  TimeZoneBias   : word      = 0;     // hours
  TimeZoneBiasM  : Byte      = 0;     // minutes

{--------------------------------------------------------------}
{ Type Declarations }
type
  tDayOfWeek     = (dwSunday, dwMonday, dwTuesday, dwWednesday, dwThursday, dwFriday, dwSaturday);
  tDateTime      = record
                     dayofWeek      : tDayOfWeek;
                     year           : word;
                     month          : Byte;
                     day            : Byte;
                     hour           : Byte;
                     minute         : Byte;
                     second         : Byte;
                     UnixEpoche     : Longword;
                   end;

{--------------------------------------------------------------}
{ Var Declarations }
var

{--------------------------------------------------------------}
{ functions }
//
procedure wzSetSNTPserver(IPAddr : tIPaddr);
Function wzSNTPQueryDateTime(Buffer : Pointer; BuffLen : Word; var DateTime : tDateTime) : Boolean;

implementation