procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if not Treeview1.Selected.HasChildren then
begin
with informationSQLQuery do
begin
SQL.Clear;
Active:=false;
SQL.Add('select * from information where id='''+inttostr(Treeview1.Selected.StateIndex)+'''');
Active:=true;
try
loadtemp := TMemoryStream.Create;
TBlobField(FieldByName('Message')).SaveToStream(loadtemp);
loadtemp.Position := 0;
RichEdit1.Lines.LoadFromStream(loadtemp);
Active:=false;
finally
loadtemp.Free;
end;
end;
end;
end;上面为程序的片断,目的:当TreeView改变时,将相应的数据库内容读到Richedit中。操作:我不停的点击TreeView的节点来测试读出内容是否有错!错误码提示:当不停的点击来改变节点时出现"'0x00401d49'指令引用的'0x0115e080'内存。该内存不能为'written'."请问是否不停点击时stream还没load完就有下一次的load所引发的错误????
请问如何解决以及出现"'0x00401d49'指令引用的'0x0115e080'内存。该内存不能为'XXXXXXXXX'等情况如何处理???????多谢!!
再次多谢!!!
begin
if not Treeview1.Selected.HasChildren then
begin
with informationSQLQuery do
begin
SQL.Clear;
Active:=false;
SQL.Add('select * from information where id='''+inttostr(Treeview1.Selected.StateIndex)+'''');
Active:=true;
try
loadtemp := TMemoryStream.Create;
TBlobField(FieldByName('Message')).SaveToStream(loadtemp);
loadtemp.Position := 0;
RichEdit1.Lines.LoadFromStream(loadtemp);
Active:=false;
finally
loadtemp.Free;
end;
end;
end;
end;上面为程序的片断,目的:当TreeView改变时,将相应的数据库内容读到Richedit中。操作:我不停的点击TreeView的节点来测试读出内容是否有错!错误码提示:当不停的点击来改变节点时出现"'0x00401d49'指令引用的'0x0115e080'内存。该内存不能为'written'."请问是否不停点击时stream还没load完就有下一次的load所引发的错误????
请问如何解决以及出现"'0x00401d49'指令引用的'0x0115e080'内存。该内存不能为'XXXXXXXXX'等情况如何处理???????多谢!!
再次多谢!!!
解决方案 »
- 求救!varbinary类型!
- 用adoquery.edit时提示更新影响到过多的行。。。晕,何解
- 高分相送,预警提示的问题.
- 编程,怎能支持少数名组语言
- ACTIVEXFORM发布疑问?
- 讨论报表控件大杂脆!各位FastReport有何不足之处!对于其子表的操作功能是否强大!相比之下还有没有其它更好的报表控件?
- 谁知道如何把按钮的点击事件放到敲回车键上呀
- 用以下代码可以成功获取IE窗口选中区域的html代码,但到傲游浏览器中却不行,请赐教
- 我刚刚学delphi,请大家多多指教,回答对拉马上给分。
- 想编一个类似于COMBOBOX的控件
- 有关WORD文件的打开,,,
- 一个集中了Singleton、Observer和Wrapper模式的Delphi例子,请见: http://www.pengye.com.cn:8080/Psforum/AnswerQuestion.asp?Id=2084&r
你取一下一次的时间,然后SLEEP一下,应该不会这样了!