⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 060704_05.htm

📁 对于学习很有帮助
💻 HTM
字号:
🔍 
<html>

<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
用Delphi实现网络驱动器的映射和断开
</title>
<!--***********-->
</head>

<body bgcolor="#FFFFFF" >














<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
用Delphi实现网络驱动器的映射和断开
</h2></font>
<h3>
海通证券有限公司电脑部 
<br>须任荣
</h3>
</center>
<p><font color="#ffffff">----</font>
大家在运用Delphi编写网络应用程序时可能会遇到这样一个问题：在一个由Windows NT和Novell Netware组成的网络环境中，应用程序需要使用Novell网上的某些数据，如果每次都手工在Windows资源管理器中映射，断开网络驱动器，不仅繁琐而且显得不够专业。本文将介绍在Delphi中使用Windows32 API函数解决这一问题。
<h3><font color="#a30004">一、 基本原理</font></h3>
<font color="#ffffff">----</font>

在Microsoft Windows环境下，应用程序使用Windows网络函数（WNet）来实现网络功能而不用关心网络的供应商及具体实现。因为WNet函数是独立于网络的。
<p><font color="#ffffff">----</font>
Wnet函数主要有：WnetAddConnection , WnetAddConnection2 , WnetAddConnection3 , WnetCancelConnection2等。本文主要用WnetAddConnection2，WnetCancelConnection2函数，下面简单介绍一下，关于WNet函数更详细的资料请参考Delphi的连机文档和Microsoft API函数说。
<p><font color="#ffffff">----</font>
WNetAddConnection2在Windows.pas中的函数原型如下：
<pre>
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 表示如有文
          件打开则函数运行失败。
</pre>
<h3><font color="#a30004">二、实例</font></h3>
<font color="#ffffff">----</font>

在Delphi的File菜单下选择New Application，在Form1上放置一个Button，在Button1的Click事件中键入如下代码：
<pre>
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;
</pre>
<font color="#ffffff">----</font>


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



 



<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small> 
<br>
</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -