局域网上列出所有共享文件的问题!急!!!!!!!!!!!!!!!(100分)

  • 主题发起人 主题发起人 oyzter
  • 开始时间 开始时间
O

oyzter

Unregistered / Unconfirmed
GUEST, unregistred user!
用findFirst和findNext等API可以列出,
但如果网络响应慢的话,线程会迟迟不返回,
且内存会占用好多,有无其他方法,请高手指点,
急!!!!!!!!!!!!!!!
没什么分了,请见谅!!!
 
我做了这样一个程序
http://service.lonetear.com/delphi/dispdoc.asp?id=18
用的是多线程,速度还凑合。

只是查找文件时用的也是findFirst和findNext,不知是否有更好的办法?
 
搜索共享资源

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
List.Add(Temp^.lpRemoteName);
Inc(Temp);
End;
End;
Res := WNetCloseEnum(lphEnum); //关闭一次列举
If Res <> NO_ERROR Then exit; //执行失败
Result := True;
FreeMem(Buf);
End;


procedure TForm1.Button1Click(Sender: TObject);
var
List:TstringList;
i:integer;
begin
try
List:=TstringList.Create;
if GetUserResource(edit1.text,List) then
if List.count=0 then //指定计算机下没有找到共享资源
begin
memo1.Lines.Add (edit1.text+'下没有找到共享资源!');
end
else
memo1.Lines.Add (edit1.text+'下的所有共享资源如下:');
for i:=0 to List.Count-1 do
begin
Memo1.lines.Add (List.strings);
end;
finally
List:=TstringList.Create; //如有异常则释放分配的资源
end;
end;
 
我看了你的线程,
不过你的程序是指定一个计算机名的,
而我想做的是扫描一个IP段,
把所有共享文件都分类列出,
因而内存会变得好大。
 
我的程序能做到。:)
 
你点一下那个“自动搜索”按纽。
 
to louhong:
你好,
这样是可以列举资源,
可是我要列举所有文件,所以当IP段太长时,内存占用非常大!
 
我知道了,
你那个是可以列出网络邻居上有的,或以前找开过的!
可是我这个网络可能是因为有好多计算机在不同网段的原因,
网络邻居上列不出来!
所以每次都要从10.0.0.1列到10.0.5.255查一次,
 
我想知道有无方法可以控制线程,
使其不至于又占用100%的cpu资源,又占用了几倍于其他程序的内存!
 
多人接受答案了。
 
后退
顶部