MS-SQL Server
如何把图像数据存到Image字段中
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区如何把图像数据存到Image字段中
我用Delphip写了以下代码来存取图像
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Image :String;
begin
IF OpenDialog1.Execute THEN
BEGIN
Image:=OpenDialog1.FileName;
Label1.Caption:=Image;
ImageName:=Image;
Image1.Picture.LoadFromFile(Image); /////////取数据
END
else
ImageName:='';
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Image1.Picture.Graphic<>nil then
begin
Table1.Active:=true;
table1.Insert;
////////////////////////////////////////
table1.fieldbyname('ImageName').asstring:='bmp1';
Table1.Fields[1].Assign(Image1.Picture.Graphic); //////存数数。
table1.post;
Table1.Close;
/////////////////////////////////////
可以运行，提交数据的时候出现以下例外错误提示：
**************************************************************
================ Invalid BLOB length ==================
***************************************************************
请高手出手相助！
我用Delphip写了以下代码来存取图像
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Image :String;
begin
IF OpenDialog1.Execute THEN
BEGIN
Image:=OpenDialog1.FileName;
Label1.Caption:=Image;
ImageName:=Image;
Image1.Picture.LoadFromFile(Image); /////////取数据
END
else
ImageName:='';
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Image1.Picture.Graphic<>nil then
begin
Table1.Active:=true;
table1.Insert;
////////////////////////////////////////
table1.fieldbyname('ImageName').asstring:='bmp1';
Table1.Fields[1].Assign(Image1.Picture.Graphic); //////存数数。
table1.post;
Table1.Close;
/////////////////////////////////////
可以运行，提交数据的时候出现以下例外错误提示：
**************************************************************
================ Invalid BLOB length ==================
***************************************************************
请高手出手相助！
...全文
