当前位置：文江博客话题详情

使用给定的用户名和密码从共享目录复制文件

发布于 2024-12-07 07:56:57 字数 42 浏览 0 评论 0原文

有没有办法使用不同于当前用户名和密码的特定网络共享目录创建/复制文件？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

骄兵必败 2024-12-14 07:56:58

这是我用来连接远程驱动器并将其映射到本地驱动器号的方法（以及相应的取消映射操作）。将驱动器映射到驱动器号后，您就可以像使用任何其他驱动器一样进行复制：

function MapNetworkDrive(const RemoteName, LocalDrive, 
  UserName, Password: string): Boolean;
var
  NetRes: TNetResource;
  Res: DWord;
begin
  Result := True;
  FillChar(NetRes, SizeOf(TNetResource), 0);
  NetRes.dwType := RESOURCETYPE_DISK;
  NetRes.lpRemoteName := PChar(RemoteName);
  NetRes.lpLocalName := PChar(LocalDrive);
  Res := WNetAddConnection2(NetRes, PChar(Password), PChar(UserName), 0);
  Result := (Res = NO_ERROR);
  if not Result then
    SysErrorMessage(Res);
end;

function TForm1.UnmapNetworkDrive(const LocalDrive: string): Boolean;
var
  Res: DWord;
begin
  Res := WNetCancelConnection2(PChar(LocalDrive), 0, True);
  Result := (Res = NO_ERROR);
end;

使用示例：

begin
  if MapNetworkDrive('\\192.168.1.56\C
, 'H:', 'fred', 'password') then
  begin
    try
      // Do whatever between local drive and drive 'H:'
    finally
      UnmapNetworkDrive(Local);
    end;
  end;
end;

Here's what I use to connect and map a remote drive to a local drive letter (along with the corresponding unmapping operation). Once you've mapped the drive to a drive letter, you copy just like you would with any other drive:

function MapNetworkDrive(const RemoteName, LocalDrive, 
  UserName, Password: string): Boolean;
var
  NetRes: TNetResource;
  Res: DWord;
begin
  Result := True;
  FillChar(NetRes, SizeOf(TNetResource), 0);
  NetRes.dwType := RESOURCETYPE_DISK;
  NetRes.lpRemoteName := PChar(RemoteName);
  NetRes.lpLocalName := PChar(LocalDrive);
  Res := WNetAddConnection2(NetRes, PChar(Password), PChar(UserName), 0);
  Result := (Res = NO_ERROR);
  if not Result then
    SysErrorMessage(Res);
end;

function TForm1.UnmapNetworkDrive(const LocalDrive: string): Boolean;
var
  Res: DWord;
begin
  Res := WNetCancelConnection2(PChar(LocalDrive), 0, True);
  Result := (Res = NO_ERROR);
end;

Example use:

begin
  if MapNetworkDrive('\\192.168.1.56\C
, 'H:', 'fred', 'password') then
  begin
    try
      // Do whatever between local drive and drive 'H:'
    finally
      UnmapNetworkDrive(Local);
    end;
  end;
end;

回复收藏 0 原文

千と千尋 2024-12-14 07:56:58

@Luke 在评论中建议的内容，或者您可以 PInvoke 到 NetUseAdd 函数。您可以在对 NetUseAdd 的调用中传递用户名和密码，然后当前用户会话访问此文件共享上的资源的所有尝试都将使用这些凭据。查看 pinvoke.net 上的示例了解如何调用它 - 您将必须将其翻译为Delphi。

回复收藏 0 原文