从数据库里读取图片并显示

最新推荐文章于 2025-08-25 13:13:29 发布

原创最新推荐文章于 2025-08-25 13:13:29 发布 · 置顶 · 5.7k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #图像 #BLob

Delphi心得专栏收录该内容

26 篇文章

订阅专栏

本文介绍了一种从数据库的Blob字段中读取并显示图片的方法。通过使用TADOBlobStream，我们可以将图片数据从数据库读取到内存中，然后将其保存到临时文件，最后在图像控件上显示该图片。这种方法适用于需要在应用程序中动态加载和显示数据库中存储的图片场景。

procedure TForm_QTOrder1.ShowPic;
var
vStr:TADOBlobStream;
vTmp,vPicType:string;
vtmpPath:PChar;
begin
inherited;

Image1.Picture.Graphic:=nil; //清空图像控件里的图像
vstr:=TADOBlobStream.Create(TBlobField(QueryBill4.FieldByName('Pics')),bmRead); //创建BlobStream，设定Pics字段为Blob字段，并设为只读
if vstr.Size=0 then //Stream的大小为0说明没有图像，退出
begin
exit;
end;
vPicType:=CheckImgType(vStr); //判断图像类型
vstr.Position:=0; //指针移动到开头
GetMem(vtmpPath,MAX_PATH); //获取临时目录
GetTempPath(MAX_PATH,vtmpPath);//获取临时目录
vTmp:=StrPas(vtmpPath); //获取临时目录
FreeMem(vtmpPath); //释放变量
vTmp:=vTmp+PubData1.GetGUIDString+'.'+vPicType; //将临时目录和文件名合成全路径文件名
TBlobField(QueryBill4.FieldByName('Pics')).SaveToFile(vTmp); //从Blob字段读取图像数据保存到临时文件
Image1.Picture.LoadFromFile(vTmp); //图像控件读取临时文件
DeleteFile(vTmp); //删除临时文件
Application.ProcessMessages;
end;