Delphi环境下存储至数据库前检查图片大小的方法问询

针对你遇到的这个问题——在把图片插入数据库前先校验大小，避免因为超出LONGVARBINARY字段的存储上限导致写入失败，这里有几个完全适配你当前代码逻辑的实用方案：

一、直接校验原文件大小（最简单高效的方式） #

如果你是直接将原图片文件的二进制数据存入数据库，直接获取文件字节大小和字段上限对比即可，这是最准确的方式，因为不会涉及格式转换带来的大小变化：

1. 获取选中文件的大小
   如果你用的是Delphi XE及以上版本，推荐用内置的TFile类来快速获取大小：

   uses System.IOUtils; // 引入TFile所在单元
   
   var
     FileSize: Int64;
   begin
     if OpenPictureDialog1.Execute then
     begin
       // 获取文件的字节大小
       FileSize := TFile.GetSize(OpenPictureDialog1.FileName);
       // 对比你的字段上限（484字节）
       if FileSize > 484 then
       begin
         ShowMessage('图片大小超过数据库字段限制（最大484字节），请选择更小的图片！');
         Exit;
       end;
       // 大小符合要求，执行插入操作
       dtm.cds.Insert;
       // 直接将原文件写入Blob字段（推荐此方式，避免格式转换）
       TBlobField(dtm.cds.FieldByName('你的图片字段名')).LoadFromFile(OpenPictureDialog1.FileName);
       dtm.cds.Post;
     end;
   end;
   

   要是你用的是较老版本的Delphi（不支持TFile），可以用传统文件操作函数：

   var
     FileHandle: Integer;
     FileSize: Integer;
   begin
     if OpenPictureDialog1.Execute then
     begin
       FileHandle := FileOpen(OpenPictureDialog1.FileName, fmOpenRead or fmShareDenyWrite);
       try
         FileSize := FileSeek(FileHandle, 0, 2); // 移动到文件末尾获取总大小
       finally
         FileClose(FileHandle);
       end;
       if FileSize > 484 then
       begin
         ShowMessage('图片大小超过限制，请更换更小的图片！');
         Exit;
       end;
       // 后续插入逻辑...
     end;
   end;
   

二、校验加载后图像的实际存储大小（若需先处理图像） #

如果你需要先把图片加载到Image1.Picture中做编辑（比如缩放、裁剪），再存入数据库，这时候原文件大小和实际要存储的二进制数据大小可能不一致（比如JPG加载后转成BMP存储会变大），这时候需要先将图像保存到流中再检查大小：

var
  ImageStream: TMemoryStream;
begin
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    // 创建内存流来暂存图像数据
    ImageStream := TMemoryStream.Create;
    try
      // 注意：如果需要指定存储格式（比如JPG），要对应调用格式保存方法
      // 示例：保存为JPG格式 -> Image1.Picture.Bitmap.SaveToStream(ImageStream, TJPEGImage);
      // 若直接用Picture默认格式存储，用下面的代码：
      Image1.Picture.SaveToStream(ImageStream);
      ImageStream.Position := 0; // 重置流指针到开头，方便后续读取大小
      if ImageStream.Size > 484 then
      begin
        ShowMessage('处理后的图片大小超过数据库字段限制，请调整图片尺寸或格式！');
        Exit;
      end;
      // 大小符合要求，写入数据库
      dtm.cds.Insert;
      TBlobField(dtm.cds.FieldByName('你的图片字段名')).LoadFromStream(ImageStream);
      dtm.cds.Post;
    finally
      ImageStream.Free; // 记得释放流资源
    end;
  end;
end;

额外注意事项 #

• 确认你的数据库LONGVARBINARY字段的单位是字节，部分数据库可能会用KB作为单位，如果是KB的话，判断值要改成484 * 1024。
• 尽量直接存储原文件的二进制数据，避免不必要的格式转换，这样既节省存储空间，也能保证大小校验的准确性。
• 如果用户上传的是JPG、PNG这类压缩格式图片，不要解压后存储，否则会大幅增加数据大小，更容易超出字段限制。

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