Простейший примерчик вырезания рисунка из StdPicture

[arthur2]

Ты не должен никому и ничего

Дело не в реализации, а в принципе: ты не объяснил его внятно.

Как сделать этот "даже свой" объект?

Создать свой класс, который реализует интерфейс IPicture(Disp).

дальше куда?

Всё, используешь объекты своего класса как объекты, поддерживающие IPicture(Disp).
Например так:

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

Set Me.Picture = New VeryNonStdPicture

где VeryNonStdPicture — твой класс, поддерживающий IPicture(Disp).

Делая Set Me.Picture = New VeryNonStdPicture ты пытаешься у объекта класса VeryNonStdPicture запросить интерфейс _StdPicture. Естественно, класс VeryNonStdPicture не поддерживает _StdPicture, а поддерживает только _VeryNonStdPicture и IPicture(Disp).

[Хакер]

ты пытаешься у объекта класса VeryNonStdPicture запросить интерфейс _StdPicture.

Вот тут ты ошибся: не _StdPicture, а IPictureDisp. VeryNonStdPicture поддерживает IPictureDisp.

[arthur2]

твой код воспроизводит не мой метод, а что-то левое.

Приведи пример "правильного" воспроизведения твоего метода.

[Хакер]

У тебя pc — локальная переменная, а должно (потому что Picture — это свойство) быть свойство (с Set-хендлером). У тебя переменная pc имеет тип StdTest, а должна иметь тип ITest.

[arthur2]

У тебя переменная pc имеет тип StdTest, а должна иметь тип ITest

Все-таки, я не понимаю. Picture имеет тип IPictureDisp? Или она просто реализует интерфейс IPictureDisp, вместе с другими интерфейсами? Что такое StdPicture? Разве это то же самое, что и IPictureDisp?

[Хакер]

Picture имеет тип IPictureDisp?

Picture — это не переменная, это свойство, Set-хендлер ждёт «интерфейсную ссылку типа IPictureDisp на объект».

Или она просто реализует интерфейс IPictureDisp, вместе с другими интерфейсами?

Она — это кто?

Что такое StdPicture? Разве это то же самое, что и IPictureDisp?

StdPicture — это класс. Кастомный, VB-шный.
IPictureDisp — это интерфейс. ОбщеCOMовский.

Тут только одна есть фишка: у всех классов есть интерфейс-по-умолчанию. VB для каждого пользовательского касса Class1 содздаёт интерфейс по умолчанию _Class1. А в данном случае интерфейсом по умолчанию для StdPicture указан IPictureDisp, а не какой-то отдельный новый интерфейс.

Ещё раз повторяю: по моим предсказаниям припроды вещей: это внутри Set-хендлера делается Err.Raise, а не какие-то приведения типов и кастования интерфейсов дают ошибку. Хватит уже возиться с этим и делать неправдивые тесты-аналоги на базе переменных, которые никогда ничего такого не покажут.

(Писал сонный, утром поправлю, если что)

[arthur2]

Хватит уже возиться с этим и делать неправдивые тесты-аналоги на базе переменных, которые никогда ничего такого не покажут.

Я делаю тесты, потому что хочу понять механизм, который ты не хочешь понятно объяснить
Хотя, как обычно, начинает проступать что-то понятное

Тут только одна есть фишка: у всех классов есть интерфейс-по-умолчанию. VB для каждого пользовательского касса Class1 содздаёт интерфейс по умолчанию _Class1. А в данном случае интерфейсом по умолчанию для StdPicture указан IPictureDisp, а не какой-то отдельный новый интерфейс.

Ага!

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

    typedef [public]
    Picture IPictureDisp;

    [
      uuid(0BE35204-8F91-11CE-9DE3-00AA004BB851)
    ]
    coclass StdPicture {
        [default] dispinterface Picture;
        interface IPicture;
    };


Теперь осталось понять, как

Disp просто сделай основным интерфейсом класса. Т.е. выдай DispId-ы нормальным методам.

[SLIM]

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

Если не ошибаюсь - Disp-интерфейс - это и есть интерфейс по умолчанию.

[Хакер]

Теперь осталось понять, как

Disp просто сделай основным интерфейсом класса. Т.е. выдай DispId-ы нормальным методам.

Только трюком: заимплементить пустышку IPictureDisp, а его методы реализовать в _VeryNonStdPicture, полагаясь на то, что реализация IDispatch::Invoke у обоих будет общей.

[arthur2]

Только трюком: заимплементить пустышку IPictureDisp, а его методы реализовать в _VeryNonStdPicture, полагаясь на то, что реализация IDispatch::Invoke у обоих будет общей.

еще бы понять, что это означает

[Хакер]

Описать в TLB пустой интерфейс IPictureDisp, унаследованный от IDispatch и имеющий правильный IID.
В классе написать Implements MyTlb.IPictureDisp.

Методы IPictureDisp-а писать не как Private ... IPictureDisp_xxxx, а как обычные методы класса Public ... xxx. Своим методам проставить нужные (как у оригинального IPictureDisp) DispId-ы.

Должно заработать.

[arthur2]

Своим методам проставить нужные (как у оригинального IPictureDisp) DispId-ы.

Те, которые [id(0x00000003)]? Для своего класса тоже нужно делать интерфейс в тлб? или как-то по-другому нужно эти DispId-ы ставить?

[Хакер]

или как-то по-другому нужно эти DispId-ы ставить?

Что, никогда свои коллекции с ньюэнумом не далал?

setting_dispid_imgdemo.png (34.54 Кб) Просмотров: 2049

[arthur2]

Нет, это я нашел, но вопрос - сами id

Те, которые [id(0x00000003)]?

И - в этом поле дают ставить только отрицательные числа

[Хакер]

в этом поле дают ставить только отрицательные числа

Ну, это плохо.

Нужно посмотреть, какой подвид позднего связывания использует потребитель твоего объекта. Если «по имени» — то не нужно беспокоиться. Если «по DispId-у» — то либо подгонять значения, либо реализовывать диспетчеризацию вручную, либо, коль в данном случае это оказавается сложнее, использовать реализацию от OLE.

[arthur2]

Похоже, все-же безнадёга

использовать реализацию от OL

в смысле "остановиться на том, что есть"?

[Хакер]

Безнадёги не бывает. Бывают решения, некоторые из них, которые изначально казались проще чем иные, затем оказываются сложнее.

[arthur2]

Бывают решения, некоторые из них, которые изначально казались проще чем иные, затем оказываются сложнее.

Хорошо заметил