0

Здравствуйте, хочу написать автоСинхронизацию на Delphi

 procedure TsinhForm.Button1Click(Sender: TObject);
    var
       ST : _SYSTEMTIME;
    begin
        ST.wYear := 2019;
        ST.wMonth := 5;
        ST.wDay := 14;
        ST.wHour := 8;
        ST.wMinute := 55;
        ST.wSecond := 59;
        SetSystemTime(ST);
    end;

Это перманентная установка по нажатию кнопки, а как при нажатии кнопки, с помощью инструмента IdSNTP, изменить дату/время?

2 ответа 2

1

У этого компонента есть специальный метод SyncTime, который запрашивает дату с сервера и изменяет системное время, если сервер ответил:

uses
  IdSNTP;

procedure SyncTime;
var
  SNTPClient: TIdSNTP;
begin
  SNTPClient := TIdSNTP.Create(nil);
  try
    SNTPClient.Host := 'pool.ntp.org';
    SNTPClient.SyncTime;
  finally
    SNTPClient.Free;
  end;
end;
4
  • Если я правильно помню, то программа должна иметь админские права, тогда система позволит изменить время?
    – Vlad Chapl
    24 дек 2017 в 10:09
  • @VladChapl По идее, да, нужны права. Но я работаю под админом и проверить негде. В любом случае, права нужны ровно те же, что и в случае с ручным заданием времени при нажатии на баттон из кода в вопросе.
    – zed
    24 дек 2017 в 10:55
  • >я работаю под админом. В последних версиях Windows (вроде начиная с Vista) админ несколько урезанный. Поэтому нужно специально запускать "Run as administrator". Ну и в коде отслеживать сообщения об ошибках ОС. (Это я к тому, случаю, когда код "не работает".)
    – Vlad Chapl
    25 дек 2017 в 10:05
  • @VladChapl У меня Win8.1. Код из ответа тестировал, дату/время изменяет без дополнительных телодвижений.
    – zed
    25 дек 2017 в 11:04
1

Если у вас Delphi-7 не урезанная, то в ней есть Indy. В ином случае этот набор можно поставить - он свободно доступен. В последующих версиях Delphi он присутствует и весьма порой полезен.
Если я верно понял вопрос, то реализация будет примерно такая:
На вкладке Indy Clients (иногда просто Indy) есть компонент TIdSNTP, добавляем его на форму, в свойстве host выставляет нужный нам сервер (пусть будет 0.europe.pool.ntp.org). Теперь ваша процедура будет выглядеть так:

procedure TsinhForm.Button1Click(Sender: TObject);
var
  ST : _SYSTEMTIME;
  y,m,d,h,mi,s,ms : word;
  dt:TDateTime;
begin
     try
        dt:=IdSNTP1.DateTime;
     except
       //обрабатываем ошибки
     end;
     DecodeDate(dt,y,m,d);
     DecodeTime(dt, h, mi, s, ms);
     ST.wYear := y;
     ST.wMonth := m;
     ST.wDay := d;
     ST.wHour := h;
     ST.wMinute := mi;
     ST.wSecond := s;
     SetSystemTime(ST);
end;
3
  • А что делать при "Socket Error #11004"? 24 дек 2017 в 6:34
  • 1
    @NickGrom Как правило, ошибка определения имени сервера. Либо вместе имени выставить IP, либо пробовать другой сервер 24 дек 2017 в 13:17
  • @NickGrom У меня эта ошибка возвращается, если я к SNTP-серверу обращаюсь через прокси по имени. Если не пользовать прокси или пользовать, но через IP, ошибки нет. 24 дек 2017 в 15:57

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.