Delphi World - Компонент TNMTime

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Компонент TNMTime

Однажды молодой сисадмин, открыв свой почтовый ящик, нашел там повестку в райвоенкомат.
- Опять этот чертов спам, - прорычал он, нервно разрывая повестку в клочья. .

Этот компонент предназначен для получения времени от серверов времени в соответствии с протоколом RFC 868. Он аналогичен компоненту TNMDayTime.

Перед тем как использовать этот компонент, вы должны знать имя или IP-адрес соответствующего сервера Интернет и присвоить это значение свойству Host, в которое помещается имя сервера или разделённый точками IP-адрес. Свойство Port изменяется только в том случае, если сервер, к которому вы обращаетесь "слушает" не стандартный порт. А стандартный порт - 37.

После задания имени серверу читайте значение свойства TimeStr, в которое записывается полученное от сервера времени значение.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMTime1.Host:=Edit1.Text;
  NMTime1.Port:=StrToInt(Edit2.Text);
  Label3.Caption:=NMTime1.TimeStr;
end;