说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在程序中获取网络资源信息-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
在程序中获取网络资源信息-Delphi资料

充分利用局域网中的共享资源,无疑将减少用户的硬件和软件投资。在我们的程序中,常常会需要列举局域网络中的共享资源,如在MIDAS多层应用程序中可能要选择上层应用程序所在的服务器的名称、在打印模块中选择可用的网络打印机、在应用程序中选择其它机器上的共享文件等。

以一个MIDAS三层数据库应用程序为例子,我们可以用DELPHI制作一个客户端应用程序和一个中间层业务处理程序,由中间层业务处理程序向数据库存取数据,再将结果反馈到客户端。当客户端应用程序与中间层程序和数据库服务程序不在一台机器上时,需要指定中间层程序和数据库服务程序所在的服务器的名称。

在DELPHI程序中,我们可以通过WIN API来列举局域网络中的服务器名称、用户计算机名称、用户共享目录和文件、共享打印机等资源,这些API由文件MPR.DLL提供。

下面以WIN9X的对等网络为例子,列举“网络邻居”中的工作组名称、用户计算机名称、共享目录和文件、共享打印机等资源。

一、列举“网络邻居”中的工作组名称

在“网络邻居”中,打开“整个网络”,可以看到网络中的所有工作组的名称。在DELPHI程序中,可以用API函数WNetOpenEnum和WNetEnumResource来列举“网络邻居”中的工作组名称。

下面是两个API函数的简介,具体请参见DELPHI帮助文件。

//WNetOpenEnum用于获取一个网络资源句柄,作为WNetEnumResource列举网络资源的依据,其函数原型如下:

function WNetOpenEnum(

dwScope

//网络范围

RESOURCE_CONNECTED(已连接机器)

RESOURCE_GLOBALNET(所有机器)

RESOURCE_REMEMBERED(已记忆的机器)

dwType

//资源类型

RESOURCETYPE_ANY(所有资源)

RESOURCETYPE_DISK(文件资源)

RESOURCETYPE_PRINT(打印资源)

dwUsage//资源用途

0(所有资源)

RESOURCEUSAGE_CONNECTABLE(所有可连接资源)

RESOURCEUSAGE_CONTAINER(所有container资源)仅在dwScope为RESOURCE_GLOBALNET是有效

: DWORD;

lpNetResource: PNetResource;//NetResource类型指针,其内存表示网络资源的层次

为NIL时表示最上层,仅在dwScope为RESOURCE_GLOBALNET时有效

其它情况时应为NIL

var lphEnum: THandle//返回网络资源句柄,是WNetEnumResource进一步列举网络资源的依据): DWORD; stdcall;返回值NO_ERROR表示执行成功,否则应用GetLastError获取错误信息

//WNetEnumResource用于列出当前网络中可用的资源,包括文件资源和打印资源,其函数原型如下:

function WNetEnumResource(

hEnum: THandle;//WNetEnumResource进一步列举网络资源的依据

通常由WNetOpenEnum取得var lpcCount: DWORD;//要取得资源的数目,$FFFFFFFF表示列出所有资源,返回值为实际资源数目lpBuffer: Pointer;//接收结果的缓冲区的指针,一般是NetResource类型的数组

var lpBufferSize: DWORD//接收结果的缓冲区大小(Byte)

): DWORD; stdcall;

返回值为NO_ERROR(执行成功)或ERROR_NO_MORE_ITEMS(资源列举完毕),否则应用GetLastError获取

错误信息。

要列举网络中的工作组信息,首先要获取网络中的网络类型,再获取每一种类型网络中包含的工作组的名称。

1、获取网络类型信息

局域网中可以是由多种类型的网络组成,如由Microsoft、Novell等类型的网络组成。用API  函数WNetOpenEnum和WNetEnumResource可以获取网络类型信息。

(1)用WNetOpenEnum函数返回一个句柄,作为WNetEnumResource列举网络资源的依据。我们的目标是列举“整个网络”的工作组名称,因而网络范围为RESOURCE_GLOBALNET(所有机器)、资源类型为RESOURCETYPE_DISK(文件资源)、资源用途为RESOURCEUSAGE_CONTAINER(所有container资源)、

网络层次为最高层(NIL),这样可以得到一个句柄,以便进一步列举网络资源。具体的程序段如下:

{ Res : DWORD; lphEnum : THandle; }

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

Nil

lphEnum);

