ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Узнать инфу(IP,логин,...) про клиента COM-объекта!!
9 сообщений из 9, страница 1 из 1
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
    #32120386
manumba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
manumba
Участник
Как СОМ-объект может узнать инфу про клиентов, которые коннектятся к нему? Нужно узнать IP, логин ! (ну, может и еще что-то, но это уже не столь важно)
...
Рейтинг: 0 / 0
14.03.2003, 16:39
| Ответить | Цитировать | Написать  
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
    #32120666
Фотография maloi_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maloi_alex
Участник
А в чем проблема-то ? Сделай, чтобы твой клиент мог передавть серверу информацию о себе, а сервер мог это информацию принимать.
...
Рейтинг: 0 / 0
15.03.2003, 17:49
| Ответить | Цитировать | Написать  
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
    #32120671
Фотография maloi_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maloi_alex
Участник
//Ну например так:
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
15.03.2003, 18:23
| Ответить | Цитировать | Написать  
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
    #32120730
manumba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
manumba
Участник
В том то и дело, что СОМ-объект должен определять подключившегося к нему клиента автоматически....т.е. еще до того, как клиент начнет использовать функции этого СОМ-а.....
Тут вариант, когда клиент передает серверу свой интерфейс не подходит :(
...
Рейтинг: 0 / 0
16.03.2003, 11:40
| Ответить | Цитировать | Написать  
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
    #32120769
Фотография maloi_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maloi_alex
Участник
Если не секрет, поделись для чего это тебе нужно.
...
Рейтинг: 0 / 0
16.03.2003, 16:02
| Ответить | Цитировать | Написать  
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
    #32120825
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
Скорее всего система безопасности....
кстате, очень даже интересный вопрос...
...
Рейтинг: 0 / 0
17.03.2003, 04:26
| Ответить | Цитировать | Написать  
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
    #32121001
Фотография maloi_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maloi_alex
Участник
Вобщем сначала нужно получить контекст вызова через CoGetCallContext. Эта функция возвращает указатель на интерфейс IServerSequrity, который позволяет получить информацию о вызывающем клиенте. Дальше пока не разобрался, нужно время чтобы в MSDN ковыряться.
...
Рейтинг: 0 / 0
17.03.2003, 12:08
| Ответить | Цитировать | Написать  
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
    #32121080
Фотография maloi_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maloi_alex
Участник
Можешь почитать эту статью.
...
Рейтинг: 0 / 0
17.03.2003, 13:15
| Ответить | Цитировать | Написать  
Узнать инфу(IP,логин,...) про клиента COM-объекта!!
    #32121088
manumba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
manumba
Участник
function CallerId : string;
var
PrincipalName : PWideChar;
begin
OleCheck (CoQueryClientBlanket (NIL, NIL, NIL, 0, 0, @PrincipalName, 0));
Result := PrincipalName;
end;

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


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