1. Delphi K.Top 討論區
  2. 資料庫程式設計討論區(C++Builder)
  3. Table連續寫入問題?
全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數：902
推到 Plurk!
推到 Facebook!

Table連續寫入問題?
缺席
kenbcb
中階會員


發表：171
回覆：129
積分：60
註冊：2003-07-15

發送簡訊給我
#1 引用回覆 回覆 發表時間：2004-12-09 13:28:15 IP:61.222.xxx.xxx 未訂閱
請問各位:    我在連續寫入時,,程式會hold請問這是那裡有錯呢?,,,若用定時方式一次加一筆,卻沒事.  
for(int i=0;iTableGPS->Append();
   Form1->TableGPS->FieldByName("Unit_id")->AsString = AnsiString((char*)GPSBuf.ID,Max_ID/2);
   Form1->TableGPS->FieldByName("DateTime")->AsDateTime = IncHour(StrToDateTime(DAY),8);
   Form1->TableGPS->FieldByName("WGS_LON")->AsFloat = StrToFloat(AnsiString(GPSBuf.WGS_LON,sizeof(GPSBuf.WGS_LON)))/100;
   Form1->TableGPS->FieldByName("WGS_LAT")->AsFloat = StrToFloat(AnsiString(GPSBuf.WGS_LAT,sizeof(GPSBuf.WGS_LAT)))/100;
   Form1->TableGPS->FieldByName("Heading")->AsInteger = StrToCurr(AnsiString(GPSBuf.Heading,sizeof(GPSBuf.Heading)));
   Form1->TableGPS->FieldByName("Speed")->AsFloat = StrToFloat(AnsiString(GPSBuf.Speed,sizeof(GPSBuf.Speed)))*1.853;
   Form1->TableGPS->FieldByName("Sat#")->AsInteger = (StrToIntDef(AnsiString(GPSBuf.Sat,sizeof(GPSBuf.Sat)),0) >= 9)?9:StrToIntDef(AnsiString(GPSBuf.Sat,sizeof(GPSBuf.Sat)),0);
   Form1->TableGPS->FieldByName("IO1")->AsString = AnsiString(GPSBuf.IO1);
   Form1->TableGPS->FieldByName("IO2")->AsString = AnsiString(GPSBuf.IO2);
   Form1->TableGPS->FieldByName("IO3")->AsString = AnsiString(GPSBuf.IO3);
   Form1->TableGPS->FieldByName("Data_type")->AsString = AnsiString(GPSBuf.Type);
   ptr = ptr   sizeof(Length)   Length   1;
}
allenchan
資深會員


發表：10
回覆：306
積分：283
註冊：2004-01-06

發送簡訊給我
#2 引用回覆 回覆 發表時間：2004-12-09 13:40:29 IP:203.70.xxx.xxx 未訂閱
試著在你的迴圈內加上 Application->ProcessMessages()，這樣你的 UI 才有機會回應訊息。 
for(int i=0;iTableGPS->Append();
   Form1->TableGPS->FieldByName("Unit_id")->AsString = AnsiString((char*)GPSBuf.ID,Max_ID/2);
   Form1->TableGPS->FieldByName("DateTime")->AsDateTime = IncHour(StrToDateTime(DAY),8);
   Form1->TableGPS->FieldByName("WGS_LON")->AsFloat = StrToFloat(AnsiString(GPSBuf.WGS_LON,sizeof(GPSBuf.WGS_LON)))/100;
   Form1->TableGPS->FieldByName("WGS_LAT")->AsFloat = StrToFloat(AnsiString(GPSBuf.WGS_LAT,sizeof(GPSBuf.WGS_LAT)))/100;
   Form1->TableGPS->FieldByName("Heading")->AsInteger = StrToCurr(AnsiString(GPSBuf.Heading,sizeof(GPSBuf.Heading)));
   Form1->TableGPS->FieldByName("Speed")->AsFloat = StrToFloat(AnsiString(GPSBuf.Speed,sizeof(GPSBuf.Speed)))*1.853;
   Form1->TableGPS->FieldByName("Sat#")->AsInteger = (StrToIntDef(AnsiString(GPSBuf.Sat,sizeof(GPSBuf.Sat)),0) >= 9)?9:StrToIntDef(AnsiString(GPSBuf.Sat,sizeof(GPSBuf.Sat)),0);
   Form1->TableGPS->FieldByName("IO1")->AsString = AnsiString(GPSBuf.IO1);
   Form1->TableGPS->FieldByName("IO2")->AsString = AnsiString(GPSBuf.IO2);
   Form1->TableGPS->FieldByName("IO3")->AsString = AnsiString(GPSBuf.IO3);
   Form1->TableGPS->FieldByName("Data_type")->AsString = AnsiString(GPSBuf.Type);
   ptr = ptr   sizeof(Length)   Length   1;
   Application->ProcessMessages();
}
kenbcb
中階會員


