我正在尝试从之前保存在 SQL 数据库中的图像 blob 加载图像控件。我已经测试了很多方法,但无法使其工作。图像 blob 保存为:
qry.SQL.Text := 'update tbl set pic = :blobVal where id = :idVal';
qry.Parameters.ParamByName('blobVal').LoadFromFile('c:\sample.jpg', ftBlob);
qry.Parameters.ParamByName('idVal').Value := 1;
有什么建议吗?
最佳答案
这里有很多关于将图像加载到数据库的步骤,但我没有找到带有更新或插入参数的步骤。
您可以简单地将图形对象分配给您的参数。 如果你想存储不同的图形类型,你应该添加一列 保留应存储哪种图形的信息(例如 jpeg、bmp、png)。 如果您想从数据库中检索图片,则能够创建所需的 TGraphic 类后代。
uses jpeg, pngimage;
type
TitTYPES=(itJPG,itPNG,itBMP);
procedure TDEMO.Button1Click(Sender: TObject);
var
jp:TJpegimage;
g:TGraphic;
begin
jp:=TJpegimage.Create;
try
ads.Close;
jp.LoadFromFile('C:\Bilder1\PIC.jpg');
ads.SQL.Text := 'Insert into IMGBlob (ID,Blob,typ) Values (:ID,:BLOB,:typ)';
ads.Parameters[0].Value := 1;
ads.Parameters[1].Assign(jp);
ads.Parameters[2].Value := itJPG;
ads.ExecSQL;
ads.SQL.Text := 'Select * from IMGBlob where ID=:ID';
ads.Parameters[0].Value := 1;
ads.Open;
try
case TitTYPES(ads.FieldByName('typ').AsInteger) of
itJPG: g:=TJpegimage.Create;
itPNG: g:=TPNGImage.Create;
itBMP: g:=TBitmap.Create;
end;
g.Assign(ads.FieldByName('Blob'));
Image1.Picture.Assign(g);
finally
g.Free;
end;
finally
jp.Free;
end;
end;
关于sql - Delphi加载图像保存为sql数据库中的blob,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26103437/