[vasketsov]

Nik
NetSessionEnum

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

[vasketsov]

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) грязно ругается...
подскажи в чем дело?