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

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

Как с помощью TIdTime и TIdSNTP синхронизировать время? [D7, WinXP]

Kinder ©   (2003-11-09 00:38:00) 

сабж :)

---

Anarki   (2003-11-09 21:11:00) [1]

Мне тож это интересно. У меня при подключении прога виснет и никуда не коннектится.
unit Main;

interface

uses
Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls,
SysUtils, Classes, IdComponent, IdTCPConnection, IdTCPClient, IdTime,
IdBaseComponent;

type
TfrmTimeDemo = class(TForm)
lblTimeServer: TLabel;
IdDemoTime: TIdTime;
edtTimeResult: TEdit;
Label1: TLabel;
btnGetTime: TButton;
cmboTimeServer: TComboBox;
procedure btnGetTimeClick(Sender: TObject);
private
public
end;

var
frmTimeDemo: TfrmTimeDemo;

implementation
{$R *.DFM}

// No real code required - all functionality built into component !
procedure TfrmTimeDemo.btnGetTimeClick(Sender: TObject);
begin
IdDemoTime.Host := cmboTimeServer.Text;
{ After setting Host, this is all you have to get the time from a time
server. We do the rest. }
edtTimeResult.Text := DateTimeToStr ( IdDemoTime.DateTime );
end;

end.

---

Наверх