Скачать: CL | DM;

Получение логина и айпи юзера   Найти похожие ветки 

← →
Сатир   (2006-02-28 14:40) [0]

У меня есть клиент-серверное приложение, написанное на Delphi с использованием TSocketConnection. Нужно в сервере логировать имя пользователя и название такчки в локалке(или её айпи), который залогинился на сервере.
Кто знает, с помощью каких средств это можно сделать?

---

← →
DSKalugin ©   (2006-02-28 16:27) [1]

Win32 API
GetUserName()
GetComputerName()

---

← →
Сатир   (2006-02-28 16:59) [2]

> GetUserName()
> GetComputerName()

эти функиции возвращают юзера и имя тачки, на которой запущен сервер, а нужно с той, с которой было подключение

---

← →
Zeqfreed ©   (2006-02-28 17:07) [3]

Нужно воспользоваться

> GetUserName()
> GetComputerName()

в клиенте и передать данные на сервер.

---

← →
DSKalugin ©   (2006-02-28 18:07) [4]

2 Zeqfreed

Умному и намека достаточно :-)

---

← →
Сатир   (2006-02-28 19:07) [5]

дело в том, что у меня БД Оракл
и в соответсвующие поля значения записываются через системные ф-ции оракла, например
IP_ADDRESS sys_context("USERENV", "IP_ADDRESS")  
OS_USER   sys_context("USERENV", "OS_USER")
TERMINAL sys_context("USERENV", "terminal")  
Вопрос? у кого-то есть описание этих ф-ций и значения параметров, которые можно в них передавать?

---

← →
Сатир   (2006-02-28 19:20) [6]

где находится описание ф-ции sys_context? в доке по ораклу не нашёл...

---

← →
Kerk ©   (2006-02-28 19:24) [7]

Сатир   (28.02.06 19:20) [6]

По-моему во тут:
http://www.google.com/search?q=sys_context

---

← →
Сатир   (2006-02-28 19:44) [8]

ладно, от использования/модификации sys_context пока решил отказаться
и воспользовался ф-циями
GetUserName()
GetComputerName()
нашел в сети несколько примеров по использовании этих ф-ций и заметил, что пример использования GetComputerName() указан с ошибкой.

var LoggedUser,ComputerName:string;
   nsize,nsize2: Cardinal;
   ch,ch2 : array[0..1000] of Char;

begin
 GetUserName(ch,nsize);
 LoggedUser:=ch;
 nsize2:=MAX_COMPUTERNAME_LENGTH + 1;
 GetComputerName(ch2,nsize2);
 ComputerName:=ch2;

Авторы забыли указать выделенную строку, без неё имя компа оперделяется неверно

Всем спасибо за советы.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c