If Res <> NO_ERROR Then exit;//执行失败

(2)用API函数WNetEnumResource可以获取网络类型信息,此时要用到上面获取的句柄lphEnum,

可以获取一个NetResource类型的数组,每个NetResource元素即为一种网络类型信息。

具体的请参见以下程序段及注释信息。

type

TNetResourceArray = ^TNetResource;//网络类型的数组

Var

NetResource : TNetResource;

Buf : Pointer;

Count

BufSize

Res : DWORD;

lphEnum : THandle;

p : TNetResourceArray;

i

j : SmallInt;

NetworkTypeList : TList;

begin

......

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);//获取网络类型信息

If ( Res = ERROR_NO_MORE_ITEMS )//资源列举完毕

or (Res <> NO_ERROR )//执行失败

Then Exit;

P := TNetResourceArray(Buf);

For I := 0 To Count - 1 Do//记录各个网络类型的信息

Begin

NetworkTypeList.Add(p);

Inc(P);

End;

......

end;

2、获取工作组信息

在获取网络类型信息后,可以根据此信息获取此类型网络中的服务器(工作组)信息。

在WNetOpenEnum函数中,将参数lpNetResource指定为一种网络类型信息,可以获取一个句柄,在WNetEnumResource中利用这个句柄,可以获取一个NetResource类型的数组,每个NetResource元素的lpRemoteName部分即为一个工作组名称(如MyWorkGroup”)。

具体的请参见以下程序段及注释信息。

//列出一个网络类型中的所有工作组名称

NetResource := TNetResource(NetworkTypeList.Items[J]^);//网络类型信息

//获取某个网络类型的文件资源的句柄,NetResource为网络类型信息,lphEnum为返回句柄

Res := WNetOpenEnum(RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

@NetResource

lphEnum);

If Res <> NO_ERROR Then break;//执行失败

While true Do//列举一个网络类型的所有工作组的信息

Begin

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

//获取一个网络类型的文件资源信息,

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);

If ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕

or (Res <> NO_ERROR) //执行失败

then break;

P := TNetResourceArray(Buf);

For I := 0 To Count - 1 Do//列举各个工作组的信息

Begin

List.Add( StrPAS( P^.lpRemoteName ));//取得一个工作组的名称

Inc(P);

End;

End;

3、获取工作组信息的完全源代码

//列举出整个网络中的工作组名称,返回值为TRUE表示执行成功,

//参数List中返回服务器(工作组)的名称

Function GetServerList( var List : TStringList ) : Boolean;

Var

NetResource : TNetResource;

Buf : Pointer;

Count

BufSize

Res : DWORD;

lphEnum : THandle;

p : TNetResourceArray;

i

j : SmallInt;

NetworkTypeList : TList;

Begin

Result := False;

NetworkTypeList := TList.Create;

List.Clear;

//获取整个网络中的文件资源的句柄,lphEnum为返回名柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

Nil

lphEnum);

If Res <> NO_ERROR Then exit;//Raise Exception(Res);//执行失败

//获取整个网络中的网络类型信息

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);

If ( Res = ERROR_NO_MORE_ITEMS )//资源列举完毕

or (Res <> NO_ERROR )//执行失败

Then Exit;

P := TNetResourceArray(Buf);

For I := 0 To Count - 1 Do//记录各个网络类型的信息

Begin

NetworkTypeList.Add(p);

Inc(P);

End;

//WNetCloseEnum关闭一个列举句柄

Res := WNetCloseEnum(lphEnum);//关闭一次列举

If Res <> NO_ERROR Then exit;

For J := 0 To NetworkTypeList.Count-1 Do //列出各个网络类型中的所有工作组名称

Begin//列出一个网络类型中的所有工作组名称

NetResource := TNetResource(NetworkTypeList.Items[J]^);//网络类型信息

