Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 840

•  TDictionary Custom Sort  5 942

•  Fast Watermark Sources  5 736

•  3D Designer  8 535

•  Sik Screen Capture  6 078

•  Patch Maker  6 511

•  Айболит (remote control)  6 500

•  ListBox Drag & Drop  5 361

•  Доска для игры Реверси  95 142

•  Графические эффекты  6 711

•  Рисование по маске  5 863

•  Перетаскивание изображений  4 893

•  Canvas Drawing  5 266

•  Рисование Луны  4 994

•  Поворот изображения  4 537

•  Рисование стержней  3 211

•  Paint on Shape  2 455

•  Генератор кроссвордов  3 338

•  Головоломка Paletto  2 646

•  Теорема Монжа об окружностях  3 437

•  Пазл Numbrix  2 272

•  Заборы и коммивояжеры  2 933

•  Игра HIP  1 901

•  Игра Go (Го)  1 817

•  Симулятор лифта  2 156

•  Программа укладки плитки  1 882

•  Генератор лабиринта  2 320

•  Проверка числового ввода  2 010

•  HEX View  2 327

•  Физический маятник  1 982

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Получение интерфейса объекта из OleVariant



Microsoft выпускает новый многосерийный триллер:
OLE
OLE 2
OLE Возвращается

В примерах Delphi по использованию COM-объектов, как правило, используется примерно следующая конструкция:


var
  _ComServer: variant;
begin
  _ComServer := CreateComObject(CLSID_ComServer);
  // что-то делаем с COM-объектом
  _ComServer.DoSomething;
end;

Здесь после создания объекта вызывается некоторый гипотетический метод созданного объекта - DoSomething. После создания объекта можно также изменять значения его свойств, передавать его в качестве параметра в другие методы и процедуры и пр. Единственное видимое неудобство заключается в том, что при использовании переменной типа вариант компилятор не в состоянии проверить синтаксическую корректность обращений к объекту и, соответственно, в редакторе Delphi не работает on-line подстановка (когда вы, например, вводите точку после имени переменной объектного типа, редактор выводит окно с перечнем наиболее подходящих свойств и методов объекта).

Применение переменных типа интерфейс устраняют это неудобство. Достаточно написать так (в предположении, что действительно существует интерфейс IMyInterface):


var
  _ComServer: variant;
begin
  _ComServer := CreateComObject(CLSID_ComServer);
  // что-то делаем с COM-объектом
  _ComServer.DoSomething;
end;

Кроме того, что компилятор теперь совершенно четко понимает, какого типа переменная используется и что с ней можно делать, "за кулисами" происходит еще и повышение быстродействия работы с объектом, т.к. в первом случае вся работа с объектом осуществляется опосредованно через метод Invoke его интерфейса IDispatch (любознательные читатели могут более подробно прочитать про IDispatch в справочной системе Delphi и MSDN).

Если же объект передается в какой-либо модуль через переменную (параметр) типа Variant (OleVariant), то, к сожалению, Delphi опять возвращает все на круги своя (см. пример 1). Для того, чтобы получить из Variant требуемый типизованный интерфейс, достаточно выполнить простейшее преобразование:


procedure MyProc(_MyObject: variant);
var
  _ComServer: IMyInterface;
begin
  _ComServer := IMyInterface(TVarData(_MyObject).VUnknown);
  // что-то делаем с COM-объектом
  _ComServer.DoSomething;
end;

Можно усилить контроль за передаваемым объектом, проверяя тип данных в variant:


procedure MyProc(_MyObject: variant);
var
  _ComServer: IMyInterface
begin
  if (VarType(_MyObject) and varUnknown) = varUnknown then
  begin
    _ComServer := IMyInterface(TVarData(_MyObject).VUnknown);
    // что-то делаем с COM-объектом
    _ComServer.DoSomething;
  end;
end;

Можно использовать еще более строгую проверку наличия в variant ожидаемого интерфейса:


procedure MyProc(_MyObject: variant);
var
  _ComServer: IMyInterface;
  _IUnknown: IUnknown;
begin
  if (VarType(_MyObject) and varUnknown) = varUnknown then
  begin
    _IUnknown := IUnknown(TVarData(_MyObject).VUnknown);
    if _IUnknown.QueryInterface(IID_IMyInterface, _ComServer) = S_OK then
      // что-то делаем с COM-объектом
      _ComServer.DoSomething;
  end;
end;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте