jpeg error #53

lmgt 2003-12-17 03:12:40
使用stream流把图片存在了数据库中,可是怎么取出来显示在image或...控件上呢??
以下代码出现上述jpeg error #53错误


var
JPG:TJPEGImage;
MS:TMemoryStream;
begin
JPG:=TJPEGImage.Create ;
MS:=TMemoryStream.Create ;
TBlobField(ADOTable1.FieldByName('zp')).SaveToStream(ms);
ms.Position :=0;
JPG.LoadFromStream(ms);
IMage1.Picture.Assign(JPG);
Form2.Image1.Picture.Assign(JPG);
end;
...全文
316 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lmzluzi 2003-12-17
  • 打赏
  • 举报
回复
检查一下
数据库中的数据类型

access库为ole对象
sqlserver库为image
slider 2003-12-17
  • 打赏
  • 举报
回复
Var
Ms:TStringStream;
Jpg:TJpegImage;
begin
Ms:=TstringStream.Create('');
Jpg:=TJpegImage.Create;
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select zp from imageTable');
try
open;
if not Eof then
begin
TBlobField(ADOQuery1.FieldByName('zp')).SaveToStream(Ms);
end;
except
end;
end;
Jpg.LoadFromStream(Ms);
Ms.Position :=0;
Jpg.LoadFromStream(Ms);
Image1.Picture.Assign(Jpg);
end;
除非你数据库里没数据或者数据不是图片格式

5,388

社区成员

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

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