如何通过delphi将图片以jpg格式存入access,因为bitmap太大了

Question

需要修改BDE的设置，缺省只有32k。打开BDE Administrator，将相应的BDE Alias的Blob Size改为足够大。

Answer 1

人家是用access，肯定用ado的。
uses Jpegprocedure SaveBitmapToDb(const FileName: string);
var
  Bitmap: TBitmap;
  JpegImage: TJpegImage;
  MS: TMemoryStream;
begin
  Bitmap := TBitmap.Create;
  JpegImage := TJpegImage.Create;
  MS := TMemoryStream.Create;
  try
    Bitmap.LoadFromFile(FileName);
    JpegImage.Assign(Bitmap);
    JpegImage.SaveToStream(MS);
    AdoTable1.Append;
    TBlobField(AdoTable1.FieldByName('Picture')).LoadFromStream(MS);
    AdoTable1.Post;
  finally
    Bitmap.Free;
    JpegImage.Free;
    MS.Free;
  end;
end;

Answer 2

是可以用。但是用Access可不能打开啊。我过去遇到到这个问题。现在也没能解决，请问大家有什么好办法吗？

Answer 3

taxi(小强！小强！你死的好惨啊！) 
 的方法很好用，我找到了一个可以显示jpeg图片的dbimage控件，如果使用的数据流是tadoblodstream，access就可以打开了