Гляделка сетевых подключений - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Гляделка сетевых подключений (http://forum.oszone.net/showthread.php?t=30839)

Как вообще можно написать прогу чтобы она показывала всех подключившихся к сети(типа NetWatherPro)

Добавлено:

И чтобы пахал под Win2k

Nik
NetSessionEnum

vasketsov
ты сам пробовал использовать NetSessionEnum?

Igo
на этот странный вопрос я отвечу ссылкой на свой сайт, там внизу слева есть ссылка на софт, вот TaskEx не только это делает. Закладки обозваны недвусмысленно, так что милости прошу, по конкретной инфе уже и общаться будем. А не то что пробовал или нет.

vasketsov

видишь ли, я не могу знать кто какие программы написал, и поинтересовался, пользовался ли ты этой функцией.
раз пользовался, то возможно знаешь в чем проблема, а то до смешного уже дошло:-)
сбрасываю код:

Код:

function NetSessionEnum (SrverName:PChar;sLevel:dword;

 * * * *pbBuffer:pointer;cbBuffer:dword;Read,

 * * * *TotalAvial:pointer):integer; stdcall;

 * * * *external 'svrapi.dll';



type

 * *session_info_50 = record

 * * * *ses50_cname : PChar;

 * * * *ses50_username : PChar;

 * * * *ses50_key : LongInt;

 * * * *ses50_num_conns : short;

 * * * *ses50_num_opens : short;

 * * * *ses50_time : LongInt;

 * * * *ses50_idle_time : LongInt;

 * * * *ses50_protocol : char;

 * * * *pad1 : char;

end;

........

var

 SessionInfo: array [0..512] of session_info_50;

 read,TotalAvial: Word;

 i:integer;

begin

 NetSessionEnum (nil,50,@SessionInfo,SizeOf(SessionInfo),@Read,@TotalAvial);

 for i:=0 to Read-1 do

 * with SessionInfo[[i]] do

 * begin

 * ListBox.Items.Add(ses50_username);

 * * {здесь можешь узнать о каждом подключении...}

 * end;

end;

все просто "до немогу"...
так вот, при подключении 2-ух компов read = 2, но в SessionInfo лежит информация только об одном подключении и на втором проходе цикла ListBox.Items.Add(ses50_username) грязно ругается...
подскажи в чем дело?