如何将本地主机的文件拷到远程服务器上 ( 积分: 50 )

  • 主题发起人 主题发起人 cqq6537
  • 开始时间 开始时间
C

cqq6537

Unregistered / Unconfirmed
GUEST, unregistred user!
如题,如何在程序中用代码实现将本地主机上的文件拷到远程服务器上
 
如题,如何在程序中用代码实现将本地主机上的文件拷到远程服务器上
 
我也想知道
 
socket,ftp,如果是2000的话可以映射,具体例子,论坛里应该有很多
 
用FTP比较方便,只要写客户端就可以了,在服务器上开上FTP,并开个权限,写一端就可以了,如果用SOCKET,TCP之类的话,都要写客户端和服务器端。
 
好吧
如果是要把c盘上名字为AAA的文件夹传到D盘上应该怎么做呢
 
FTP,UDP均可.
 
Ftp,Socket均可。我作过用Socket的方面,要源代码给我E-mlie Address
 
你想考到共享目录还是用服务器客户端程序,目录的简单
 
我想要socket 的
给我发一份吧,不胜感激!
fangye_2008@sina.com
 
写个dos批处理就行了
那么麻烦
 
lmxcyx给我一份代码吧
我的地址是cqq1860@tom.com
杨谨瑞:我是想拷到服务器目录上
不是客户端服务器的模式
要用什么办法
 
最简单的方法用文件映射。
 
使用文件映射,速度是最快的。
注意检查错误,随手写的,没测试过。
var
h:Integer;
p:Pointer;
........
fs:=TFileStream.Create('//IP/c:/abc.bin',fmOpenRead);
try
h := CreateFileMapping(fs.Handle, nil, PAGE_READWRITE,0, 0, 'MyFileMappingObject');
if (h = INVALID_HANDLE_VALUE) or (h = 0)
raise Exception.Create('Error!')
else
begin
p := MapViewOfFile(h, FILE_MAP_ALL_ACCESS, 0, 0, 0);

.........

//在这里对指针p进行读写操作就行了,系统会自动把该文件映射进内存
//也可以在此将文件拷贝到本地
..........

UnMapViewOfFile(p);
end;
CloseHandle(h);
finally
fs.Free;
end;
 
用CopyFile(本地文件名,目的网络地址,如果目的地址存在该文件的话就不传送);
BOOL CopyFile(
LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);
 
我写了个多线程的程序,支持socket和共享文件夹,现在不能发布,等我把程序内的秘密信息删掉,发布给大家。
 
程序整理完毕,你可以到http://www.teclick.com/download.asp下载例子程序,这是个学习多线程和FTP的DEMO
 
多人接受答案了。
 
后退
顶部