作品详情

摘要：

1.1 系统总体架构

图4 系统架构图

1.3 系统功能模块设计

4.3.1 网络组件

4.3.2 用户信息显示功能

Function tform1.GetUsers( GroupName : string;List : TStringList) : Boolean;

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

Var

NetResource: TNetResource;  Buf: Pointer; Count,BufSize,Res: DWord;

lphEnum: THandle; Ind: Integer; Temp: TNetResourceArray; TmpStr:String;

Begin

 Result := False;

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

//获取工作组的计算机名称

    tmpStr:=Temp.lpRemoteName;

Delete(tmpstr,1,2);

Form1.ListBox1.Items.Add(tmpStr);

list.Add(tmpstr);

Inc(Temp);

  end;

end;

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

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

Result := True;

FreeMem(Buf);

end;

2) 工作组获取代码如下：

var //显示所有工作组的名称

NetResource : TNetResource;

Buf : Pointer;

Count,BufSize,Res : DWORD;   //一个无符号的，占四个字节（32）的整型//句柄类型

lphEnum : THandle;  

p : TNetResourceArray;i,j : SmallInt;

NetworkTypeList : TList;  //返回局域网中的工作组名称

…………

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

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; 

3) IP地址获取代码如下：

procedure TForm1.ServerUDPRead(Sender: TObject; AData: TStream;ABinding: TIdSocketHandle);

var

readbuf:array[0..2030]of char;

msg,head,recvip,recvname,recvworkgroup,recvmsg,memo:string; 

recvport:integer;

f:textfile;

begin

ZeroMemory(@readbuf[0],2030);

adata.Read(readbuf,sizeof(readbuf));

msg:=Trim(String(Pchar(@Readbuf[0])));

//memo1.Lines.Add(msg);

head:=trim(copy(msg,1,headlen));

//添加对方IP  1.返回对方IP 2. 发出Hand握手信息

if head='LOGIN' then 

begin

recvip:=abinding.PeerIP;

recvport:=9000;

// memo1.Lines.Add('login recv'+recvip+inttostr(recvport));

recvname:=copy(msg,headlen+1,namelen);

recvworkgroup:=copy(msg,headlen+namelen+1,length(msg));

adduser(recvname,recvworkgroup,recvip,recvport);

handdata(recvip,myname,myworkgroup,recvport);

end;

//添加对方返回的自己的ip (对比)

if head='REVLOG'then       

begin

//  memo1.Lines.Add('revlog recv');

RECVPORT:=strtoint(copy(msg,headlen+1,portlen));

recvip:=copy(msg,headlen+portlen+1,iplen);

recvlog(recvip,recvport);

end;