如何使用TADOQuery Component Only将图像插入数据库

INSERT INTO your_table_name (column_name) VALUES (:image_data)

procedure TForm1.Button1Click(Sender: TObject);
var
  ImageStream: TMemoryStream;
begin
  // 创建一个TMemoryStream对象，用于存储图像数据
  ImageStream := TMemoryStream.Create;
  try
    // 将TImage控件中的图像保存到TMemoryStream对象中
    Image1.Picture.Bitmap.SaveToStream(ImageStream);

    // 将TMemoryStream对象中的图像数据绑定到TADOQuery组件的参数
    ADOQuery1.Parameters.ParamByName('image_data').LoadFromStream(ImageStream, ftBlob);

    // 执行SQL命令，将图像插入到数据库中
    ADOQuery1.ExecSQL;
  finally
    // 释放TMemoryStream对象
    ImageStream.Free;
  end;
end;