Раннее и позднее связывание...

[Vovik]

Привидите пож-ста маленький пример позднего связывания....
На сколько оно тормозит выполнение программы?

[FaKk2]

Код: Выделить всё


Dim obj as Excel.Application
Set obj=New Excel.Application


Вроде так.
Насчет скорости не в курсе.

[ANDLL]

Это как раз раннее.

Код: Выделить всё

dim a as object
set a=createobject("Excel.Application")

Само по себе связывание делает всего лишь на один вызов QueryInterface больше, чем раннее. Но вот использование IDispatch заместо vtable весьма существенно снижает производительность.

[Vovik]

Это как раз раннее.

Код: Выделить всё

dim a as object
set a=createobject("Excel.Application")

Само по себе связывание делает всего лишь на один вызов QueryInterface больше, чем раннее. Но вот использование IDispatch заместо vtable весьма существенно снижает производительность.

А можно чуть-чуть подробнее, а то я в этих делах как-то несильно шарю..

[Ennor]

А можно чуть-чуть подробнее, а то я в этих делах как-то несильно шарю..

Ты себе не представляешь, сколько народу здесь на форуме, как ты выразился, "несильно шарят" во всем этом...

[Cryonyx]

В том числе и я...
А чем отличается идиспатч от втэйбл и с чем их едят?

[FaKk2]

Гмм, vtable хранит все доступные методы и интерфейсы,
А IDispatch используется, когда vtable не доступен. Тогда, компилятор опрашивает СОМ сервер насчет каждого метода.

[Vi]

Смотри в MSDN статью "INFO: Late, ID, Early Binding Types Possible in VB for Apps", которая также имеет номер Q138138.

[tyomitch]

Гмм, vtable хранит все доступные методы и интерфейсы,

Не совсем так. VTable хранит все доступные методы одного интерфейса. У каждого интерфейса своя VTable.

А IDispatch используется, когда vtable не доступен. Тогда, компилятор опрашивает СОМ сервер насчет каждого метода.

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

[ANDLL]

Скажем так. Использование двух этих операторов как раз и определяет раннее и позднее связывание:

Код: Выделить всё

Set A=New Object 'раннее
Set A=CreateObject("Object") 'позднее

Зедсь операторы практически равносильны по скорости, если только такая конструкция не стоит у вас в большом цикле(что врядли).

А вот оператором Dim определяется, как будет происходит взаимодейцствие, через vtable или IDispatch.

Код: Выделить всё

Dim A as Excel.Application 'vtable
Dim A as Object 'IDispatch

Тут следует помнить, что при каждом вызове метода объекта A при использовании IDispatch будет затрачиваться существенно больше ресурсов, чем при использовании vtable.

Прояснили ситуацию?

Собственно, приведу пример, когда может использоваться vtable и позднее связывание.

Пример, скорее чисто теоретический, но тем не менее.

Как известно, во всех новых версиях Excel'а сохранилась поддержка старых интерфейсов, и как известно на одном компе могут стоять одновременно, скажем Excel2003 и ExcelXP.

Тогда, такой код, написанный на машине с наиболее старой версией Excel'а(кажем,97) будет делать следующее:

Код: Выделить всё


'Данный код совмещает скорость vtable и гибкость позднего связывания
Dim A as Exel.Application
Select case InputBox("Какую версию excel запустить?")
case "2000"
   Set A=CreateObject("Excel.Application.9")
case "XP"
   Set A=CreateObject("Excel.Application.10")
case "2003"
   Set A=CreateObject("Excel.Application.11")
end select


Как я уже сказал, пример чисто теоретический, но все же.

[tyomitch]

Скажем так. Использование двух этих операторов как раз и определяет раннее и позднее связывание:

Код: Выделить всё

Set A=New Object 'раннее
Set A=CreateObject("Object") 'позднее

Как раз нет. Эти операторы совершенно равнозначны.
Раннее или позднее связывание будет, определяется исключительно типом А.

"Раннее/позднее" и "VTable/Dispatch" - это полностью одно и тоже, а не два разных деления. Примера, "когда может использоваться vtable и позднее связывание" одновременно - быть не может.

[ANDLL]

Не будем обсуждать терминологию. Но Между New и CreateObject есть одно отличие: New запрашивает у CoCreateObject сразу указатель на требуемый интерфейс, а CreateObject сначала запрашивает IDispatch, а уже потом оператор Set, если надо вызывает QueryInterface. В крайнем случае, мне так кажеться.

