充分利用局域网中的共享资源,无疑将减少用户的硬件和软件投资。在我们的程序中,常常会需要列举局域网络中的共享资源,如在MIDAS多层应用程序中可能要选择上层应用程序所在的服务器的名称、在打印模块中选择可用的网络打印机、在应用程序中选择其它机器上的共享文件等。 sDgo G
,%/F,O+#
s!gVY!0
H]V(qq{
以一个MIDAS三层数据库应用程序为例子,我们可以用DELPHI制作一个客户端应用程序和一个中间层业务处理程序,由中间层业务处理程序向数据库存取数据,再将结果反馈到客户端。当客户端应用程序与中间层程序和数据库服务程序不在一台机器上时,需要指定中间层程序和数据库服务程序所在的服务器的名称。 yWc%z6dXC
dcemF
8M3DG=D
4Z{R36 {
在DELPHI程序中,我们可以通过WIN API来列举局域网络中的服务器名称、用户计算机名称、用户共享目录和文件、共享打印机等资源,这些API由文件MPR.DLL提供。 ]E:L
R^@`]dX$
XH0Vs.w
#.]W>hN8\
下面以WIN9X的对等网络为例子,列举“网络邻居”中的工作组名称、用户计算机名称、共享目录和文件、共享打印机等资源。 Y._ACQG3
yIpgZ0:h
H^B,b!5i
JeVbFZ8
一、列举“网络邻居”中的工作组名称 v8uUv%Hkd
&2y9J2aA
"_dJ4<8
*
kL>9
在“网络邻居”中,打开“整个网络”,可以看到网络中的所有工作组的名称。在DELPHI程序中,可以用API函数WNetOpenEnum和WNetEnumResource来列举“网络邻居”中的工作组名称。 Lo[;{A$u
8PeVHpZ
Ub\&k[F
?<0'h{z Ny
下面是两个API函数的简介,具体请参见DELPHI帮助文件。 _wg~5'w8
o+^e+ptc
{9@E[bWp#
HF&dHD2f
//WNetOpenEnum用于获取一个网络资源句柄,作为WNetEnumResource列举网络资源的依据,其函数原型如下: zuJ` 704
"AWk
jdj
rP6k}
f~jdN~
function WNetOpenEnum( y
</i1qM
sSiZG
P4MP`A
URh5ajoR%
dwScope,//网络范围,RESOURCE_CONNECTED(已连接机器),RESOURCE_GLOBALNET(所有机器), Ra~:O\Z
'r^'wv]
Jx&+e,OST
zZ<~yi3A9
RESOURCE_REMEMBERED(已记忆的机器) >NpW$P{'
$Ixd;`l*
f|!@H><
(Zy=e?E,
dwType,//资源类型,RESOURCETYPE_ANY(所有资源),RESOURCETYPE_DISK(文件资源), %z
@T /
lvk*Db$
<dk9n}y<,
<(qdxdUp
RESOURCETYPE_PRINT(打印资源) Z\?!&&
p7*7V.>X
2NL|_W/
!wrAD"l*@
dwUsage//资源用途,0(所有资源),RESOURCEUSAGE_CONNECTABLE(所有可连接资源), KA`)dMWL
#)6
bfyi-
LR17ilaa'
z8};(I>)
RESOURCEUSAGE_CONTAINER(所有container资源)仅在dwScope为RESOURCE_GLOBALNET是有效: DWORD; E?mW4?
M?$tHA~OX
SYOU&*
Y}x_ud,
lpNetResource: PNetResource;//NetResource类型指针,其内存表示网络资源的层次,为NIL时 Ga*
C|ou7g4'p
Lr>4~1:`
! }awlv;
表示最上层,仅在dwScope为RESOURCE_GLOBALNET时有效,其它情况时应为NIL 0`WZ
Lhgs|*M
%bnjK#o"Q
1Imb"E
var lphEnum: THandle//返回网络资源句柄,是WNetEnumResource进一步列举网络资源的依据 KEr?&e
l%xeM!}
%A(hmC
fli7Ow?M~
): DWORD; stdcall;返回值NO_ERROR表示执行成功,否则应用GetLastError获取错误信息 ui^v.YCMI
w?c~be$
=u&NdMy
|1 LKdP
//WNetEnumResource用于列出当前网络中可用的资源,包括文件资源和打印资源,其函数原型如下: yj`xOncE}
PuU<
bNz2Uo!0K
SYK?5_804
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获取错误信息。 inx0W3d"T
x\(yjNZH
%gx>|
IRDD
nHF
AzBpQb*
>5]w\^QN9_
[k6,!e[/uG
要列举网络中的工作组信息,首先要获取网络中的网络类型,再获取每一种类型网络中包含的工作组的名称。 d e~3:
C;!h4l7L
rxI Ygh
V=H}Ecd
1、获取网络类型信息 xZ&S7G1