Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.07.2010, 17:14   #1
Sanprof
Форумчанин
 
Аватар для Sanprof
 
Регистрация: 28.01.2008
Сообщений: 267
По умолчанию COM-технология получить ссылку на интерфейс

У меня есть COM-сервер и COM-клиент, на сервере реализован Класс с процедурами и свойствами, имеющий интерфейс, на клиенте нужно получить экземпляр этого класса, со всеми его свойствами и процедурами.
Не забываем говорить спасибо за помощь - это ведь так приятно
Sanprof вне форума Ответить с цитированием
Старый 16.07.2010, 13:21   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
var
  MS: Variant;
begin
  ...
  MS := CreateOleObject('Мой.Клиент');
  if varisclear(MS) then ошибка
  MS.Метод();
  ...
  MS := Unassigned;
  ...

end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.07.2010, 14:27   #3
Sanprof
Форумчанин
 
Аватар для Sanprof
 
Регистрация: 28.01.2008
Сообщений: 267
По умолчанию

я вот в чем не могу разобраться, у меня был Класс TAnalog = class (Unit1) в нем есть как procedure так и property, делее я создаю Automation Object (интерфейс с библиотекой типов) с название IntAnalog? создается интерфейс IIntAnalog наследник от IDispatch, сохраняю созданный делфей юнит с реализацией Класса TIntAnalog под Unit2 (это все сервер). Теперь что мне нужно сделать, чтобы получить доступ к полям и процедурам объкта (Допустим есть экземпляр Класса Analog: TAnalog)? И Что даст если сделать так TAnalog = class(IIntAnalog)???
Не забываем говорить спасибо за помощь - это ведь так приятно
Sanprof вне форума Ответить с цитированием
Старый 16.07.2010, 14:49   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Теперь что мне нужно сделать, чтобы получить доступ к полям и процедурам объкта
Примерно такое:
Код:
var i:IIntAnalog;
begin
 i:=CreateOleObject('Мой.Клиент');
 if i<>nil then мона работать с интерфейсом как с объектом
end;
Цитата:
Что даст если сделать так TAnalog = class(IIntAnalog)?
Если не ошибаюсь Делфи сама создает обертки для интерфейсов для раннего связывания. Собственно тут это по вкусу кому как удобно.
Я вообще не любитель интерфейсов, я пользую как в предидущем примере показал.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получить ссылку на ячейки blacklight Microsoft Office Excel 5 23.09.2009 14:32
Получить ссылку на видео файл SunKnight Свободное общение 6 11.06.2009 02:46
Получить ссылку на вызывающий объект grenles Общие вопросы Delphi 10 07.11.2008 12:37
Как получить ссылку на файл с файлообенника? S(p)@wN Работа с сетью в Delphi 0 16.08.2007 15:20