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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |