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

[Andrey Fedorov]

Просьба подсказать простейший способ как из рисунка, находящегося в одном StdPicture, вырезать прямоугольную область в другой StdPicture...
В принципе сделал сам, но слишком сложно - уверен что можно значительно проще...

[alibek]

Простейший — PaintPicture.

[Andrey Fedorov]

Простейший — PaintPicture.

Только вот у StdPicture такого метода нет...

[Хакер]

IPictureDisp::Render?

[Andrey Fedorov]

IPictureDisp::Render?

Пробовал, но что-то не получилось Возможно с hDC запутался - с графикой я крайне редко работаю...

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

[Хакер]

Давай сначала разберёмся.

Есть встроенный в VB6 (и реализуемый непосредственно в msvbvm60) класс StdPicture.
А есть происходящий из COM (и не специфичный только для VB) интерфейс IPicture и его Dispatch-собрат IPictureDisp.
Про них можно сказать, что указанный класс поддерживает указанный интерфейс.

И теперь два вопроса:
1) Исходная картинка: это объект именно класса StdPicture или просто объект какого-то произвольного класса (в т.ч. и StdPicture), поддерживающий IPicture(Disp)?
2) Выходная картинка обязана быть именно объектом класса StdPicture, или объектом любого класса (в том числе StdPicture, но может быть даже своего!), поддерживающим IPicture(Disp)?

[Andrey Fedorov]

Давай сначала разберёмся.

И теперь два вопроса:
1) Исходная картинка: это объект именно класса StdPicture или просто объект какого-то произвольного класса (в т.ч. и StdPicture), поддерживающий IPicture(Disp)?
2) Выходная картинка обязана быть именно объектом класса StdPicture, или объектом любого класса (в том числе StdPicture, но может быть даже своего!), поддерживающим IPicture(Disp)?

1 и 2 - StdPicture.

В принципе вопрос можно снять - все одно реализовал на GDI+ - работает как надо...

[arthur2]

Нет, не надо снимать вопрос Меня тоже это интересует. И чтобы без gdi+

1) Исходная картинка: это объект именно класса StdPicture или просто объект какого-то произвольного класса (в т.ч. и StdPicture), поддерживающий IPicture(Disp)?
2) Выходная картинка обязана быть именно объектом класса StdPicture, или объектом любого класса (в том числе StdPicture, но может быть даже своего!), поддерживающим IPicture(Disp)?

1 А какие ещё объекты его поддерживают (из известных)?
2. Пусть произвольным... Пусть "даже своим" Как сделать этот "даже свой" объект? Как вообще пользоваться IPicture и что есть Disp?

[Хакер]

1 А какие ещё объекты его поддерживают (из известных)?

Смысл (фишка) в создании таких своих.

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

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

и что есть Disp

Кусок имени интерфейса.

[arthur2]

Создаю класс, имплиментю IPicture... дальше куда?

Как-то пытался методом тыка рыть в этом направлении, но никуда не урыл

[Хакер]

дальше куда?

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

Например так:

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

Set Me.Picture = New VeryNonStdPicture

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

[arthur2]

Ну толкни дальше! До этого места я вроде бы уже доходил.

Кстати, имплементить тоже не получается - бейсик не признает такого своего класса, выдавая обрывающееся на полуслове сообщение без номера ошибки:

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

Implements IPictureDisp


Ошибка компелляции:

Неверное взаимодействие для Реализаций: Взаимодействие содержит области данных<дальше ничего>

