Delphi。fdquery append图片流到数据库

在 Delphi 中使用 FireDAC 的 TFDQuery 组件将图片流追加到数据库中，可以按照如下步骤进行：

1. 创建数据表：创建一个包含 BLOB 类型字段的数据表，用于存储图片数据。

2. 将图片数据转换成字节数组：使用 TMemoryStream 组件将图片数据转换成字节数组。例如：

var
  ImageStream: TMemoryStream;
  ImageBytes: TBytes;
begin
  ImageStream := TMemoryStream.Create;
  try
    ImageStream.LoadFromFile('image.jpg');
    SetLength(ImageBytes, ImageStream.Size);
    ImageStream.Position := 0;
    ImageStream.ReadBuffer(ImageBytes[0], ImageStream.Size);
  finally
    ImageStream.Free;
  end;
end;

3. 将字节数组追加到数据库中：使用 TFDQuery 组件执行 INSERT 语句将字节数组追加到数据库中。例如：

var
  Query: TFDQuery;
begin
  Query := TFDQuery.Create(nil);
  try
    Query.Connection := FDConnection1;
    Query.SQL.Text := 'INSERT INTO mytable (image_data) VALUES (:image_data)';
    Query.Params[0].DataType := ftBlob;
    Query.Params[0].SetBlobData(@ImageBytes[0], Length(ImageBytes));
    Query.ExecSQL;
  finally
    Query.Free;
  end;
end;

4. 读取图片数据：使用 TFDQuery 组件执行 SELECT 语句读取图片数据。例如：

var
  Query: TFDQuery;
  ImageStream: TMemoryStream;
  ImageBytes: TBytes;
begin
  Query := TFDQuery.Create(nil);
  try
    Query.Connection := FDConnection1;
    Query.SQL.Text := 'SELECT image_data FROM mytable WHERE id = :id';
    Query.Params[0].AsInteger := 1;
    Query.Open;
    if not Query.IsEmpty then
    begin
      ImageBytes := Query.Fields[0].AsBytes;
      ImageStream := TMemoryStream.Create;
      try
        ImageStream.WriteBuffer(ImageBytes[0], Length(ImageBytes));
        ImageStream.Position := 0;
        // 显示图片
        Image1.Picture.Bitmap.LoadFromStream(ImageStream);
      finally
        ImageStream.Free;
      end;
    end;
  finally
    Query.Free;
  end;
end;

以上就是使用 FireDAC 的 TFDQuery 组件将图片流追加到数据库中的基本步骤，具体实现可以根据实际需求进行调整和优化。