Форум: "Сети";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];
ВнизОпределение IP и поиск компов в локалке Найти похожие ветки
← →
Perf (2003-12-26 09:07) [0]Код определения IP и нахождения компов уже есть, мне надо сделать 2 блок-схемы для этих двух функций:
1)
function GetIPAddress(NetworkName: String): String;
var
Error: DWORD;
HostEntry: PHostEnt;
Data: WSAData;
Address: In_Addr;
begin
Delete(NetworkName, 1, 2);
Error:=WSAStartup(MakeWord(1, 1), Data);
if Error = 0 then
begin
HostEntry:=gethostbyname(PChar(NetworkName));
Error:=GetLastError;
if Error = 0 then
begin
Address:=PInAddr(HostEntry^.h_addr_list^)^;
Result:=inet_ntoa(Address);
end
else
Result:="Unknown";
end
else
Result:="Error";
WSACleanup;
end;
2)
procedure TDemoThread.Scan(Res: TNetResource; Root: boolean);
var
hEnum: cardinal;
nrResource: array[0..512] of TNetResource;
dwSize: DWORD;
numEntries: DWORD;
I: DWORD;
dwResult: DWORD;
begin
if Root then
dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
0, nil, hEnum)
else
dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
0, @Res, hEnum);
if dwResult = NO_ERROR then
begin
dwSize := SizeOf(nrResource);
numEntries := DWORD(-1);
if WNetEnumResource(hEnum, numEntries, @nrResource, dwSize) = NO_ERROR then
begin
for i := 0 to numEntries - 1 do
begin
if Terminated then Exit;
if Assigned(nrResource[i].lpRemoteName) then
if nrResource[i].dwDisplayType = RESOURCEDISPLAYTYPE_DOMAIN then
TreeDomain := TreeView.Items.Add(nil, nrResource[i].lpRemoteName)
else
if nrResource[i].dwDisplayType = RESOURCEDISPLAYTYPE_SERVER then
TreeServer := TreeView.Items.AddChild(TreeDomain, nrResource[i].lpRemoteName + " IP: " + GetIPAddress(nrResource[i].lpRemoteName))
else
TreeView.Items.AddChild(TreeServer, nrResource[i].lpRemoteName);
Scan(nrResource[i], false);
end;
WNetCloseEnum(hEnum);
end;
end;
end;
Помогите пожалуйста нарисовать алгоритм в виде блок-схемы, а то у меня что то не получается, может кто тут это умеет?
← →
Dimka Maslov (2003-12-26 13:40) [1]Какая тут может быть блок-схема?
← →
Perf (2003-12-27 16:47) [2]А все, уже сделал)))
Очень просто делается, зря беспокоил))
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c