access数据库存、取图片问题（渴望高手解决问题）

Question

图片保存
var jstream:tmemorystream;
    bmp:tbitmap;
    jpeg:tjpegimage;
begin
 if opendialog1.Execute then
  try
    jstream:=tmemorystream.create;
    bmp:=tbitmap.Create;
    jpeg:=tjpegimage.Create;
    if extractfileext(opendialog1.FileName)='.bmp' then
    begin
      bmp.LoadFromFile(opendialog1.FileName);
      jpeg.Compress;
      jpeg.Assign(bmp);
    end
    else if extractfileext(opendialog1.FileName)='.jpg' then
    begin
      jpeg.LoadFromFile(opendialog1.FileName);
    end;
    jpeg.SaveToStream(jstream);
    adotable3.FieldValues['相片'];
    tblobfield(adotable3.FieldByName('相片')).LoadFromStream(jstream);
   finally
     bmp.Free;
     jpeg.Free;
     jstream.Free;
  end;
  adotable3.Post;
end;图片显示：var tempstream:TStringStream;
   tempjpeg:TJPEGImage; 
begin
   try
        tempstream:=TStringStream.Create(' ');     
        TBlobField(adotable3.FieldByName('相片')).SaveToStream(tempstream);
        tempstream.Position:=0;
        tempjpeg:=TJPEGImage.Create;
        tempjpeg.LoadFromStream(tempstream);
        Image1.Picture.Bitmap.Assign(tempjpeg);
  finally
        tempstream.Free;
        tempjpeg.Free;
  end;
end;在保存图片代码中不会出现问题，在显示图片代码中出错：'jpeg error #52'

Answer 1

你把
var tempstream:TStringStream;
改为：
var tempstream:TMemoryStream;把
tempstream:=TStringStream.Create(' ');
改为
tempstream:=TMemoryStream.Create;试试！