Текущий архив: 2009.08.09;
Скачать: CL | DM;

Вниз

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

← →
art36 ©   (2008-03-15 23:13) [0]

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

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

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

---

← →
Игорь Шевченко ©   (2008-03-16 01:02) [1]

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

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) [2]

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

---

← →
art36 ©   (2008-03-17 10:22) [3]

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

---

← →
tesseract ©   (2008-03-17 12:09) [4]

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


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

---

← →
art36 ©   (2008-03-17 12:29) [5]

Ок!

---

Страницы: 1 вся ветка

Текущий архив: 2009.08.09;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.014 c