用delphi如何实现拷贝其他计算机上的文件到本地?

Question

用delphi如何实现拷贝其他计算机上的文件到本地?

Answer 1

application.Title := 'Word - ' + Application.MainForm.Caption;

Answer 2

wait>>>>>>>>>>>>>>>>>>>>>>

Answer 3

获得验证后拷贝! 你指的什么意思。
考文件直接用copyfile
把其他计算机的硬盘映射成网络硬盘就行了
copy完之后断开。

Answer 4

下面这个方法是你在连接上对方机器之后（即不必输入用户名和密码）可以直接用的procedure TForm1.Button1Click(Sender: TObject);
begin
    copyfile('\\test1\program files\IMAGE\Acrobat60\0x0411.ini','D:\1.ini',true);
end;

Answer 5

可以考虑使用ftp协议，ftp连接时本身就需要验证

Answer 6

一：用ftp协议
二：共享远程的目录，然后把远程目录映射到本地，就可以实现拷贝

Answer 7

WNetCancelConnection2(pchar(strLocalName), CONNECT_UPDATE_PROFILE, False); 断开
WNetAddConnection2(NRW, pchar(pw), pchar(user),CONNECT_UPDATE_PROFILE); 连接  with NRW do
      begin
           dwType := RESOURCETYPE_ANY;
           lpLocalName :=pchar(inifile.readstring('paraset','netdiskname',''));
           lpRemoteName:=pchar(inifile.readstring('paraset','picid',''));
           lpProvider := '';
           user:=inifile.readstring('paraset','u_user','');
           pw:=inifile.readstring('paraset','u_pw','');
      end;

Answer 8

偶是調用net use去映射對方磁盤,然後net use \delete掉網絡磁盤的
-_-