delphi存储图片路径 转载

2008-06-23 08:55 167人阅读 评论(0) 收藏 举报

用到的控件有adoconnection,adoqury,edit,image,opendialog.

还需要在工程存储的文件夹下有一个photo的文件夹,用来挑选图片和保存图片.

procedure TForm1.Image1Click(Sender: TObject);

var

  workpath:string;

  photopath:string;

begin

  workpath:=ExtractFilePath(application.exename);

  if opendialog1.execute then

  image1.picture.loadfromfile(opendialog1.filename);

  photopath:='photo/'+edit1.text+'.jpg';

  a doquery1.close;

  adoquery1.sql.clear;

  adoquery1.sql.add('insert into 学生信息(学生证号,照片) values ('''+edit1.text+''','''+photopaht+''')');

  adoquery1.execsql;

  image1.picture.savetofile(workpath+photopath);

end;