ＮＴＰサーバにアクセスするには？ (ID:7014)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 どうしてもサーバから時刻が取れません。 以下のようなソースを書いています。 procedure TForm1.Timer1Timer(Sender: TObject); var SDT: String; begin //PCの現在の時刻を表示 Label2.Caption := DateToStr(Date); Label4.Caption := TimeToStr(Time); IdSNTP1.Host := 'clock.nc.fukuoka-u.ac.jp'; IdSNTP1.Port := 123; IdSNTP1.Active := True; Label6.Caption := DateTimeToStr(IdSNTP1.DateTime); IdSNTP1.Active := False; if IdSNTP1.SyncTime then ShowMessage('TRUE') else ShowMessage('FALSE'); IdSNTP1.free; end; サーバから取得される日は1899/12/30になっています。 SyncTimeもFALSEを返してきます。