//获取某个网络类型的文件资源的句柄,NetResource为网络类型信息,lphEnum为返回名柄

Res := WNetOpenEnum(RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

@NetResource

lphEnum);

If Res <> NO_ERROR Then break;//执行失败

While true Do//列举一个网络类型的所有工作组的信息

Begin

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

//获取一个网络类型的文件资源信息,

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);

If ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕

or (Res <> NO_ERROR) //执行失败

then break;

P := TNetResourceArray(Buf);

For I := 0 To Count - 1 Do//列举各个工作组的信息

Begin

List.Add( StrPAS( P^.lpRemoteName ));//取得一个工作组的名称

Inc(P);

End;

End;

Res := WNetCloseEnum(lphEnum);//关闭一次列举

If Res <> NO_ERROR Then break;//执行失败

End;

Result := True;

FreeMem(Buf);

NetworkTypeList.Destroy;

End;

二、列举一个工作组中的计算机名称

在WNetOpenEnum函数中,将参数lpNetResource中的lpRemoteName部分指定为一个工作组的名称(如“MyWorkGroup”),可以获取一个句柄,在WNetEnumResource中利用这个句柄,可以获取一个NetResource类型的数组,每个NetResource元素的lpRemoteName部分即为一个计算机名称(如“\\wangfajun”)。

具体的请参见以下程序段及注释信息。

NetResource.lpRemoteName := @GroupName[1];//指定工作组名称

NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//显示类型为服务器(工作组)

NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;

NetResource.dwScope := RESOURCETYPE_DISK;//列举文件资源信息

//获取指定工作组的网络资源句柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

@NetResource

lphEnum);

获取计算机名称的完全程序源代码如下:

//列举出指定工作组GroupName中的计算机名称,返回值为TRUE表示执行成功,

//参数List中返回计算机名称

Function GetUsers( GroupName : string; var List : TStringList ) : Boolean;

Var

NetResource : TNetResource;

Buf : Pointer;

Count

BufSize

Res : DWord;

Ind : Integer;

lphEnum : THandle;

Temp : TNetResourceArray;

Begin

Result := False;

List.Clear;

FillChar(NetResource

SizeOf(NetResource)

0);//初始化网络层次信息

NetResource.lpRemoteName := @GroupName[1];//指定工作组名称

NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//类型为服务器(工作组)

NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;

NetResource.dwScope := RESOURCETYPE_DISK;//列举文件资源信息

//获取指定工作组的网络资源句柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

@NetResource

lphEnum);

If Res <> NO_ERROR Then Exit; //执行失败

While True Do//列举指定工作组的网络资源

Begin

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

//获取计算机名称

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);

If Res = ERROR_NO_MORE_ITEMS Then break;//资源列举完毕

If (Res <> NO_ERROR) then Exit;//执行失败

Temp := TNetResourceArray(Buf);

For Ind := 0 to Count - 1 do//列举工作组的计算机名称

Begin

//获取工作组的计算机名称,+2表示删除"\\",如\\wangfajun=>wangfajun

List.Add(Temp^.lpRemoteName + 2);

Inc(Temp);

End;

End;

Res := WNetCloseEnum(lphEnum);//关闭一次列举

If Res <> NO_ERROR Then exit;//执行失败

Result := True;

FreeMem(Buf);

End;

三、列举一个计算机中的共享资源

在WNetOpenEnum函数中,将参数lpNetResource中的lpRemoteName部分指定为一个计算机的名称(如“\\wangfajun”),可以获取一个句柄,在WNetEnumResource中利用这个句柄,可以获取一个NetResource类型的数组,每个NetResource元素的lpRemoteName部分即为计算机中的共享资源名称(可以是共享目录和文件名称、共享打印机名称等,如“\\wangfajun\共享文件”)。

具体的请参见以下程序段及注释信息。

NetResource.lpRemoteName := @UserName[1];//指定计算机名称

//获取指定计算机的网络资源句柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_ANY

RESOURCEUSAGE_CONNECTABLE

@NetResource

lphEnum);

