cb025 「NMTime でタイムサーバから時刻取得」（04/11/14 Sun）

タイムサーバから正確な時刻を取得します。

使用コンポーネントは「NMTime」です。コンポーネントタブの「FastNet」にあります。

ただ、このコンポーネントが使用するのは、RFC 868規格。

これに沿ったタイムサーバを探しましょう。

☆タイムサーバから時刻取得☆

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString strTs;
NMTime1->Host = "siiba.cc.miyazaki-u.ac.jp";
NMTime1->Port = 37;
NMTime1->TimeOut = 3000;
strTs = NMTime1->TimeStr;
Memo1->Text = strTs;
}

文字列用意してー　ホストを設定。ポートはデフォルトが37番（RFC868で決まってる）だから

別に書かなくても良いと思う。タイムアウトは一応（短気なんで3秒）。

で、TimeStrで文字列として時刻取得。

TimeIntで数値（結構でかいのでIntじゃマズイ？）取得。

そんだけです。たぶん規格にあったタイムサーバ探すのが難しいだけかと。

↑のソースを実行すると、GMT（グリニッジ標準時刻）が得られるので、

JST（日本標準時刻）にするには、9時間足す。