十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
开发的程序有一个导出功能,导出前会有一个简单的选择目录的步骤。简单啊,简个对话框,点确定不就完事了?没想到的是,这个“简单”的动作整整耗了我一天的时间。
站在用户的角度思考问题,与客户深入沟通,找到沧源网站设计与沧源网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都网站设计、做网站、企业官网、英文网站、手机端网站、网站推广、申请域名、虚拟主机、企业邮箱。业务覆盖沧源地区。最初出现的问题是,在win10上,有一些目录是被严格控制写入的,比如C:\,用户选择了这样的目录之后,导出就会报错。这也简单啊,用户选择目录之后,对这个目录做一个简单的测试,写一个空白文件进去,写成功了就说明这个目录可用,写入失败就说明这个目录没有权限写入呗,区区三五行代码,so easy...
类似的代码如下:
var
sl:TStringList;
begin
sl:=TStringList.Create;
try
sl.SaveToFile('C:\datatest.txt');
except
(说明没权限,重新让用户再选一个目录)
end;
sl.Free;
end;
意想不到的问题来了,用户选择了C盘根目录这样注定会写入失败的路径时,这段代码运行的结果竟然说写入是成功的!但是对应的目录上实际上是没有这个文件的,太诡异了。在SaveToFie之后用FileExists函数来检测,也是说磁盘上已经有这个文件了,写入成功。以为自己眼花,打开文件浏览器再核对一次,的的确确是没有这文件,我。。。。
接下来各种调整(此处省略掉一万字。。。),比如说生怕写入动作一定要释放变量后才真正执行,就在写入后赶紧将TStringlist给free掉,或者改成了用函数对TextFile的文件操作,强制刷入磁盘,结果无一例外,还是和之前一样。
不信邪于是新建了一个工程来试,结果跌大眼镜,这段代码在新工程里可以正确无误的执行。看来问题出现在工程设置上,因为我这个工程是从旧版本升级来的,估计有一些设置没有配上。对工具仔细比对了两个dproj文件,在差异处没看出什么道道来,又在菜单project——option里面看,也是一无所获。准备关掉option对话框的时候,随手把manifest的设置点了一下,原来是none,改成了auto generate。关掉了再运行,居然正确了,瞎猫竟然碰到了死老鼠!
查了一下manifest的作用,原来Application manifest相当于程序的配置和说明,在XP的时候提出,在Vista的时候做了改进。估计我之前的程序从老版本Delphi升级过来,manifest部分没有设置,所以win10将程序作为老式程序,在兼容模式下运行了,老程序是可以写入C盘根目录的,当然是假的写入,只在本进程内可见。当我检测到可以写入,但真正调用Excel来导出的时候就报错了。当我生成manifest,运行在真实模式的时候,终于得出了真正的结果。而那个新工程因为是新版本Delphi建立的,默认就设置了manifest,所以运行一切正常。
挖掘到了manifest这个宝藏,还顺便解决了困扰我的一些问题。比如说,在里面勾选允许run time themes,工具栏上面的图标显示也正常了,不会在显示在偏上的位置。DPI(manifest自动生成之后,这一项也会自动选上)选择系统识别或者显示器识别,原来在高分辨率下显示模糊的程序也清晰了,perfect!
下面是一篇有关windows程序manifest说明的文章:
http://www.softwareace.cn/?p=1207
另外有需要云服务器可以了解下创新互联cdcxhl.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。