Принудительное синхронизация времени

[WinCoder]

другое не вижу

Кроме как грубить? Ну ок, удачи в поисках помощи. Я смотрю, тут прям очередь из желающих помочь хамлу.

[AppData]

осталось. задать эти координаты в систему!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, XPMan;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    Button1: TButton;
    Memo1: TMemo;
    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.

[AppData]

неужели нет ни у кого, нормальных идеи?

[lomastr_]

поставьте виртуалку

[AppData]

Знаете что меня удивляет.

это то что пройстейшая задача для программистов. просто невозможна!

Никто и не ответил как! ))

[Stilet]

это то что пройстейшая задача для программистов. просто невозможна!

Именно потому что она простейшая никто и не берется. Я уже сказал - галку поставь, а если стоит - выясни почему время не подтягивает с сервера.
Иначе тебя никто не понимает что ты хочешь.

[wslab]

Интересно, на основе чего сделаны выводы, что задача невозможна? Если ты поднимешь глаза вверх, и немного почитаешь, то ты наткнёшься на моё сообщение, где я писал, что в интернете полно примеров. Встаёт вопрос, как так невозможная задача имеет кучу примеров выполнения? На основе вышесказанного можно смело делать выводы, что ты даже не читаешь, что тебе пишут.

[AppData]

Я разобрался. Сам написал все так как нужно мне) спасибо за помощь! очень помогли!

[AppData]

тему можно закрывать!

[IliaIT]

батник с текстом

net time ntp1.stratum2.ru /set /y

Поставил в планировщик задач у винды?