错误提示:"jpeg error #52",在读取图片中出现的,为什么? 错误提示:"jpeg error #52",在读取图片中出现的,为什么?读取的是accecc中存的jpge格式的图片 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这个错误好像是所存的图片不是jpeg格式的 或者是文件损坏了 中间用Sream中转?LoadFromStream前Stream.Position:=0不可少 procedure TForm1.Button2Click(Sender: TObject);var tempstream:TStringStream; tempjpeg:TJPEGImage;begin try tempstream:=TStringStream.Create(' '); TBlobField(adotable1.FieldByName('pi')).SaveToStream(tempstream); tempstream.Position:=0; tempjpeg:=TJPEGImage.Create; tempjpeg.LoadFromStream(tempstream); DBImage1.Picture.Bitmap.Assign(tempjpeg); finally tempstream.Free; tempjpeg.Free; end;end; 我存的就是jpeg格式的图片,用了几种方法都出错 先看一下文件是否是JPEG格式的,如果是,在用TStream时,先设置Position := 0; 有关delphi5图表DBChart控件错误 小妹急用,请大家帮忙写个关于文件操作的小程序,谢谢! 请问如何获取滚动条所在的位置? "09C6"是什么编码?如何转换成"2502"??? 讨论Delphi中得Com组件 怎样去掉delphi中form的图标(不是更换) 模仿IE的地址输入框 诚心请教modem编程问题,声音文件怎样传? 控制avi的播放速度? 有关于处理form, unit ,project的小问题烦劳各位,请好人关注!!!!! 大家讨论一个关于一个医疗系统的数据库及程序一些问题 对,像快乐王子所说,绿三角变红啦,散分
Stream.Position:=0
不可少
var tempstream:TStringStream;
tempjpeg:TJPEGImage;
begin
try
tempstream:=TStringStream.Create(' ');
TBlobField(adotable1.FieldByName('pi')).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
DBImage1.Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;
end;