मैं एक पूरी तरह से लैन डिवाइस खोज करना चाहता हूं, ताकि मैं संलग्न एक के समान चित्र बना सकूं, लेकिन आईपी और मैक पते जैसी अतिरिक्त जानकारी के साथ।नेटवर्क इंफ्रास्ट्रक्चर डिस्कवरी
मैं Torry से कोड की कोशिश की है:
type
PNetResourceArray = ^TNetResourceArray;
TNetResourceArray = array[0..100] of TNetResource;
function CreateNetResourceList(ResourceType: DWord;
NetResource: PNetResource;
out Entries: DWord;
out List: PNetResourceArray): Boolean;
var
EnumHandle: THandle;
BufSize: DWord;
Res: DWord;
begin
Result := False;
List := Nil;
Entries := 0;
if WNetOpenEnum(RESOURCE_GLOBALNET,
ResourceType,
0,
NetResource,
EnumHandle) = NO_ERROR then begin
try
BufSize := $4000; // 16 kByte
GetMem(List, BufSize);
try
repeat
Entries := DWord(-1);
FillChar(List^, BufSize, 0);
Res := WNetEnumResource(EnumHandle, Entries, List, BufSize);
if Res = ERROR_MORE_DATA then
begin
ReAllocMem(List, BufSize);
end;
until Res <> ERROR_MORE_DATA;
Result := Res = NO_ERROR;
if not Result then
begin
FreeMem(List);
List := Nil;
Entries := 0;
end;
except
FreeMem(List);
raise;
end;
finally
WNetCloseEnum(EnumHandle);
end;
end;
end;
procedure ScanNetworkResources(ResourceType, DisplayType: DWord; List: TStrings);
procedure ScanLevel(NetResource: PNetResource);
var
Entries: DWord;
NetResourceList: PNetResourceArray;
i: Integer;
begin
if CreateNetResourceList(ResourceType, NetResource, Entries, NetResourceList) then try
for i := 0 to Integer(Entries) - 1 do
begin
if (DisplayType = RESOURCEDISPLAYTYPE_GENERIC) or
(NetResourceList[i].dwDisplayType = DisplayType) then begin
List.AddObject(NetResourceList[i].lpRemoteName,
Pointer(NetResourceList[i].dwDisplayType));
end;
if (NetResourceList[i].dwUsage and RESOURCEUSAGE_CONTAINER) <> 0 then
ScanLevel(@NetResourceList[i]);
end;
finally
FreeMem(NetResourceList);
end;
end;
begin
ScanLevel(Nil);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER, ListBox1.Items);
end;
लेकिन यह केवल नेटवर्क में कंप्यूटर के नाम देता है, रूटर और उनके आईपी पते के बिना। तो यह वास्तव में एक समाधान नहीं है।
क्या आप कृपया मुझे बता सकते हैं कि स्थानीय नेटवर्क में सभी आईपी और मैक पते के साथ सभी उपकरणों (राउटर, कंप्यूटर, प्रिंटर) को गिनने का एक अच्छा तरीका क्या है?
धन्यवाद।
एनएमएपी का उपयोग करें और परिणाम – mjn
का विश्लेषण करें मैं तीसरे पक्ष के ऐप्स का उपयोग करने पर "मूल" समाधान पसंद करूंगा। – Pateman
आपको आरआरयूजेड की साइट [यहां] पर कुछ रोचक ressouces मिल सकता है (http://theroadtodelphi.wordpress.com/category/networking/)। – menjaraz