Скачать: CL | DM;

Как с помощью TIdTime и TIdSNTP синхронизировать время?   Найти похожие ветки 

← →
Kinder   (2003-11-09 00:38) [0]

сабж :)

---

← →
Anarki   (2003-11-09 21:11) [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.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c