delphi 拷贝网络共享文件代码

最新推荐文章于 2021-04-05 15:30:57 发布

happypolo

最新推荐文章于 2021-04-05 15:30:57 发布

阅读量3.3k

点赞数

分类专栏： Delphi 文章标签：网络 delphi 服务器磁盘

本文链接：https://blog.csdn.net/happypolo/article/details/3580155

版权

本文展示了如何使用 Delphi 代码从网络共享位置拷贝文件到本地。通过创建 TNetResource 对象并调用 WnetAddConnection2 进行磁盘映射，然后将远程文件复制到本地 temp 目录。最后，使用 WNetCancelConnection2 断开网络驱动器连接。

摘要由CSDN通过智能技术生成

procedure TForm1.Button4Click(Sender: TObject);
var
NetSource : TNetResource;
Errinfo:longint;
begin
with NetSource do
begin
    dwType := RESOURCETYPE_ANY;             // 用于指定网络的资源类型
    lpLocalName := 'X:';                    // 将远程资源映射到此驱动器
    lpRemoteName := '//10.97.0.15/wxjl';    // 远程网络资源
    lpProvider := '';                       // 必须赋值,如为空则使用lpRemoteName 的值。
end;

Errinfo:=WnetAddConnection2(NetSource,'xcopy','xcopy',CONNECT_UPDATE_PROFILE); // CONNECT_UPDATE_PROFILE下次登录时重新连接

if Errinfo = NO_ERROR then               // 磁盘映射成功，此时在本地可看到网络驱动器X：
    begin
      //showmessage(inttostr(Errinfo));
      // 判断 temp 目录是否存在，不存在则新建一个 temp
      if not directoryexists(GetCurrentDir+'/temp')   then
              mkdir(GetCurrentDir+'/temp');</