var
  MyJPEG : TJPEGImage;
  MS: TMemoryStream;
begin
  MS:=TMemoryStream.Create;
  MyJPEG:=TJPEGImage.Create;
  ADOQuery1.Requery;
  try
    TBlobField(ADOQuery1.FieldByName('image')).SaveToStream(MS);
    MS.Position:=0;
    MyJPEG.LoadFromStream(MS);
    Image2.Picture.Bitmap.Assign(MyJPEG);
  finally
    MS.Free;
    MyJPEG.Free;
  end;
end;

解决方案 »

  1.   

    var
      MyJPEG : TJPEGImage;
      MS: TMemoryStream;
    begin
      MS:=TMemoryStream.Create;
      MyJPEG:=TJPEGImage.Create;
      ADOQuery1.Requery;
      try
        TBlobField(ADOQuery1.FieldByName('image')).SaveToStream(MS);
        MS.Position:=0;
        MyJPEG.LoadFromStream(MS);
        Image2.Picture.Assign(MyJPEG);
      finally
        MS.Free;
        MyJPEG.Free;
      end;
    end;