我要寫個NTP(Network Time Protocol) client的程式,然而在k-top裡找到相關程式 參考(http://delphi.ktop.com.tw/topic.php?topic_id=53284) 網頁中說明要安裝 1.使用前請先將BCB6,Update到SP4 2.Indy 版本9.0.14 我安裝完成 程式也能run 但我要將我先前的程式整合在一起時,卻出了問題 問題如下: 如果我將 【Project】->【Option】->【packets】裡面的選項 ■Build with runtime packets 選取, 則我原先的程式無法執行,但從k-top抓下來的程式卻能執行 我想了一下,我猜因為我原先的程式是用靜態的連結 而抓了新的Indy 9.0.18卻要選取■Build with runtime packets才能執行 造成原先程式與NTP程式的互斥 我想的解決方法: 1. 能夠找到最正確安裝Indy的方法,在裝新的Indy元件,能在不選取Build with runtime packets情形下, 順利執行NTP程式不產生 [Link error]Fatal: Access violation. Link terminated. <目前不知如何解決,我安裝Indy的方法 http://delphi.ktop.com.tw/topic.php?topic_id=77164> 2.使用舊的IdSNT元件,但程式有一處一直為0 無法進入迴圈抓取時間 程式碼如下: void __fastcall TForm1::SyncDT() { SYSTEMTIME stCurrentTime; Word Year,Month,Day,Hour,Min,Sec,MSec; IdSNTP1->Host=SNTPServer; IdSNTP1->ReceiveTimeout=500; IdSNTP1->Active=true; TDateTime dtServer=IdSNTP1->DateTime; if(IdSNTP1->SyncTime()) //問題所在IdSNTP1->SyncTime()的得到的值為0 { DecodeDate(dtServer,Year,Month,Day); DecodeTime(dtServer,Hour,Min,Sec,MSec); stCurrentTime.wYear = Year; stCurrentTime.wMonth = Month; stCurrentTime.wDay = Day; stCurrentTime.wHour = Hour; stCurrentTime.wMinute = Min; stCurrentTime.wSecond = Sec; stCurrentTime.wMilliseconds = MSec; SetLocalTime(&stCurrentTime); ShowMessage ("The regulation of DateTime" DateTimeToStr(dtServer) " complete"); } else { ShowMessage("Can not connect to NTP Time Server " SNTPServer); } IdSNTP1->Active=false; } 請問是否有解決方式!!

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.