数据库存储图片技术问询：格式转换、BLOB存储及方案对比

我的程序管理“条目”（可理解为庄园），每个条目关联0到多张图片。此前图片存储在数据库外，数据库中条目通过文件名和路径指向图片，图片存于专用文件夹树。现需将图片移入数据库，需处理的图片类型包括：jpeg（最常见，最大4Mb）、bmp（同样常见且体积较大）、png、emf、wmf、gif（仅静态，少见但存在）。

当前流程：当文件与条目关联时，仅在Images数据库表中创建条目，不对图片做其他操作；用户查看条目时，通过ShellBrowser访问文件并生成96×96缩略图位图展示。

我的计划：在Images表中新增两个BLOB字段Full Image和Thumbnail，分别存储完整图片和缩略图（均为位图）。

以下是具体问题：

问题1：以下代码片段是否能将上述6种文件类型转换为完整图片位图？ #

uses 
  Graphics, Jpeg, pngimage, GIFImg; 

procedure TForm1.Button1Click (Sender: TObject); 
var 
  Picture: TPicture; 
  Bitmap: TBitmap; 
begin 
  Picture := TPicture.Create; 
  try 
    Picture.LoadFromFile('C:\imagedata.dat'); 
    Bitmap := TBitmap.Create; 
    try 
      Bitmap.Width := Picture.Width; 
      Bitmap.Height := Picture.Height; 
      Bitmap.Canvas.Draw(0, 0, Picture.Graphic); 
      Bitmap.SaveToFile('C:\test.bmp'); 
    finally 
      Bitmap.Free; 
    end; 
  finally 
    Picture.Free; 
  end; 
end; 

回答 #

这段代码可以处理你列出的6种图片格式，但需注意几个细节：

• TPicture原生支持WMF/EMF格式（无需额外引用单元），配合你已添加的Jpeg、pngimage、GIFImg单元，能正常加载所有6种格式。
• 代码通过将图片绘制到TBitmap实现格式转换，但如果是带透明通道的PNG/GIF，直接用Canvas.Draw会丢失透明信息——若需要保留透明，需将TBitmap的PixelFormat设置为pf32bit并开启AlphaFormat。
• EMF/WMF是矢量图，转成位图后会变为点阵图，失去矢量缩放特性，但符合你“存储为位图”的需求。

问题2：如何使用TStream或TMemoryStream将位图存入BLOB字段？二者的优缺点是什么？请提供代码示例。 #

核心说明 #

• TStream是抽象基类，不能直接实例化，实际开发中使用它的具体子类（比如TMemoryStream、TFileStream）。
• TMemoryStream是最常用的实现：它在内存中存储数据，操作速度快，无需磁盘临时文件；缺点是处理大尺寸位图时，会占用较多内存（比如4MB的JPEG转成BMP后可能达到几十MB）。

代码示例（以Delphi ADO组件为例） #

1. 位图转内存流并写入BLOB字段

uses
  Graphics, ADODB, DB;

procedure SaveBitmapToBlob(const ABitmap: TBitmap; ADataSet: TDataSet; const BlobFieldName: string);
var
  MemStream: TMemoryStream;
  BlobField: TBlobField;
begin
  MemStream := TMemoryStream.Create;
  try
    // 将位图存入内存流
    ABitmap.SaveToStream(MemStream);
    MemStream.Position := 0; // 重置流指针到起始位置

    // 写入BLOB字段
    ADataSet.Edit;
    BlobField := TBlobField(ADataSet.FieldByName(BlobFieldName));
    BlobField.LoadFromStream(MemStream);
    ADataSet.Post;
  finally
    MemStream.Free;
  end;
end;

2. 从BLOB字段读取位图

procedure LoadBitmapFromBlob(ABitmap: TBitmap; ADataSet: TDataSet; const BlobFieldName: string);
var
  MemStream: TMemoryStream;
  BlobField: TBlobField;
begin
  MemStream := TMemoryStream.Create;
  try
    BlobField := TBlobField(ADataSet.FieldByName(BlobFieldName));
    BlobField.SaveToStream(MemStream);
    MemStream.Position := 0;

    ABitmap.LoadFromStream(MemStream);
  finally
    MemStream.Free;
  end;
end;

问题3：我认为将原始文件存入BLOB字段占用空间更少，但在屏幕上展示难度更高，对此您有什么看法？ #

回答 #

你的空间判断正确，但“展示难度更高”是误区，实际更推荐存储原始图片格式的BLOB，原因如下：

1. 空间占用差异极大：BMP是无压缩格式，一张4MB的JPEG转成BMP后体积可能飙升至20-30MB，会导致数据库快速膨胀，备份、迁移成本大幅增加；而存储原始压缩格式（JPEG/PNG）或矢量格式（EMF/WMF），能保留原文件的体积优势。
2. 展示难度并未提升：Delphi的TPicture组件可以直接从流加载原始格式图片，无需额外转换。比如从BLOB读取原始图片流后，只需调用TPicture.LoadFromStream，就能直接用于展示或生成缩略图，流程和你之前处理外部文件几乎一致。
3. 灵活性更强：存储原始格式能保留图片的原始特性（比如PNG的透明通道、EMF的矢量缩放），而转成BMP后会丢失这些特性。

如果你的核心需求是“在界面展示缩略图+提供完整图片查看”，更合理的方案是：

• Full Image字段存储原始格式的BLOB（节省空间）
• Thumbnail字段存储预生成的96×96缩略图（位图或压缩格式均可）

这样既控制了数据库体积，又能快速加载缩略图，完整图片的展示也无需额外复杂处理。

内容的提问来源于stack exchange，提问作者Plomong