[GSerg]

Тебе так кажется.
CreateObject запрашивает тот интерфейс, который соответствует типу переменной. По крайней мере, мне так кажется

[tyomitch]

Э... GSerg, CreateObject объявлена как Variant, поэтому действительно возвращает IDispatch. А потом Set действительно приводит объект к нужному интерфейсу.
Между New и CreateObject есть более существенное отличие: New создаёт объект по CLSID, а CreateObject - по ProgID. Т.е. CreateObject всегда берёт последнюю версию объекта, а New - ту, которая была на машине у программиста.

Другое дело, что к сабжу все эти отличия не относятся никаким боком.

[GSerg]

Чё-то я дизасмил, дизасмил... Ты знаешь, я бы даже не сказал, что CreateObject возвращает Variant... Она вызывает rtcCreateObject2, та возвращает в eax некую цифирь, которая потом передаётся в __vbaObjSetAddRef с целью копирования в локальную переменную... А поскольку __vbaObjSetAddRef работает не с вариантами, то... Хотя кто её знает

Но знаешь, функция Int тоже вроде как объявлена как Variant, а возвращает Double

[marvan]

если я правильно понял, то

Код: Выделить всё

Dim A as Excel.Application 'раннее - vtable
Dim A as Object 'позднее - IDispatch

А эти строки не определяют производительность

Код: Выделить всё

Set A=New Excel.Application
Set A=CreateObject("Excel.Application")
Set A=CreateObject("Excel.Application.10")

но в первом случае будет создаваться (если получится) Application той версии, которая была установлена в References программы до её компилляции. Во втором - быдет использован Excel последней версии из всех установленных на машине. И в третьем попытка создать Application 10 версии.
Правильно ли выше сказанное и как отразится на программе, если использовать

Код: Выделить всё

Dim A as Variant

?

[GSerg]

Очень правильно вышесказанное


А это отразится только отрицательно, ибо перед (IDispatch)object->Invoke будет ещё и определение того, а действительно ли там ещё object или уже нет

[AlexVBS]

Подскажите, плз, где засада?

Есть ActiveX библиотека (DLL) созданная на Делфях содержащая СОМ объект. К проекту она подключена (через Project->References...).

Создаю код:

Dim obj As New ShowMsg
Dim Value As String
obj.ShowIt ("Starting...")
Call obj.Test("Indicator", Value)
Form1.Caption = Value

Все замечательно работает. Ок! Пробуем по другому:

Dim obj As ShowMsg
Set obj = New ShowMsg
Dim Value As String
obj.ShowIt ("Starting...")
Call obj.Test("Indicator", Value)
Form1.Caption = Value

Тоже работает. Пытаюсь добиться позднего связывания:

Dim obj
Dim Value As String
Set obj = CreateObject("AXMsg.ShowMsg")
obj.ShowIt ("Starting...") ' <- Run-time Error (424): Object required !!!
Call obj.Test("Indicator", Value)
Form1.Caption = Value

В чем ошибка??? В реестре вся необходимая информация об объекте присутствует. Помогите разобраться!

Заранее благодарен за ответ.

[codemaster]

Подскажите, плз, где засада?


Создаю код:

Dim obj As New ShowMsg
Dim Value As String
obj.ShowIt ("Starting...")
Call obj.Test("Indicator", Value)
Form1.Caption = Value


Тоже работает. Пытаюсь добиться позднего связывания:

Dim obj
Dim Value As String
Set obj = CreateObject("AXMsg.ShowMsg")
obj.ShowIt ("Starting...") ' <- Run-time Error (424): Object required !!!
Call obj.Test("Indicator", Value)
Form1.Caption = Value

В чем ошибка??? Помогите разобраться!

Заранее благодарен за ответ.

Ошибка в поддержке IDispatch, так как первый вызов идет через vtbl, а второй как раз через IDispatch. Надо проверить, что интерфейс помечен в idl как дуальный ([dual]),

Если на С то класс компонента дожен унаследован от IDispatchImpl<...> и в карте интерфейсов есть вхождение для IDispa

Как это делается на Delphi - х.з.

[AlexVBS]

Спасибо, codemaster! Действительно дело именно в этом - не обратил на это внимание при создании объекта - ну, бывает шишканул...