获取计算机名称的完全程序源代码如下:

//列举出指定计算机UserName中的共享资源名称,返回值为TRUE表示执行成功,

//参数List中返回共享资源名称

Function GetUserResource( UserName : string ; var List : TStringList ) : Boolean;

Var

NetResource : TNetResource;

Buf : Pointer;

Count

BufSize

Res : DWord;

Ind : Integer;

lphEnum : THandle;

Temp : TNetResourceArray;

Begin

Result := False;

List.Clear;

FillChar(NetResource

SizeOf(NetResource)

0);//初始化网络层次信息

NetResource.lpRemoteName := @UserName[1];//指定计算机名称

//获取指定计算机的网络资源句柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_ANY

RESOURCEUSAGE_CONNECTABLE

@NetResource

lphEnum);

If Res <> NO_ERROR Then exit;//执行失败

While True Do//列举指定工作组的网络资源

Begin

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

//获取指定计算机的网络资源名称

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);

If Res = ERROR_NO_MORE_ITEMS Then break;//资源列举完毕

If (Res <> NO_ERROR) then Exit;//执行失败

Temp := TNetResourceArray(Buf);

For Ind := 0 to Count - 1 do

Begin

//获取指定计算机中的共享资源名称,+2表示删除"\\",

//如\\wangfajun=>wangfajun

List.Add(Temp^.lpRemoteName + 2);

Inc(Temp);

End;

End;

Res := WNetCloseEnum(lphEnum);//关闭一次列举

If Res <> NO_ERROR Then exit;//执行失败

Result := True;

FreeMem(Buf);

End;

以上程序在PWIN98+DELPHI3.0下调试通过。

