Copyfile函数怎么调用?

Question

SocketConnection调用服器函数:这个是我服务器上定义的一个函数:
procedure TFWQ.CreateZT(const ID: WideString);
begin
copyfile(pchar(ExtractFilePath(Application.ExeName) + 'data\hst_jxc0.mdb'),
pchar(ExtractFilePath(Application.ExeName)+ 'data\hst_jxc'+ ID +'.mdb'),false);
end;在客户端调用此函数:
frmdatamodule.SocketConnection1.AppServer.CreateZT(Trim(EditNum.Text));程序执行成功,没有错误.但在在服务的数据库DATA文件夹下根本没有生成copy的hst_jxc'+ ID +'.mdb';
其它函数调用没有问题.
小弟不才.SOS 高人~~~~~~~~~~~~~~~~~

Answer 1

跟踪一下服务器。
或者，把WideString改成OleVariant试试

Answer 2

TO: 2楼
Corn1 老兄,我用的Delphi7 里面好象没你说的那OleVariant类型.跟踪一下服务器?我不会,能教教我吗?3Q!!!

Answer 3

hst_jxc0.mdb 存在吗？
目录存在吗？
有写权限吗？

Answer 4

存在hst_jxc0.mdb我找到OleVariant类型了,好象还是不行.....谢谢关注我啊!!

Answer 5

这样肯定有问题，取的路径是客户端程序的路径。
你需要在客户端先服务端发一条命令，服务端收到这个命令之后，服务端来调用Copy自己复制

Answer 6

非常感谢!
问题已经解决!!!
只要稍微改下服务器函数就可以了:
procedure TFWQ.CreateZT(ID: OleVariant);
var str: string;
begin
str:= ID;
copyfile(pchar(ExtractFilePath(Application.ExeName) + 'data\hst_jxc0.mdb'),
pchar(ExtractFilePath(Application.ExeName)+ 'data\hst_jxc'+ str +'.mdb'),false);
end;谢谢你们2位结贴给分了~~~

Answer 7

还有你们能告诉我 怎么把服务器界面 刚开始运行 就放到状态栏的小图标..能不能在Formcreate中:写什么函数???