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

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

Как получить дату и время с time.windows.com? [D7, XP]

Lamer666 ©   (2008-08-15 08:27:00) 

Доброго времени суток уважаемые!
Подскажите как получить дату и время с time.windows.com для дальнешего использования в приложении?
Спасибо!

---

Anatoly Podgoretsky   (2008-08-15 11:12:00) [1]

> Anatoly Podgoretsky  (15.08.2008 10:14:04)  [4]

Замечание снимаю, его тоже можно использовать, упрощенный вариант NTP

---

Anatoly Podgoretsky   (2008-08-15 10:14:00) [2]

> Игорь Шевченко  (15.08.2008 9:50:03)  [3]

Думаешь там SNTP по моим сведеньям NTP

---

Игорь Шевченко   (2008-08-15 09:50:00) [3]

Например так:

unit main;

interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient,
 IdSNTP;

type
 TForm1 = class(TForm)
   IdSNTP1: TIdSNTP;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdSNTP1.Host := 'time.windows.com';
  IdSNTP1.ReceiveTimeout := 5000;
  ShowMessage(DateTimeToStr(IdSNTP1.DateTime));
end;

end.

---

Lamer666   (2008-08-15 09:49:00) [4]

> Anatoly Podgoretsky

Все понял, спасибо!

---

Anatoly Podgoretsky   (2008-08-15 08:51:00) [5]

Протокол описан в RFC или используй готовый компонент.

---

Наверх