请问一下,下面的错误是什么问题??是关于图象保存的问题?

laodiao 2002-06-15 04:52:49
我在表A中定义了一个图象Image字段,

var
str:Tmemorystream;
/用来保存和显示图象
str:=Tmemorystream.Create;
str.LoadFromFile(DlgOpPic.FileName);
str.Position:=0;
//图片
Tblobfield(MaindataQry.FieldByName('zgzp')).loadfromstream(str);
maindataqry.post;
但是保存的时候提示下面的错误
BitMap image is not valid,还有下面的错误 Invalid BLob length
这样的错误,
在保存图象的时候,Image类型与Blod有什么区别,我现在太着急了,明天就要交版了,
请各位高手给予指点!!
...全文
22 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
yansea 2002-06-15
  • 打赏
  • 举报
回复
var
s : TMemoryStream;
begin
s := TMemoryStream.Create;
s.LoadFromFile('C:\temp.dwg');
s.Position := 0;
with ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('insert into drawdwg (tabno,filedwg) values (:no,:dwg)');
Parameters.ParamByName('no').Value := Edit1.Text;
Parameters.ParamByName('dwg').LoadFromStream(s,ftBlob);
Execsql;
end;
s.Free;
这是我保存cad图的一段代码,好使的。
字段是image的,但是在sql 7 之下,希望对你有帮助。
biggo 2002-06-15
  • 打赏
  • 举报
回复
你不必用Tmemorystream
直接Tblobfield(MaindataQry.FieldByName('zgzp')).LoadFromFile();

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