在delhpi程序中获取网络资源信息

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

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

　　在ＤＥＬＰＨＩ程序中，我们可以通过ＷＩＮ　ＡＰＩ来列举局域网络中的服务器名称、用户计算机名称、用户共享目录和文件、共享打印机等资源，这些ＡＰＩ由文件ＭＰＲ．ＤＬＬ提供。

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

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

　　在“网络邻居”中，打开“整个网络”，可以看到网络中的所有工作组的名称。在ＤＥＬＰＨＩ程序中，可以用ＡＰＩ函数WNetOpenEnum和WNetEnumResource来列举“网络邻居”中的工作组名称。

　　下面是两个ＡＰＩ函数的简介，具体请参见ＤＥＬＰＨＩ帮助文件。

　　//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用于列出当前网络中可用的资源，包括文件资源和打印资源，其函数原型如下：

热门推荐：ASP与数据库应用（给初学者）  php入门