Скачать: CL | DM;

Синхронизация системного времени   Найти похожие ветки 

← →
СержК   (2004-03-29 14:01) [0]

Мастера подскажите.
Как синхронизировать системное время рабочей станции с сервером при запуске приложения?

---

← →
Романов Р.В. ©   (2004-03-29 14:11) [1]

На сервере запусти программу сервер времени. На рабочей станции - программу клиент. Клиента помести в автозагрузку. При запуске клиент устанавливает соединение с сервером и запрашивает время. Сервер сообщает свое время, клиент изменяет системное время на раб. станции и завершает работу.

---

← →
Cobalt ©   (2004-03-29 14:26) [2]

команда net time /?

---

← →
Ega23 ©   (2004-03-29 14:28) [3]

Есть такая программка ntp - network time protocol. выполняет синхронизацию времени машин в локальной сети.

---

← →
СержК   (2004-03-29 14:31) [4]

На сервере что-то делать у меня нет прав. Пытаюсь сделать синхронизацию с помощью:
ShellExecute()  и  \\net time server /set /yes.
Ничего не получается - ругаться не ругается, но и не работает.
Синтаксис ShellExecute() нашел в самом общем виде. Может кто реальный примерчик подкинет.

---

← →
Романов Р.В. ©   (2004-03-29 14:41) [5]

procedure SetTime(const Srv: string);
function GetCmd: string;
var
  Buffer: array[0..4095] of Char;
begin
  SetString(Result, Buffer, GetEnvironmentVariable(PChar("ComSpec"), Buffer, SizeOf(Buffer)));
end;
begin
  ShellExecute(GetDesktopWindow, nil, PChar(GetCmd),PChar("/C net time \\"+Srv+" /set /yes),nil, SW_HIDE)
end;

---

← →
СержК   (2004-03-29 15:04) [6]

Если я правильно понял то это должно выглядеть так:

function GetCmd: string;
var
 Buffer: array[0..4095] of Char;
begin
 SetString(Result, Buffer, GetEnvironmentVariable(PChar("ComSpec"), Buffer, SizeOf(Buffer)));
end;

procedure SetTime(const Srv: string);
begin
ShellExecute(GetDesktopWindow, nil, PChar(GetCmd),PChar("/C net time \\"+Srv+" /set /yes),nil, SW_HIDE)
end;

Но при компиляции ругается:"Unterminated string". Что это?

---

← →
Ega23 ©   (2004-03-29 15:09) [7]

после
" /set /yes
символ " забыл поставить.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c