我又遇到一个图形图像的问题，请指教！(100)

我在一个上下浏览按钮中写了代码，这个代码是“上一条”按钮，我想在上下移动时，把每条记录的图片显示出来，但是却出现 “jpeg error #42”错误，请问是什么错误？代码如下：procedure Tbysllform.Button4Click(Sender: TObject);var myjpeg2:tjpegimage; ms2:tmemorystream;begin if not dmunit.adobys.Bof then dmunit.adobys.Prior; if not dmunit.adobys.Active then dmunit.adobys.Open; myjpeg2:=tjpegimage.Create ; ms2:=tmemorystream.Create ; tblobfield(dmunit.adobys.fields[29]).savetostream(ms2); ms2.Position:=0; myjpeg2.LoadFromStream(ms2); image1.Picture.Assign(myjpeg2); myjpeg2.Free; ms2.Free;end;

可能是图片文件损坏了.ms2.Position:=0;下面加个判断 if ms2.Size > 500 thenbegin myjpeg2.LoadFromStream(ms2); image1.Picture.Assign(myjpeg2);end;

判断下图像数据是不是为空if dmunit.adobys.fields[29.IsNull thenbegin myjpeg2:=tjpegimage.Create ; ms2:=tmemorystream.Create ; tblobfield(dmunit.adobys.fields[29]).savetostream(ms2); ms2.Position:=0; myjpeg2.LoadFromStream(ms2); image1.Picture.Assign(myjpeg2); myjpeg2.Free; ms2.Free;end;或者 myjpeg2:=tjpegimage.Create ; ms2:=tmemorystream.Create ; tblobfield(dmunit.adobys.fields[29]).savetostream(ms2); ms2.Position:=0; myjpeg2.LoadFromStream(ms2); if not mjpeg2.Empty then image1.Picture.Assign(myjpeg2); myjpeg2.Free; ms2.Free;

问题已经解决，谢谢两位的代码，太好了！怎么联系啊，以后有问题多和老师交流交流！