delphi 拷贝网络共享文件代码

最新推荐文章于 2021-08-10 15:53:04 发布

原创

最新推荐文章于 2021-08-10 15:53:04 发布 · 3.4k 阅读

标签

#网络 #delphi #服务器 #磁盘

收录于

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

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 the