K210.ORG

unit frmMainU;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ScktComp, StdCtrls;

 

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    ClientSocket1: TClientSocket;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);

    procedure ClientSocket1Connect(Sender: TObject;

      Socket: TCustomWinSocket);

    procedure ClientSocket1Disconnect(Sender: TObject;

      Socket: TCustomWinSocket);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

function ntohl(const value: cardinal): cardinal;

asm

  mov edx, eax

  mov ecx, eax

  shl ecx, 16

  and eax, $0000ff00

  or eax, ecx

  mov ecx, edx

  shl eax, 8

  and ecx, $00ff0000

  shr edx, 16

  or ecx, edx

  shr ecx, 8

  or eax, ecx

end;

 

function TimeZoneBias: Double;

var

  ATimeZone: TTimeZoneInformation;

begin

  if (GetTimeZoneInformation(ATimeZone) = TIME_ZONE_ID_DAYLIGHT) then

  begin

    result := ATimeZone.Bias + ATimeZone.DaylightBias;

  end

  else

  begin

    result := ATimeZone.Bias + ATimeZone.StandardBias;

  end;

  Result := Result / 1440;

end;

 

function SecsToTime(ASecs: Cardinal): TDateTime;

const

  SECS_PER_DAY = 24 * 60 * 60;

  UNIX_OFFSET = 25569;

begin

  Result := ntohl(ASecs) / SECS_PER_DAY + encodedate(1900, 1, 1) - TimeZoneBias;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Memo1.Clear;

  memo1.Lines.Add('Connecting to ' + ClientSocket1.Host + '...');

  ClientSocket1.Open;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  ClientSocket1.Host := 'time-A.timefreq.bldrdoc.gov';

  ClientSocket1.Port := 37;

end;

 

procedure TForm1.ClientSocket1Read(Sender: TObject;

  Socket: TCustomWinSocket);

var

  buf: Cardinal;

begin

  Socket.ReceiveBuf(buf, sizeof(buf));

  memo1.Lines.Add(#13#10 + '-----------------------');

  memo1.Lines.Add(formatdatetime('dd.mm.yyyy hh:nn:ss', SecsToTime(buf)));

  memo1.Lines.Add('-----------------------'#13#10);

end;

 

procedure TForm1.ClientSocket1Connect(Sender: TObject;

  Socket: TCustomWinSocket);

begin

  memo1.Lines.Add('Connect');

end;

 

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;

  Socket: TCustomWinSocket);

begin

  memo1.Lines.Add('Disonnect');

end;

 

end.