| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Кому не жалко - поделитесь кодом

Ал ©   (2006-08-30 12:00:00) 

Уважаемые знатоки!

Вот возникла необходимость сделать синхронизацию с сервером точного времени. KOLIndy почил в бозе. Рекомедуют Synapse.

Если кто делал такое на KOL, поделитесь кодом. Буду признателен.

С уважением.

---

Сергей Близнюков   (2006-08-31 08:53:00) [1]

пример   \synapse\source\demo\sntp\

var
 sntp:TSntpSend;
begin
 sntp:=TSntpSend.Create;
 try
   sntp.TargetHost:=Edit1.Text;
   if sntp.GetSNTP
     then label2.Caption:=Datetimetostr(sntp.NTPTime)+' UTC'
     else label2.Caption:='Not contacted!';
 finally
   sntp.Free;
 end;


---

Наверх