компы в сети?

← →
linox (2005-12-21 13:55) [0]

Как просканировать компы в сети и вывести их на форму не в виде текста, а в виде обьектов???

← →
Digitman © (2005-12-21 15:16) [1]

> не в виде текста, а в виде обьектов?

"в виде обьектов" - это как ?

← →
Reindeer Moss Eater © (2005-12-21 15:19) [2]

Это когда один комп - не строка, а экземпляр объекта
:)

← →
Digitman © (2005-12-21 15:26) [3]

> Reindeer Moss Eater © (21.12.05 15:19) [2]

шутку юмора понял)

но вопрос, тем не менее, - к автору ..

← →
linox (2005-12-22 11:04) [4]

2 Digitman:
Net support school pro - знаеш такую прогу?
Так там компы не в виде строки отображаются (ІР), а в виде компа (как "Мой компютер"), а снизу пишет ІР. А потом ими (компами) можно управлять програмно.

← →
Ботвин Дмитрий (2005-12-22 11:10) [5]

linox (22.12.05 11:04) [4]

Заполняешь TTreeView и в качестве пиктограммы узла используешь иконку
компа. А вот фраза правлять ими програмно весьма туманна, что именно то
нужно делать?

← →
Anatoly Podgoretsky © (2005-12-22 11:10) [6]

linox (21.12.05 13:55)
Конструктор Create нужного класса.

← →
linox (2005-12-22 12:39) [7]

2 Ботвин Дмитрий:
отключать им клавиатуру, мышь, выключать, завершать сеансы. Через компонент serversocket не могу роздуплить как это сделать?

← →
Digitman © (2005-12-22 12:41) [8]

> Через компонент

> роздуплить

клоун

← →
IceBeerg © (2005-12-22 13:38) [9]

Создает класс, напрмер TComputer
Объявляеш например массив компров
ComputerArray: array [0..MaxComputer] of TComputer;
И потом выводиш
For ComputerNum=1 to ComputerCount do ComputerArray[ComputerNum]:=TComputer.Create;

а просканировать как сам думай

← →
IceBeerg © (2005-12-22 13:39) [10]

Удалено модератором

← →
linox (2005-12-22 16:08) [11]

Удалено модератором

← →
linox (2005-12-22 16:34) [12]

подскажите пожалуйста как просканировать компы???

← →
Digitman © (2005-12-22 16:40) [13]

> как просканировать компы???

на предмет получения какой конкретно информации ?

← →
linox (2005-12-22 16:49) [14]

2 Digitman:
для начала хотя бы чтобы вывести их ІР.....

← →
Digitman © (2005-12-22 16:52) [15]

пингуй каждый из элементов диапазона адресов для данной подсети с заданной маской.

← →
IceBeerg © (2005-12-22 16:58) [16]

linox (22.12.05 16:34) [12]
А а яндексе поискать самому слабо?

← →
linox (2005-12-23 11:23) [17]

2 Digitman:
алгоритм я знаю, я немогу его реализовать средствамиделфи (не хватает навыков работы с сетями)

> алгоритм я знаю, я немогу его реализовать средствамиделфи

хорошо.
опиши алгоритм, а по непонятным моментам его кодирования в ObjectPascal подскажем ...

← →
linox (2005-12-23 12:06) [19]

2 Digitman:
в сети есть окло 25 компов. Мне для управления нужно вывести на форму только 8 из них (для начала).
Я на форме должен вводить нужный ай пи, и должен появлятся комп с введенным ай пи.
mожет есть функция что то вроде getIP?????

хорош алгоритм :)

← →
Se (2005-12-24 08:28) [21]

function FindComps(xxx:PNetResource):Word;
type
PNRArr = ^TNRArr;
TNRArr = array[0..59] of TNetResource;
var
x: PNRArr;
tnr: TNetResource;
I : integer;
EntrReq,
SizeReq,
twx: THandle;
WSName: string;
CompName:string;
CompAddr:dword;
CompAddres:string;
begin
//
Result:=WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER, xxx, twx);
if Result=ERROR_NO_NETWORK then Exit;
if Result=NO_ERROR then begin
New(x);
EntrReq:=1;
SizeReq:=SizeOf(TNetResource)*59;
while (twx<>0)and(WNetEnumResource(twx,EntrReq,x,SizeReq)<>ERROR_NO_MORE_ITEMS) do begin
for i:=0 to EntrReq-1 do begin
Move(x^[i], tnr, SizeOf(tnr));
case tnr.dwDisplayType of
RESOURCEDISPLAYTYPE_SERVER: begin
if tnr.lpRemoteName <> "" then WSName:=copy(tnr.lpRemoteName,3,length(tnr.lpRemoteName)-2)
else WSName:=copy(tnr.lpComment ,3,length(tnr.lpComment) -2);
//Добавляем компьютеры в список
//..
end;
else
_FindAllComps(@tnr,ListComps);
end;
end;
end;
Dispose(x);
WNetCloseEnum(twx);
end;
end;

Вызов:
FindComps(nil);

← →
Se (2005-12-24 11:52) [22]

вместо строчки
_FindAllComps(@tnr,ListComps);
надо
FindComps(@tnr);

← →
linox (2005-12-26 16:40) [23]

2 Se
благодарю!!!!
С наступающими праздниками!!!

← →
linox (2005-12-26 16:43) [24]

После праздников буду применять, счас нету времени...
если еще кто что-то подобное знает то пишите буду рад

компы в сети? Найти похожие ветки