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

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

Обмен данными с тайм-сервером (сервером точного времени)

art36 ©   (2008-03-15 23:13:00) 

Имеются сервера точного времени с которыми ОС осуществляют синхронизацию времени... Мне не нужно устанавливать время на компьютере.. Мне нужно получить время и дату в виде, например, строки от подобного сервера.

Подскажите как это сделать с помощью компонентов Delphi или как без компонентов.. то есть напрямую через API например возможно?

Напишите пожалуйства кодом, что написать, а то никак не додумаюсь а в инете не могу найти ничего путевого.

---

art36   (2008-03-17 12:29:00) [1]

Ок!

---

tesseract   (2008-03-17 12:09:00) [2]

> то есть напрямую через API например возможно?


Через WinSock - там протокол-то примитивный.

---

art36   (2008-03-17 10:22:00) [3]

Ух! Спасибо большое!

---

Игорь Шевченко   (2008-03-16 01:02:00) [4]

С помощью компонентов:

unit main;

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

type
 TForm1 = class(TForm)
   IdSNTP1: TIdSNTP;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(DateTimeToStr(IdSNTP1.DateTime));
end;

end.

object Form1: TForm1
 Left = 0
 Top = 0
 Caption = 'Form1'
 ClientHeight = 293
 ClientWidth = 426
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'Tahoma'
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object Button1: TButton
   Left = 24
   Top = 72
   Width = 75
   Height = 25
   Caption = 'Button1'
   TabOrder = 0
   OnClick = Button1Click
 end
 object IdSNTP1: TIdSNTP
   Host = 'time2.stupi.se'
   Port = 123
   Left = 32
   Top = 20
 end
end

---

Игорь Шевченко   (2008-03-16 01:02:00) [5]

Кстати, найдено в инете ( http://delphi.newswhat.com/geoxml/forumhistorythread?groupname=borland.public.delphi.internet.winsock&messageid=42807c14@newsgroups.borland.com)

---

Наверх