android.resource://这个Uri你知道吗 ADT插件的10.0.1必须要Eclipse 3.5才能升级 Android线程优先级设置方法 Android Zip文件解压缩代码 Android开发之设置断点单步调试 Android裁剪图片最简单方法 Android平台待开发软件列表 Android开发知识-3月13日总结 Android平板开发注意点 Android 3.0自带的天气预报例子代码 Loader和Fragment使用示例代码 LoaderManager - Android 3.0新特性 帮助ADT改进DDMS中的Logcat中文乱码问题 Fragment API将兼容Android 1.6到3.0 通过Linux Shell实现Android横竖屏切换 Android高手应该精通哪些内容? Android 2.2开始resources.arsc有改变 分析你的Android ANR错误 API Level对照表,更新至2.3.3 ProcessDialog结合Thread处理耗时操作 Fragment示例代码 DialogFragment示例代码 ActionBar示例代码 (二) Action Bar示例代码 (一) ActionBar使用方法 - Android活动栏(二) Action Bar使用方法 - Android活动栏(一) DialogFragment类介绍 Android Fragment使用详解 Fragment对比Activity - Android碎片介绍 Android 3.0新增日历控件CalendarView Android JSON写入类 - JsonWriter 求教mshflexgrid解除绑定后仍显示原记录的方法!请各位大侠指教! 在Windows2000中怎样设置默认打印机? 调用webservice,出现(http401失败:Access Denied)怎么办? 如何利用xsl转换xml文件为html,并将xml文件的内容嵌入到生成的html的数据岛中(xml数据是动态生成的) 请问vs.net中的解决方案和项目以什么尺度来划分 (转)请辞书 一个继承的问题... 声音嘶哑低沉,无论谁听了,都会觉得很不舒服,可是随着这语声走上楼来的,却是个风华绝代的女人 sql语句的问题 我想把本地的数据库导到远端的服务器上,该怎么做? ?!我怎么看不了帖子内容啊?!点开每一贴都出现同样的页面如下,各位是怎样? 我只能看见标题:( cad开次开发 安装win2000 ad server时的两个问题 再问如何备份远程数据库到本地文件? 请问在redhat8.0中有英汉词典的软件包吗?! 有关JavaMail取得的正文和标题是乱码的问题? 注册表的问题,有什么方法*****(送100分) 请问黑龙江中程成绩怎么查呀? 请问.net能在linux等操作系统上运行吗? 一个简单的问题? 请问哪里有delphi第三方控件开发和使用的书籍下载啊? 请问.net能在linux等操作系统上运行吗? 请问awt和swing有什么本质的不同呢?! 有点难度的sql 90分!看看这段JSP程序为什么出错。谢了! 模式窗体的postback 求教:在在模式对话框BOOL CXXX::OnInitDialog()中InitSocket()初始化失败,怎样退出该模式对话框 关于JTable,如何设置一行的颜色。 一个很简单的问题 读取远程的页面文件内容,但需要搜索结果的页面,请问如何实现??? 写了一个telnet服务器端程序,不能用exit退出,请大家帮忙看看~~谢谢! ?!我怎么看不了帖子内容啊?!点开每一贴都出现同样的页面如下,各位是怎样? 我只能看见标题:( 图片文件上载页,在上载页中实现预览的问题?急! 我的Asp为什么不能执行? 请教xml问题。 如何动态获得表单中checkbox中的name的值还有获得其值。 如何在UNIX下配置 Tomcat4.0 + Apache1.3 + JDK1.3? 在线等待! 请问版主:为何我在本版搜索“多语言”,找到的结果中没一个打得开? 如何在一个菜单项里控制另一个菜单项的状态(如变灰) 菜鸟问题 关于几个按钮布局?急 求救:关于在程序中运行其他程序的问题! 请问哪有Report Machine的下载? 请问只知道备份文件如何恢复数据库? To:qxjavajava: 哪里可以找到scjd的题目大家先做一下? 高程水平压线通过后的一点总结 请帮初学者看看这段简单的代码!感激t0 '_bstr_t' : missing storage-class or type specifiers 文件操作安全问题,请微软专家和各位高手进来看看 请教tdbgrid如何在非绑定模式下加入新行写入数据 问一下,在datagrid里加入comboBox控件后,怎样使comboBox的边框不可见? ==高手请看,数据库备分恢复问题== 哈林遭张学友揭发:孤独等爱的老铁人从对手到半路父女钟伟强:我给毕夏80《兰陵王》毛林林晒拍摄搞笑照力证自己Angelababy金汎为爱深陷谜案独家连线:阚立文赛前感冒朱克曝几乎无终极考核添新花样:新增Double环陈妍希演小龙女被骂 细数历届绝色小龙每个人都有一张不堪回首的童年照片《中国梦之声》学员艾菲晒美照反驳整容《好声音》两组战队考核收视比拼汪峰险李代沫为事业暂放感情费玉清劝其恋爱也陶虹大露裸背与男子热拥遭咸猪手乱摸面港姐10强素颜照惊吓路人 网友:是鬼专访姚贝娜×林育群:我们的失误是相互​贾轶男曝汪峰选人纠结:想在抢人时把17岁最萌女汉子走红 天使面孔猛男身杭州男子认为银行强拉存款 为出气狂办浙江多所中学入围百所重点中学 官方称杭州城东发生电梯关人事件 十八个姑娘杭州熬过了高温又遇到大雨 蔬菜损失惨浙江已经进入夏秋过渡期 高温要杀个回谎称印尼买矿山 骗亲友融资千万本月8日至10日 福州温泉宾馆有古玉污染屡遭投诉 福州民天食品厂将搬榕八所一类校 今年招定向生2119人青运会测试赛本月底起轮番上演哪儿“鼎边”味最美 请您推荐晋安河公园浦下段:入口限行栏 一月被分租房起火 烧出一堆问题支持平潭建国际旅游岛民警凭其自拍照 寻到传销窝中水电十六局 多措施防冒浆第八届世界中学生汉语桥比赛意大利赛区乐基儿身材变瘦穿性感长裙亮相 谈恋爱重税控烟,也要改专卖格局通讯:日本老兵摄影展再现日军侵华暴行专访:“一带一路”为阿中关系带来新契这个总理有个性2015全国网络媒体贵州茶香行正式启中俄共抗法西斯 习主席讲到的那些人和爱女打针梁咏琪跟着落泪:打在儿身痛在美探险家寻获50公斤银条 称发现“金
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