如何实现网络间文件的拷贝?

Question

如何实现网络间文件的拷贝?
知道对方的ip地址和文件路径

Answer 1

copyfile
文件路径写成网络路径即可

Answer 2

我的意思象windows下文件拷贝一样.
可不可以写得详细点?

Answer 3

是阿，copyfile是API函数，呢看下帮助，文件路径写成网络路径即可

Answer 4

?
windows下文件拷贝？什么意思，难道你不是用的windows？
还是指想编一个进度条？
.

Answer 5

uses shlobj,shellapi
//api拷贝文件夹函数 标准windows 拷贝 带进度条 呵呵~~~
function tform1.DoCopyDir(sDirName:String;sToDirName:String;):Boolean;
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
Begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, sDirName );//从哪个文件夹拷贝
StrPCopy( tobuf, sToDirName);//拷贝到哪个文件夹
With OpStruc DO Begin
Wnd:= Handle;//哪个窗口引用
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
end;
ShFileOperation( OpStruc )=0 then
end;