在 Delphi 10.1 中将图像加载到 SQL Server 数据库时出错

Question

我正在尝试使用不同的代码将图像加载到 SQL Server 数据库中。当我尝试插入表时，它显示一条错误消息

<块引用>

位图图像无效

但是当我尝试 SQL 插入时（jpeg 错误 #53）

delphi 10.1

/// 此代码显示错误“位图图像无效”

// 创建通过查询上传图片的程序

procedure TForm3.saveimagebyQ(picname: string); 无功 JP:TJPEG 图像； 开始 JP:= TJPEGImage.Create; JP.LoadFromFile(picname); 用 ADOQuery1 做 开始 Parameters.ParamByName('xcode').Value:=ADOTable1Code_P.Value; Parameters.ParamByName('xphoto').Assign(JP); 尝试 执行SQL; 最后 JP.免费； ADOTable1.Refresh; 结尾; 结尾; 结束;

//调用程序使用

过程 TForm3.Button13Click(Sender: TObject);

开始 如果 OpenPictureDialog1.Execute 那么 如果 OpenPictureDialog1.FileName <>'' then

 saveimagebyQ(OpenPictureDialog1.FileName);

结束;

/// 此代码显示错误“jpeg error#53”