如何用Delphi FireDAC通过TBytes动态字节数组更新MySQL Blob字段

你可以直接利用FireDAC的TFDParam提供的AsBytes属性，或者SetData方法，无需将TBytes转换为字符串就能完成赋值。以下是具体实现方案：

核心解决方案 #

1. 使用AsBytes属性（推荐）
   AsBytes是TFDParam专为字节数组设计的属性，可直接接收TBytes类型数据，内部会正确处理Blob数据的传递，避免字符串转换带来的开销和编码问题。

2. 使用SetData方法
   若需要更底层的操作，可通过SetData方法传入字节数组的指针和长度，同样无需转换字符串。

修正后的完整代码 #

procedure TForm1.Button1Click(Sender: TObject);
var
  SettingsQuery : TFDQuery;
  DBConnection : TFDConnection;
  Data : TBytes;
begin
  SetLength(Data, 512);
  // 此处可填充字节数组内容，例如：Data[0] := $01; Data[1] := $02;

  DBConnection := TFDConnection.Create(nil);
  DBConnection.ConnectionDefName := 'MySQL';

  SettingsQuery := TFDQuery.Create(nil);
  SettingsQuery.Connection := DBConnection;

  try
    DBConnection.Connected := true;

    SettingsQuery.SQL.Text := 'UPDATE settings SET Data=:data WHERE ID=1;';

    // 方式1：直接用AsBytes赋值TBytes
    SettingsQuery.Params[0].AsBytes := Data;

    // 方式2：使用SetData方法（效果等同）
    // SettingsQuery.Params[0].SetData(@Data[0], Length(Data));

    SettingsQuery.ExecSQL;
  finally
    FreeAndNil(SettingsQuery);
    FreeAndNil(DBConnection);
  end;
end;

补充说明 #

• 无需手动设置DataType := ftBlob，FireDAC会根据赋值的参数类型自动推断Blob类型；若需要明确约束参数类型，保留该行代码也不会有问题。
• 之前通过AnsiString转换的方式虽能运行，但当字节数组包含非ASCII范围的数值时，可能因编码转换导致数据损坏，直接使用AsBytes或SetData是更安全高效的选择。

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