掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＮＴＰサーバにアクセスするには？ (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を返してきます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.