(только больно не пинай за "русский" бейсик - другого под рукой нету

[Хакер]

Родное определение интерфейса ты не реализуешь, там «As Any» в последнем параметре метода Render.

Надо свой определить, с тем же IID-ом, но с отличающимся определением.

[arthur2]

О, кстати: IPicture дал симплиментить, хотя в подсказке его не появлялось...

[arthur2]

Надо свой определить, с тем же IID-ом, но с отличающимся определением.

Как? Писать Тлб, в которой вместо эни объявить лонг?

[Хакер]

Как? Писать Тлб, в которой вместо эни объявить лонг?

Да, только не Long, а что там, LPRECT?

[arthur2]

IID-ы нашел, как написать- вроде, представляю... куда после этого - ума не прилажу - представляю на уровне каких-то смутных ощущений

Можно будет сделать, например, как-то так: Set Me.Image= New VeryNonStdPicture ?

[Хакер]

куда после этого - ума не прилажу - представляю на уровне каких-то смутных ощущений

Ты должен реализовать все члены интерфейса.

[arthur2]

Пытаюсь написать тлб

Где взять определение типа VARIANT_BOOL? Пока заменил на лонг - тлб скомпилировалась.

Проект с имплиментированным моим IPicture выдает ошибку

Неверное взаимодействие для Реализаций: способ имеет только выходной LCID параметр

Что это? Какой из способов - не уточняется

[Viper]

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

typedef short VARIANT_BOOL;

То есть не Long, а Integer.

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

VARIANT_TRUE = 0xFFFF;
VARIANT_FALSE = 0x0000;

[arthur2]

VARIANT_BOOL оказался шотом
От ошибки избавился, поменяв в определениях нескольких параметров [out] на [in,out]. Тлб скомпилировалась, интерфейс заимплиментился

Set Me.Picture = New VeryNonStdPicture дает несоответствие типа

[arthur2]

Что не так?

Тлб вроде бы получилась. Вот это работает:

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

Dim p As myTlb.IPicture
Set p = Me.Picture

Что-нибудь вроде set pic1.picture=p тоже работает и картинка переносится. Значит, вроде бы, тлб получилась правильной и интерфейс рабочим.

Я создал класс cMyPic и в нем сделал Implements myTlb.IPicture, реализовал всё, что там высыпалось

Почему тогда

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

Dim c As cMyPic
Set c = p

дает несоответствие типа?

[Хакер]

Значит неправильная реализация.

[arthur2]

В cMyPic: Implements myTlb.IPicture и все его методы

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

Dim p As myTlb.IPicture
Set p = New cMyPic


Работает. Можно подергать свойства p.ляляля - и код в cMyPic откликается.

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

Dim p As myTlb.IPicture
Set p = Me.Picture
Set pic1.Picture = p


Тоже работает. Картинка загружается.

А вот так:

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

Dim p As myTlb.IPicture
Set p = New cMyPic
Set pic1.Picture = p

уже не работает.
Реализация неправильная - это понятно, но почему тогда первый и второй вариант работают?

И как сделать правильную реализацию?

[Хакер]

о почему тогда первый и второй вариант работают?

1. Потому что свойства можно дёргать в любом случае в общем порядке. Потому что реализация будет откликаться, даже если она неправильная.
2. Потому что класс StdPicture реализует интерфейс IPicture, а твой класс (с неправильной реализацией) здесь вообще никак не участвует.

[arthur2]

Потому что класс StdPicture реализует интерфейс IPicture, а твой класс (с неправильной реализацией) здесь вообще никак не участвует.

Но ведь этот IPicture берется из моей тлб. Значит, интерфейс правильный?

Как тогда может быть неправильная реализация у правильного интерфейса?

В первом примере меня удивляет не то, что свойства откликаются (это действительно понятно), а то, что в классе реализован тот же самый IPicture из моей тлб, который нормально срабатывает во втором примере.

И, кстати, дабы не путало, stdole2 я из референцев отключил. Так что откуда берется StdPicture, мне вообще не понятно

И как же все-таки сделать правильную реализацию?

[Хакер]

Как тогда может быть неправильная реализация у правильного интерфейса?

Элементартно:

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

Private Sub IPicture_Render(...)
     ' Пишем тут всякую чушь
End Sub

Так что откуда берется StdPicture, мне вообще не понятно

Ну и что, это встроенный в VB класс.

И как же все-таки сделать правильную реализацию?И как же все-таки сделать правильную реализацию?

Почитай в MSDN секцию «How to implement» (или «When to implement»).

[arthur2]

Еще раз по порядку:
Раз картинки через IPicture из моей тлб загружаются, это означает, что интерфейс (в тлб) правильный? Или не обязательно? Проблема в тлб? Или в том, как я реализую интерфейс уже в проекте?

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

Private Sub IPicture_Render(...)
     ' Пишем тут всякую чушь
End Sub

Выходит, если написать не чушь, то всё заработает? Я почему-то думал, что даже если вообще ничего не писать, оставив все методы пустыми, то при условии, что интерфейс "тот самый" - со всеми методами и с правильным идентификатором - по меньшей мере само присвоение должно получиться.

[Хакер]

Раз картинки через IPicture из моей тлб загружаются,

Чё? Где такое?

Выходит, если написать не чушь, то всё заработает? Я почему-то думал, что даже если вообще ничего не писать, оставив все методы пустыми, то при условии, что интерфейс "тот самый" - со всеми методами и с правильным идентификатором - по меньшей мере само присвоение должно получиться.

Это глубочайшее (я даже не в состоянии передать степень) заблуждение. К тому же, нет никакого присвоения вообще. Есть Set-хендлер, а что в нём — угадай сам.

[arthur2]

Чё? Где такое?

Есть Set-хендлер, а что в нём — угадай сам.

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

Dim p As myTlb.IPicture
Set p = LoadPicture("test.bmp")
Set Me.Picture = p

картинки через IPicture из моей тлб загружаются

Или всё равно нет?