荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: phoebus (天蓝草绿水碧风清), 信区: Program
标 题: [转载] 用Delphi实现网络驱动器的映射和断开
发信站: BBS 荔园晨风站 (Tue Jun 8 16:47:17 1999), 转信
【 以下文字转载自 News 讨论区 】
【 原文由 phoebus 所发表 】
大家在运用Delphi编写网络应用程序时可能会遇到这样一个问题：在一个由Wind
ows NT和Novell Netware组成的网络环境中，应用程序需要使用Novell网上的某些数据
，如果每次都手工在Windows资源管理器中映射，断开网络驱动器，不仅繁琐而且显得不
够专业。本文将介绍在Delphi中使用Windows32 API函数解决这一问题。 一、 基本原理
---- 在Microsoft Windows环境下，应用程序使用Windows网络函数（WNet）来实现网
络功能而不用关心网络的供应商及具体实现。因为WNet函数是独立于网络的。 ---- Wn
et函数主要有：WnetAddConnection , WnetAddConnection2 , WnetAddConnection3 ,
WnetCancelConnection2等。本文主要用WnetAddConnection2，WnetCancelConnection2
函数，下面简单介绍一下，关于WNet函数更详细的资料请参考Delphi的连机文档和Micr
osoft API函数说。 ---- WNetAddConnection2在Windows.pas中的函数原型如下： fun
ction WNetAddConnection2 (var lpNetResource: TNetResource; lpPassword, lpUse
rName: PChar; dwFlags: DWORD): DWORD; stdcall; 为调用此函数必须填写 lpNetRes
ouce结构，此结构的定义为： typedef struct _NETRESOUCE{
DWORD dwScope;
DWORD dwType;
DWORD dwDisplayType;
DWORD dwUsage;
LPTSTR lpLocalName;
LPTSR lpRemoteName;
LPTSr lpProvider; } NETRESOURCE; 这里使用dwType,lpLocalName,lpRemoteName,
lpProvider几个参数。其含义如下： dwType : 用于指定网络的资源类型，有以下RESO
URCETYPE_ANY(任何资源) ,
RESOURCETYPE_DISK(磁盘资源) , RESOURCETYPE_PRINT（打印机资源）。 lpLocalNa
me : 指定本地设备。 lpRemoteName : 指定远程网络名。 lpProvider : 指定提供网络
资源的供应商。如为空，则表示供应商未知。 WNetAddConnection2函数的 lpPassword
为远程资源的口令。 lpUserName为远程资源的用户名。 dwFlags标志位用于指定登录时
是否重新连接（0时表示不重新连接，CCONNECT_UPDATE_ PROFILE登录时重新连接）。
WnetCancelConnection2在Windows.pas 中的函数原型如下： function WNetCancelCon
nection2 (lpName: PChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall; lpNa
me : 要断开的远程网络资源或本地重定向驱动器。 dwFlags : 含义同上。 fForce :
True表示不管是否有文件打开，强制性断开网络驱动器；False 表示如有文
件打开则函数运行失败。二、实例 ---- 在Delphi的File菜单下选择New Applicatio
n，在Form1上放置一个Button，在Button1的Click事件中键入如下代码： procedure T
Form1.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下编译运行通过。
□摘自计算机世界日报 6月8日
--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.13.189]
--
※ 转载:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.13.189]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店