关于 image 怎样得到当前image 的图片路径及文件名!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这个问题如何说?有几种可能;比如当前图根本就在资源文件中;你应该在它的保存期得到;opendialog1.filename 如果在事先就打开图片,那么是没办法的!!用打开对话框则可以得到(像 ihihonline(小小) 所说)opendialog1.filename 好像有个Getnamepath属性,我忘记了 不可能通过Image得到,只有在赋给IMAGE之前得到 那我不是很痛苦!!!天啊!!!!!下面是我选择图片文件的代码!!但是要什么保存啊!!!不用变量!!!procedure TOrderBaseForm.Button1Click(Sender: TObject);var tem:variant;begin //打开对话框 OpenDialog1.Execute(); //文件路径入文件名 tem:=extractfilepath(opendialog1.FileName)+extractfilename(opendialog1.FileName); //指定文件try image1.Picture.LoadFromFile(tem); label14.Caption:=tem;except showmessage('你所选择的不是图片文件');end;end; SaveToFile()不行啊!!我是保存到数据库啊!! 你在Timage类的基础上作一个新的vcl组件,为这个组件增加一个filename属性!(string类型)设置filename属性,就调用loadfromFile(filename);如果要读取filename属性,直接读这个字符串就行了!不要忘了VCL强大的扩展功能,这可是delphi的最大优势之一啊! 问一个SQL语句 关于保留小数点的问题,请指教 怎么用Delphi中的ADO控件实现dbf数据库(foxpro的)Pack功能? 各位大哥delphi9.0什么时候出来呀? FTP+SERV-U的问题 还是那个问题 奇怪的基础问题-关于Tform的一个frm实例{☆进则有分} 注册表问题 当制作安装程序时遇到一些问题???? CGI错误 谁能帮我? (急)richedit问题(50)
有几种可能;
比如当前图根本就在资源文件中;
你应该在它的保存期得到;
opendialog1.filename
用打开对话框则可以得到(像 ihihonline(小小) 所说)opendialog1.filename
procedure TOrderBaseForm.Button1Click(Sender: TObject);
var tem:variant;
begin
//打开对话框
OpenDialog1.Execute();
//文件路径入文件名
tem:=extractfilepath(opendialog1.FileName)+extractfilename(opendialog1.FileName);
//指定文件
try
image1.Picture.LoadFromFile(tem);
label14.Caption:=tem;
except
showmessage('你所选择的不是图片文件');
end;
end;
(string类型)设置filename属性,就调用loadfromFile(filename);如果要读取filename属性,直接读这个字符串就行了!不要忘了VCL强大的扩展功能,这可是delphi的最大优势之一啊!