線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1139
推到 Plurk!
推到 Facebook!

關於Indy及IdNTP元件的使用..

尚未結案
nothing
一般會員


發表:9
回覆:4
積分:2
註冊:2005-08-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-08-24 11:44:54 IP:211.78.xxx.xxx 未訂閱
我要寫個NTP 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; } 請問是否有解決方式!!
系統時間:2024-05-09 2:39:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!