精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Delphi 网络编程>>用Delphi实现网络驱动器的映射和断开

主题:用Delphi实现网络驱动器的映射和断开
发信人: teleme(PassWord)
整理人: teleme(2001-02-11 11:33:22), 站内信件
用Delphi实现网络驱动器的映射和断开 
发信人: lovelyrabbit()
大家在运用Delphi编写网络应用程序时可能会遇到这样一个问题:在一个由Wind
ows NT和Novell Netware组成的网络环境中,应用程序需要使用Novell网上的某
些数据,如果每次都手工在Windows资源管理器中映射,断开网络驱动器,不仅繁
琐而且显得不够专业。本文将介绍在Delphi中使用Windows32 API函数解决这一问
题。  
一、 基本原理 
在Microsoft Windows环境下,应用程序使用Windows网络函数(WNet)来实现网
络功能而不用关心网络的供应商及具体实现。因为WNet函数是独立于网络的。  

Wnet函数主要有:WnetAddConnection , WnetAddConnection2 , WnetAddConnec
tion3 , WnetCancelConnection2等。本文主要用WnetAddConnection2,WnetCan
celConnection2函数,下面简单介绍一下,关于WNet函数更详细的资料请参考De
lphi的连机文档和Microsoft API函数说。  

WNetAddConnection2在Windows.pas中的函数原型如下:  


function WNetAddConnection2 
(var lpNetResource: TNetResource; 
lpPassword, lpUserName: PChar; dwFlags:  
DWORD): DWORD; stdcall; 

为调用此函数必须填写 
lpNetResouce结构,此结构的定义为: 
typedef struct _NETRESOUCE{ 
 DWORD dwScope;  
 DWORD dwType;  
 DWORD dwDisplayType; 
 DWORD dwUsage; 
 LPTSTR lpLocalName; 
 LPTSR lpRemoteName; 
 LPTSr lpProvider; 
} NETRESOURCE;  
这里使用dwType,lpLocalName,lpRemoteName, 
lpProvider几个参数。其含义如下: 
dwType : 用于指定网络的资源类型, 
有以下RESOURCETYPE_ANY(任何资源) ,  
 RESOURCETYPE_DISK(磁盘资源) , 
 RESOURCETYPE_PRINT(打印机资源)。 
lpLocalName : 指定本地设备。 
lpRemoteName : 指定远程网络名。 
lpProvider : 指定提供网络资源的供应商。 
如为空,则表示供应商未知。 
WNetAddConnection2函数的 
lpPassword为远程资源的口令。 
 lpUserName为远程资源的用户名。 
dwFlags标志位用于指定登录时是否重新连接 
(0时表示不重新连接,CCONNECT_UPDATE_ 
PROFILE登录时重新连接)。 
WnetCancelConnection2在Windows.pas 
中的函数原型如下: 
function WNetCancelConnection2 
(lpName: PChar; dwFlags: DWORD; fForce: BOOL):  
DWORD; stdcall; 
lpName : 要断开的远程网络资源或本地重定向驱动器。 
dwFlags : 含义同上。 
fForce : True表示不管是否有文件打开, 
强制性断开网络驱动器;False 表示如有文 
 件打开则函数运行失败。 

二、实例 
在Delphi的File菜单下选择New Application,在Form1上放置一个Button,在Bu
tton1的Click事件中键入如下代码:  


procedure TForm1.Button1Click 
(Sender : TObject); 
var 
 NetSource : TNetResource; 
begin 
 with NetSource do 
 begin 
 dwType := RESOURCETYPE_ANY; 
lpLocalName := 'X:';  
// 将远程资源映射到此驱动器 
lpRemoteName := '\\hqServer\sys';  
// 远程网络资源 
lpProvider := ''; // 必须赋值, 
如为空则使用lpRemoteName的值。 
 end; 
 WnetAddConnection2(NetSource, 'Password', 'Guest',  
 //用户名为Guest,口令为Password 
CONNECT_UPDATE_PROFILE);  
//下次登录时重新连接 
//此时在Windows资源管理器中可看到网络驱动器X: 
if MessageDlg('Are you sure to disconnect Drive ?', 
mtConfirmation, [mbYes, mbNo], 0) = mrYes then  
//不管是否有文件打开,断开网络驱动器X: 
 WNetCancelConnection2 
( 'X:', CONNECT_UPDATE_PROFILE, True);  
end; 
end; 

本程序在Delphi3.0,4.0、PWindows95、Novell Netware 3.12下编译运行通过 
 

[关闭][返回]