急。关于存取图片的问题

Question

我用的是delphi。数据据库用的是。SQL2000。
现在做一个人事管理系统。
要存每个员工的相片。
字段是IMAGE格式的。
请问怎么存取图片。

Answer 1

二进制文件存取.
dim b() as bety
open fileName for binary as #1
redim b(lof(#1))
get #1,,b()
rs!员工照片=b()
close #1
rs.update

Answer 2

Adoquery1.Edit;
 Try
   if OpenPictureDialog1.Execute then
      DBImage1.Picture.LoadFromFile(OpenPictureDialog1.Files[0]);
 Except showmessage('加载图片失败.');
 End;  
 Adoquery1.Post;

Answer 3

用流来做吧，不管是jpg还是bmp的都可以的，