使用ADOQuery组件在SQL Server表(varbinary(max)列)存储文件

问题根源分析 #

1. 冗余的Base64编码：SQL Server的varbinary(max)字段可直接存储二进制文件内容，无需转Base64，转码反而会增加存储体积和处理开销。
2. 流位置未重置：TNetEncoding.Base64.Encode执行后，Output流的Position停在末尾，直接调用toString无法读取有效内容。
3. 错误的参数赋值方式：ADO参数不适合用Value直接赋值流内容，应使用专门的流加载方法。

修正后的代码 #

var
  FileStream: TFileStream;
  FName: TFileName;
begin
  // 省略其他业务逻辑...

  FileStream := TFileStream.Create(FName, fmOpenRead or fmShareDenyWrite);
  try
    with ADOQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO MyDatabase.dbo.MyFilesTable (EXTENSION, FILEBIN)');
      SQL.Add('VALUES (:wextension, :wfilebin)');
      
      // 设置文件扩展名参数
      Parameters.ParamByName('wextension').Value := TPath.GetExtension(FName);
      
      // 直接将二进制流加载到参数
      Parameters.ParamByName('wfilebin').LoadFromStream(FileStream, ftBlob);
      
      ExecSQL;
    end;
  finally
    FileStream.Free;
  end;
end;

关键说明 #

• 移除Base64编码：直接使用原文件的二进制流存入varbinary(max)字段，减少不必要的编码解码操作。
• 安全管理流资源：用try...finally确保流对象被正确释放，避免内存泄漏。
• 使用LoadFromStream方法：这是ADO参数专为二进制流设计的赋值方式，完美支持TStream类型，能准确将流内容写入数据库字段。
• 添加文件共享锁：打开文件时使用fmShareDenyWrite，避免文件被其他进程占用导致读取失败。

特殊场景处理（若需Base64编码） #

如果业务要求必须存储Base64编码后的内容，需修改以下两点：

1. 数据库对应字段改为varchar(max)类型
2. 调整流处理逻辑：

var
  Input, Output: TMemoryStream;
  FName: TFileName;
begin
  Input := TFileStream.Create(FName, fmOpenRead or fmShareDenyWrite);
  Output := TMemoryStream.Create;
  try
    TNetEncoding.Base64.Encode(Input, Output);
    Output.Position := 0; // 重置流位置到开头
    
    with ADOQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO MyDatabase.dbo.MyFilesTable (EXTENSION, FILEBIN)');
      SQL.Add('VALUES (:wextension, :wfilebin)');
      
      Parameters.ParamByName('wextension').Value := TPath.GetExtension(FName);
      Parameters.ParamByName('wfilebin').LoadFromStream(Output, ftString);
      
      ExecSQL;
    end;
  finally
    Input.Free;
    Output.Free;
  end;
end;

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