求助:提示: JPEG ERROR #41 怎么解?
Delphi6.0+Access2000;
Bmp-> Image-> Jpg(转存到指定位置,路径连带文件名存在数据库中,重新加载该.jpg文件时)提示:JPEG ERROR #41 ;
请大哥大姐帮忙解一下。
[解决办法]
jpeg:=tjpegimage.Create;
stream :=TMemoryStream.Create;
tblobfield(adoquery1.FieldByName( 'jpg ')).savetostream(stream);
Stream.Seek(0,soFromBeginning);
jpeg.loadfromstream(stream);
image.Picture.Bitmap.Assign(jpeg);
jpeg.Free;
stream.Free;