Question

在delphi中如何实现添加图片的功能？

我做一个人事管理系统，在员工信息输入时，怎么才能添加一张员工的相片？实现图片添加和删除的功能？
我还要加一个添加按钮和删除按钮，当点击添加按钮时添加图片，当点击删除按钮时就把加了的图片删除，谁知道详细步骤和相关的代码。

Answer 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”，这样可根据“员工编号”来读取图片显示，速度要比从数据库中读取快得多；

Answer 2

用image控件就可以了

追问

我还要加一个添加按钮和删除按钮，当点击添加按钮时添加图片，当点击删除按钮时就把加了的图片删除，说麻烦你说一下详细步骤和相关的代码。

Answer 3

image控件可以添加图片，
删除要自己写代码。image1.Picture.assign(nil);

追问

我还要加一个添加按钮和删除按钮，当点击添加按钮时添加图片，当点击删除按钮时就把加了的图片删除，说麻烦你说一下详细步骤和相关的代码。

追答

在添加里试试这段代码
Printer.BeginDoc;
Printer.Canvas.Draw(0,0,image1.Picture.Graphic);
Printer.EndDoc;

追问

不对呀

追答

Image.Picture.LoadFromFile(图片路径);

追问

这个我会呀，我说的是在界面上有一按钮，一点就能把选择照片并加载在上方的框了的，就像你上传相册的功能一样

追答

这个的话得研究研究，你用一个combobox在里面写上编号。1、2、3、、、、、等。然后在确定按钮内编写判断。if(combobox.text=1) then 上传一张照片，然后else上传另一张。这样可以实现选择上传，但是要记住照片编号，如果要实现照片上传那样的功能，你可能要研究一下delphi的其他图片控件，然后使用多个控件结合，可能能搞定。

Answer 4

利用 Timage TdbImage 控件

追问

我还要加一个添加按钮和删除按钮，当点击添加按钮时添加图片，当点击删除按钮时就把加了的图片删除，说麻烦你说一下详细步骤和相关的代码。