Faild To Load Stream! |
|
缺席
|
|
TTS
初階會員   發表：72 回覆：66 積分：27 註冊：2003-05-06 發送簡訊給我 |
procedure TrpMedBag.wMedBagCalcFields(DataSet: TDataSet); function GetMessageValue(const sPriceCode, sMessageLevel: String): String;
var
bsContent: TBlobStream;
redTemp: TRichEdit;
begin
Result := '';
with dmPrice do
if ctblPriceMessage.Locate('PriceCode; MessageLevel',
VarArrayOf([sPriceCode, sMessageLevel]), []) then
begin
bsContent := TBlobStream.Create(ctblPriceMessageContents, bmRead);
redTemp := TRichEdit.Create(Self);
try
redTemp.Visible := False;
redTemp.WordWrap := False;
redTemp.Parent := Self;
redTemp.Lines.LoadFromStream(bsContent);
if redTemp.Lines.Count > 0 then
Result := redTemp.Lines[0];
finally
redTemp.Free;
bsContent.Free;
end;
end;
end; begin
wMedBagPtMessage.AsString := GetMessageValue(wMedBagPriceCode.AsString, '1');
wMedBagDisMessage.AsString := GetMessageValue(wMedBagPriceCode.AsString, '5')
end; ***************************
小弟在 TBlobStream.Create時用bmRead 但是當ctblPriceMessage 這個Table有新增時(指的是非同一時間產生的資料) 就會造成 Faild To Load Stream!(Blod Has been Modified)
但是當我把Table 刪除 然後重新匯入資料後 就不會出現錯誤 但是當table又新增幾筆時 就又會出現錯誤 請問有何方式可以解決呢?
|
|
malanlk
尊榮會員 發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
http://www.tek-tips.com/faqs.cfm?fid=3033 "Lock file has grown too large"
http://community.borland.com/article/0,1410,15256,00.html "Some current internal limits of BDE"
http://community.borland.com/article/0,1410,15159,00.html "Table is Full with Paradox Tables"
http://community.borland.com/article/0,1410,10318,00.html "BDE setup for Peer-To-Peer(Non-Dedicated) Networks"
http://community.borland.com/article/0,1410,15247,00.html
|
|
TTS
初階會員 發表：72 回覆：66 積分：27 註冊：2003-05-06 發送簡訊給我 |
發表時間：2005-10-11 14:14:30
IP:61.219.xxx.xxx 未訂閱
系統時間：2024-05-19 19:10:47
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |