Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];

Вниз

Тема старая но теперь под 2000/ХП   Найти похожие ветки 

 
Alex Bykov   (2002-10-10 13:27) [0]

Как опребелить кто в данное время подключенк моим расшареным ресурсам.


 
Армен Тоноян   (2002-10-10 18:06) [1]

Сталкивался с такой проблемой решение очень протое (если я правильно понял вопрос конечно) Работа идет под любой серверной частью например InterBase! просто создается один табле в котором только два поля одно изкоторых или текстовое и содержит имя клиента или Интеджер равен коду клиента второе поле логическое где True - Client в программе, False - Client-а в программе нет
на событие On creaty main formi Locam становишся на нужного входящего клиента и логической переменной присваиваеш значение True и соответственно на событие Close _ False. Паралельно решаеш проблему доступа двух юзеров под одном логом !

Решение проверенно на програме для управления работой малых и средних IT компаний (автор я сам)

Если есть вопросы мой майл есть !


 
Alex Bykov   (2002-10-18 17:19) [2]

Как опребелить кто в данное время подключенк моим расшареным ресурсам. Тоесть кто п в локалке зашел на мой комп и смотрит с меня фильмы и слуает музло :)


 
Rouse_   (2002-10-20 10:05) [3]

Если нужно узнать КТО подключен, значит это сессии
Вот так примерно это делается

type
TSessionInfo10 = packed record
sesi10_cname : PWChar;
sesi10_username : PWChar;
sesi10_time : DWORD;
sesi10_idle_time : DWORD;
end;
PSessionInfo10 = ^TSessionInfo10;
TSessionInfo10Array = array[0..512] of TSessionInfo10;
PSessionInfo10Array = ^TSessionInfo10Array;


var
NetSessionEnumNT : function (servername,UncClientName,username:PWChar;level:DWORD;bufptr:Pointer;prefmaxlen:DWORD;entriesread,totalentries,resume_handle:LPDWORD):DWORD; stdcall;

procedure XXXX
var FLibHandle : THandle;
SessionInfo10 : PSessionInfo10Array;
TotalEntries,EntriesReadNT: DWORD;
i:Integer;
begin
FLibHandle := LoadLibrary("NETAPI32.DLL");
if FLibHandle <> 0 then
try
@NetSessionEnumNT := GetProcAddress(FLibHandle, "NetSessionEnum");
SessionInfo10 := nil;

if NetSessionEnumNT(nil,nil,nil,10,@SessionInfo10,DWORD(-1),@entriesreadNT, @totalentries, nil)=0 then

for i:=0 to EntriesReadNT-1 do
begin
with Form1.ListView3.Items.Add do
begin
Caption := string(SessionInfo10^[i].sesi10_username);
SubItems.Add(SessionInfo10^[i].sesi10_cname);
SubItems.Add(CardinalToStr(SessionInfo10^[i].Sesi10_Time));
SubItems.Add(CardinalToStr(SessionInfo10^[i].sesi10_idle_time));

end;
end;
finally
FreeLibrary(FLibHandle);
end;
end;


Желаю успехов



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.032 c
1-74732
trotski
2002-12-14 08:40
2002.12.23
Не нашел в FAQ


6-74878
naHkep
2002-10-27 20:44
2002.12.23
GET запрос


4-75045
Alexander
2002-11-10 11:13
2002.12.23
Можно ли выгрузить из памяти dll и как?


3-74564
_BasiL_
2002-12-04 13:21
2002.12.23
Переиндексация DBF


1-74647
malkolinge
2002-12-11 16:15
2002.12.23
Interface(Сложный вопрос)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский