Компонент TNMTime - Delphi Sources FAQ

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Компонент 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;