Delphi中怎么样插入本地图片？

2025-02-23 08:58:18

推荐回答（1个）

回答1：

1、Delphi在运行时插入本地电脑中的图片：
Image1.picture.loadfromfile('图片文件名');
即可将指定的图片文件显示在Image控件中。（注：如果是JPG格式图片，则需要添加JPEG单元引用： uses jpeg;）

2、图片存数sql2000数据库中：
数据库中的图片字段（如：Photo）类型应该为：Image
下面代码可将图片存入Photo字段
ADOQuery1.edit;
TBlobField(ADOQuery1.FieldByName['Photo']).LoadFromFile('图片文件名');
ADOQuery1.post;

-------------------------------------------

最后，建议：图片不要存放在字段中，而是集中放在某个文件夹内，并规定每个图片文件的文件名为“员工编号.jpg”，这样可根据“员工编号”来读取图片显示，速度要比从数据库中读取快得多；