关于COPYFILE函数的疑问？(13)

procedure TForm1.N7Click(Sender: TObject);var text:string;begin absdatabase1.Connected :=false
abstable1.open
abstable1.edit;if selectdirectory('请选择备份数据库的存放目录:','/',text) then begin copyfile(pchar(ExtractFilePath(Application.ExeName) + DataBaseFileName), pchar(text+'/'+DataBaseFileName ),false )
absdatabase1.connected:=true
end;end;我的代码如下，在XP下运行正常，但是在VISTA下面就有问题，程序执行后没有反映，我用的是D2009

这个问题真的就那么难，没有人呢知道吗？

你的编译环境是XP 还是 VISITA ？如果不是VISITA，试一下在VISITA下编译一下~~

我用的是D2009,在XP和vist下面都编译通过，但就是在XP下面执行正常，在VISTA下面就没有任何显示

getlasterror

copyfile 有很多限制,比如中文目录名 等.d 2009 使用的是unicode ,xp和vista是不是有不同不太清楚.GetlastError看错误信息了.

我用了GETLASTERROR命令，提示为“另一程序已锁定文件的一部分，程序无法访问。”这个何解啊？

具体应该那里改啊？

有人知道吗？

delphi2009的unicode问题,你看看帮助 pchar 改成 pAnsiChar试试如果还不行，就应该是，Vista 权限的问题当Delphi支持了Unicode，它将会变成什么样子呢？我的看法如下：1. 开发变得复杂了，因为要更多的考虑编码问题2. 绝大多数控件都需要修改，以使其能适应Delphi20093. 多国语言的软件得到了较好的支持第一点和第二点，相信很多人都有体会了，原本在Delphi2007上通顺利编译通过的项目，放到Delphi2009上就要进行很大的改动。特别是API的调用，MessageBoxA改成MessageBoxW之类，会让原本简单的程序变得很复杂。我在论坛上承接移植控件的项目时，已经有很深的体会。比如说 str: array[0..15] of Char，原本这个 str 是可以直接拿来用作PChar，但是现在就必须 PChar(string(str))，或许这有一点不方便，但是这对于Delphi2009来说，完全没有办法。因为它不可能放弃Ansi。如果想不修改编码就在Delphi2009上编译Delphi2007的项目，可以使用 {$H+} 编译预处理，这将把字符串编码设为Ansi，而不是使用默认的Unicode。当然了，这仅仅是针对一些简单的项目可以如此处理。对于复杂的控件，如DevExpress，RemObjects等等，用这一招完全无效，还是得老老实实的修改代码。由于编译器改动太大，使得一些原本能顺利使用的语法也需要重新考虑。类似于 Boolean(ArrStr[1]) := True
这样的代码已经不被支持。下面来说说修改控件的问题，主要是编码问题，已有一些总结如下：1. 使用{$H+}来避免字符串解析为Unicode2. 使用StrPCopy函数，来对Char数组赋值，ArrStr := str
已经不再支持了3. 使用PChar/PWideChar来生成字符串指针。4. 对于Length(str)要特别小心，在Unicode的情况下，一个汉字的长度和一个英文字母的长度都是1，而Ansi情况下，一个汉字长度是2。5. 数据相关的控件最麻烦，TDataSet被大幅修改，因此从TDataSet继承来的控件，大多数override的方法也需要同步修改6. StrPas(@ArrStr[0])这种写法不被支持，应用Str: string
StrPas(PChar(Str))
来代替7. 转义在先不被支持，如上面说的Boolean(ArrStr[1]) := True
这样的代码可修改为 ArrStr[1] := IfThen(True, #1, #0);8. PropertyEditor中的字符串必须是Ansi的，不然会导致内存泄漏（不知正式版还有没有这个问题。。）9. ISAPI 及一些特定的API没有W的形式，它们只允许使用Ansi，因此传入参数时，必须用PAnsiChar(AnsiString(Str))进行转换一些新语法的问题，比如说HashMap，可以按Java的写法，修改成IMap<T,T>和THashMap<T,T>诸如此类的不再多说，泛型的使用是必然的，也是必须的，当然这对于控件的相关修改会比较大，但是能使控件更完善。另外，由于Delphi2009支持反射，以往用RTTI获取类成员的代码，如果为了精简，可以使用反射单元的相关成员来代替。不知有没有人测试过反射和RTTI的率，个人感觉，反射比RTTI慢一些，但是反射的功能远远强于RTTI。因此，开发时要用哪个，还是按照实际情况来决定比较好。再来谈谈第三点，它对多国语言的支持强化了，我们可以在一个软件里，用上我们能够想像到的任何一种语言，而且都可以正确的显示（虽然对于我来说，完全用不到英文以外的语言，但是还是要说一下的）。但是这种多语支持却做得并不尽人意。本地化向导可以帮助完成一部分事情，但是自己要做的事还是很多。而TSiLang是第三方，并且收费的，虽然实现多语很方便，但是我相信会去购买的人也不多吧。Delphi完全可以在多语方面再做得更好一些，还有个小小的bug，以色列文会乱码，不过中国的用户应该永远碰不到这问题了吧

楼上的，我试过了。就连编译都不能通过

[DCC Warning] MainFrm.pas(624): W1044 Suspicious typecast of string to PAnsiChar[DCC Error] MainFrm.pas(624): E2010 Incompatible types: 'AnsiChar' and 'Char'提示以上错误

真的没有人知晓吗？

procedure TForm1.N7Click(Sender: TObject);var text:string;begin absdatabase1.Connected :=false
abstable1.open
//你这个是干嘛的，下面没用到啊？而且调用了Open，会自动把database的connected设置为true，导致数据库文件处于打开状态。 abstable1.edit;if selectdirectory('请选择备份数据库的存放目录:','/',text) then begin copyfile(pchar(ExtractFilePath(Application.ExeName) + DataBaseFileName), pchar(text+'/'+DataBaseFileName ),false )
absdatabase1.connected:=true
end;end;

不是的，如果我不用这句的话，就会出现错误提示，显示：table1:can not perform this operation on a closed dataset这个错误的提示。

一大清早，继续想知道答案。

难道真的就没有人知道吗？

都告诉你调用一下GetLastError查看错误值了ShowMessage(SysErrorMessage(GetLastError()))
显示错误消息另外调用CopyFile前，Show一下text，看看是否有错误。

知道啊。我就是不明白这个错误该怎么弄，如果我不TABLE1.OPEN,就更本不能执行

而且同样的代码在XP中执行无误。但就是VISTA有问题。