版主大大: 你在'如何讓用戶端時間與伺務器的時間同步' 的問題回答中有使用 UTCSTringToDateTime, 為何我complier 會出現未定義,要如何才可以 使用呢?

引言: 版主大大: 你在'如何讓用戶端時間與伺務器的時間同步' 的問題回答中有使用 UTCSTringToDateTime, 為何我complier 會出現未定義,要如何才可以 使用呢?

david215 你好 看了一下該篇討論內容,其中有一行,應該就是問題的所在,只要加上 uses idGlobal, idDayTime, IdTime;

引言: david215 你好 看了一下該篇討論內容,其中有一行,應該就是問題的所在,只要加上 uses idGlobal, idDayTime, IdTime;

Chance36 版主 : 我查過 idGlobal, idDayTime, IdTime 與 indy 底下都沒有函式名稱叫做 UTCSTringToDateTime ... 所以我在想是不是自己要實做這個函式?? 字面上來看是 UTC 格式的 String 轉成 DateTime 格式,如果是的話應該不難做.. ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----

版主: 我跟SouthWind 一樣,找不到函式,我使用Delphi 6&Indy 9 跟你的有一樣嗎?

引言: 版主: 我跟SouthWind 一樣,找不到函式,我使用Delphi 6&Indy 9 跟你的有一樣嗎?

我的是 Delphi 7 內附 indy ... 我猜如果不是 indy 版本的問題,就是該函式是要自己實作 (或原作沒有貼出來) 如果真的沒有,就看那段 code 的函意,自己實作一段補上就可以了.. ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----

david215,  SouthWind 兩位好    嚇我一跳!,竟然找不到UTCStringToDateTime函式,以該篇討論內容明確標出要uses 什麼單元,我想應該只要uses些單元就可以了,誰知.... 我把INDY所提供的所有單元檔,全部搜尋一遍,真的就是找不到UTCStringToDateTime函式,這可糟了,或許真要如SouthWind兄所說自已實作了, 首先找出idDayTime.DayTimeStr到底存在著什麼內容?結果是 '53133 04-05-08 16:17:45 50 0 0 473.7 UTC(NIST) *',用眼睛看是可以瞭解,這是格林威治時間,只要加上時區的時差(台灣是+8(TimeZoneBias)),問題是上述資料格式除了日期及時間部份之外,前面53133及後面一堆數字所代表的意義為何?這部份格式的定義，麻煩有研究的朋友，可以提供嗎?如果不管那部份的資料,則只要粹取出日期時間轉成TDataTime格式之後再加上時差就是目前時間啦!。

Function UTCStringToDateTime(DayTimeString : String) : TDataTime ;
Var
  i:Integer ;
Begin
  i := Pos(' ',DayTimeString );
  If i > 0 Then 
    Result := StrToDateTime(Copy(DayTimeString ,i 1,17),'yy-mm-dd hh:mm:ss') TimeZoneBias;
  Else
    Result := StrToDateTime(Copy(DayTimeString ,1,17),'yy-mm-dd hh:mm:ss') TimeZoneBias;
End;

發表人 - chance36 於 2004/05/09 00:48:24