Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Узнать инфу(IP,логин,...) про клиента COM-объекта!! / 9 сообщений из 9, страница 1 из 1
14.03.2003, 16:39
    #32120386
manumba
manumba
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
Как СОМ-объект может узнать инфу про клиентов, которые коннектятся к нему? Нужно узнать IP, логин ! (ну, может и еще что-то, но это уже не столь важно)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2003, 17:49
    #32120666
maloi_alex
maloi_alex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
А в чем проблема-то ? Сделай, чтобы твой клиент мог передавть серверу информацию о себе, а сервер мог это информацию принимать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2003, 18:23
    #32120671
maloi_alex
maloi_alex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
//Ну например так:
type
TMyComObj = class(TTypedComObject, IMyComObj)
protected
function AddClientInfo(const ip, login: WideString): HResult; stdcall;
end;

implementation

uses ComServ;

function TMyComObj.AddClientInfo(const ip, login: WideString): HResult;
begin
MyClentList.Add(ip, login);
end;

//В клиенской части
MyServer:=TMyComObj.Create;
MyServer.AddClientInfo(MyIP, MyLogin);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2003, 11:40
    #32120730
manumba
manumba
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
В том то и дело, что СОМ-объект должен определять подключившегося к нему клиента автоматически....т.е. еще до того, как клиент начнет использовать функции этого СОМ-а.....
Тут вариант, когда клиент передает серверу свой интерфейс не подходит :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2003, 16:02
    #32120769
maloi_alex
maloi_alex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
Если не секрет, поделись для чего это тебе нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2003, 04:26
    #32120825
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
Скорее всего система безопасности....
кстате, очень даже интересный вопрос...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2003, 12:08
    #32121001
maloi_alex
maloi_alex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
Вобщем сначала нужно получить контекст вызова через CoGetCallContext. Эта функция возвращает указатель на интерфейс IServerSequrity, который позволяет получить информацию о вызывающем клиенте. Дальше пока не разобрался, нужно время чтобы в MSDN ковыряться.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2003, 13:15
    #32121080
maloi_alex
maloi_alex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
Можешь почитать эту статью.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2003, 13:23
    #32121088
manumba
manumba
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
function CallerId : string;
var
PrincipalName : PWideChar;
begin
OleCheck (CoQueryClientBlanket (NIL, NIL, NIL, 0, 0, @PrincipalName, 0));
Result := PrincipalName;
end;

Эта функция возвращает имя удаленной машины, с которой вызывается COM. Проблема в том, что она не работает при инициализации СОМ-сервера (при вызове метода сервера Initialize). А вот почему, я еще не разобрался.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Узнать инфу(IP,логин,...) про клиента COM-объекта!! / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]