發表：171
回覆：129
積分：60
註冊：2003-07-15

發送簡訊給我
#3 引用回覆 回覆 發表時間：2004-12-09 13:48:18 IP:220.130.xxx.xxx 未訂閱
我試了一下,,,還是會hold住
allenchan
資深會員


發表：10
回覆：306
積分：283
註冊：2004-01-06

發送簡訊給我
#4 引用回覆 回覆 發表時間：2004-12-09 13:59:06 IP:203.70.xxx.xxx 未訂閱
您在 Main Thread 做很多筆資料的 Append，UI 難免會卡住，如果想要 UI 看不出來，您可能要多長一個 Thread，在背景做這件事。 http://delphi.ktop.com.tw/topic.php?topic_id=20135 http://delphi.ktop.com.tw/topic.php?topic_id=50765
kenbcb
中階會員


發表：171
回覆：129
積分：60
註冊：2003-07-15

發送簡訊給我
#5 引用回覆 回覆 發表時間：2004-12-09 14:34:48 IP:61.222.xxx.xxx 未訂閱
^^" 我有了thread 也是當掉,同樣cpu使用率100%,,,,單筆用thread也是沒事; 只要一用迴圈就陣亡了
 
for(int i=0;iDBBuffer.empty()) return;
   
   AnsiString DAY;
   vector::iterator Ptr = Form1->DBBuffer.begin();       DAY = AnsiString(Ptr->Date 4,2) "/" AnsiString(Ptr->Date 2,2) "/" AnsiString(Ptr->Date,2) " ";
   DAY  = AnsiString(Ptr->Time,2) ":" AnsiString(Ptr->Time 2,2) ":" AnsiString(Ptr->Time 4,2);       Form1->TableGPS->Append();
   Form1->TableGPS->FieldByName("Unit_id")->AsString = AnsiString((char*)Ptr->ID,Max_ID/2);
   Form1->TableGPS->FieldByName("DateTime")->AsDateTime = IncHour(StrToDateTime(DAY),8);
   Form1->TableGPS->FieldByName("WGS_LON")->AsFloat = StrToFloat(AnsiString(Ptr->WGS_LON,sizeof(Ptr->WGS_LON)))/100;
   Form1->TableGPS->FieldByName("WGS_LAT")->AsFloat = StrToFloat(AnsiString(Ptr->WGS_LAT,sizeof(Ptr->WGS_LAT)))/100;
   Form1->TableGPS->FieldByName("Heading")->AsInteger = StrToCurr(AnsiString(Ptr->Heading,sizeof(Ptr->Heading)));
   Form1->TableGPS->FieldByName("Speed")->AsFloat = StrToFloat(AnsiString(Ptr->Speed,sizeof(Ptr->Speed)))*1.853;
   Form1->TableGPS->FieldByName("Sat#")->AsInteger = (StrToIntDef(AnsiString(Ptr->Sat,sizeof(Ptr->Sat)),0) >= 9)?9:StrToIntDef(AnsiString(Ptr->Sat,sizeof(Ptr->Sat)),0);
   Form1->TableGPS->FieldByName("IO1")->AsString = (AnsiString)Ptr->IO1;
   Form1->TableGPS->FieldByName("IO2")->AsString = (AnsiString)Ptr->IO2;
   Form1->TableGPS->FieldByName("IO3")->AsString = (AnsiString)Ptr->IO3;
   Form1->TableGPS->FieldByName("Data_type")->AsString = (AnsiString)Ptr->Type;
   Form1->DBBuffer.erase(Ptr);
}
//---------------------------------------------------------------------------
系統時間：2024-04-29 12:47:57
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！
5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |