函數 wnetaddconnection2 用法 函數 wnetaddconnection2 中 netresource 這個結构中的各個字段給什么值啊最好有個例子,謝謝 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用Delphi实现网络驱动器的映射和断开 2000-07-04· ·-··- p>大家在运用Delphi编写网络应用程序时可能会遇到这样一个问题:在一个由Windows NT和Novell Netware组成的网络环境中,应用程序需要使用Novell网上的某些数据,如果每次都手工在Windows资源管理器中映射,断开网络驱动器,不仅繁琐而且显得不够专业。本文将介绍在Delphi中使用Windows32 API函数解决这一问题。 一、 基本原理在Microsoft Windows环境下,应用程序使用Windows网络函数(WNet)来实现网络功能而不用关心网络的供应商及具体实现。因为WNet函数是独立于网络的。 Wnet函数主要有:WnetAddConnection , WnetAddConnection2 , WnetAddConnection3 , WnetCancelConnection2等。本文主要用WnetAddConnection2,WnetCancelConnection2函数,下面简单介绍一下,关于WNet函数更详细的资料请参考Delphi的连机文档和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,在Button1的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,口令为PasswordCONNECT_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; dwType := RESOURCETYPE_ANY請問RESOURCETYPE_ANY為要定義嗎直接寫會報錯啊 delphi有什么好用的免费3D饼图和柱型图控件? 在客户机中,如何将文件传送到服务器的系统目录中 各位朋友,我知道你们只关心技术,其实我也一样 急待答案! 求Delphi对数据库数据加密解密的程序及其用法,最要紧是简单.帮UP谢谢 时间 请问:如何在dbgrid中实现选择打印, 我是DELPHI那边的,用结构化存储文件时出错ole error 300800ff,请内行帮忙 delphi单元之间调用问题 delphi的访问数据库的稳定性问题 如何实现任务计划功能 求dll封装Form,函数,并调用form实例
2000-07-04· ·-··-
p>大家在运用Delphi编写网络应用程序时可能会遇到这样一个问题:在一个由Windows NT和Novell Netware组成的网络环境中,应用程序需要使用Novell网上的某些数据,如果每次都手工在Windows资源管理器中映射,断开网络驱动器,不仅繁琐而且显得不够专业。本文将介绍在Delphi中使用Windows32 API函数解决这一问题。
一、 基本原理
在Microsoft Windows环境下,应用程序使用Windows网络函数(WNet)来实现网络功能而不用关心网络的供应商及具体实现。因为WNet函数是独立于网络的。
Wnet函数主要有:WnetAddConnection , WnetAddConnection2 , WnetAddConnection3 , WnetCancelConnection2等。本文主要用WnetAddConnection2,WnetCancelConnection2函数,下面简单介绍一下,关于WNet函数更详细的资料请参考Delphi的连机文档和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,在Button1的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;
直接寫會報錯啊