Разместить IPictureDisp в Picture Box с координатами

У объекта IPictureDisp нет свойства Picture поэтому, метод PaintPicture ничего не выводит в Picture Box. При использовании:
изображение, заведомо меньшее по размеру, чем Picture Box, размещается с нулевыми координатами. Существует ли возможность разместить изображение из IPictureDisp в Picture Box с координатами, отличными от нуля?
Интересно сделать.
Если простой возможности нет, придётся использовать невидимый Picture Box.

0

Argus19, PaintPicture предназначен для рисования в окне. А нужно нарисовать где?

0

Сообщение от The trick А нужно нарисовать где?

В трёх окнах. Одно для предпросмотра фотографии(Form1), второе для её редактирования и третье для предпросмотра водяного знака и его редактирования на Form2. Пока работаю стандартными методами и всё получается кроме записи фотографии в файл. Как вы писали, проблема с окнами.
Опять сделал Ipicture. Осталось нанести на него в соответствии с координатами и масштабом водяной знак и записать в файл. Тоже самое, полагаю, можно сделать средствами GDI+ с Picture1.Picture. Рисование происходит во втором слое Picture№.Image поэтому, запись Picture1.Picture приводит к записи немодифицированного изображения, а запись Picture1.Image записывает только то, что поместилось в окне.
Почитал о GdipDrawImageRect. Точнее, перевёл https://translate.google.ru/ "Для повышения образованности" хочу попробовать использовать функцию для объединения изображений не в Picture1.Image, а в Picture1.Picture. ТОлько не пойму из перевода, сможет ли функция их различить?

GdipDrawImageRect graphics [in] Указатель на графический объект. image [in] Указатель на объект Image, который определяет изображение для рисования. x [in] Простое значение точности, которое определяет x-координату левого верхнего угла прямоугольника назначения, в котором нужно нарисовать изображение. Y [in] Простое значение точности, которое указывает y-координату левого верхнего угла прямоугольника назначения, в котором нужно нарисовать изображение. width [in] Простое значение точности, которое определяет ширину целевого прямоугольника для рисования изображения. height [in] Простое значение точности, указывающее высоту прямоугольника назначения, на котором рисуется изображение.

Из чего непонятно в какую именно область будет производиться запись и каким образом (And, Or или Xor)?

0

Ты определись каким именно методом ты собираешься все реализовывать (GDI, GDI+, Direct2D) и что такое водяной знак? Как он накладывается?
Обычно все манипуляции выполняются в памяти, а в окно выводится предпросмотр. Создается растр, который будет содержать финальную картинку, и с ним все манипуляции выполняешь. Как зависит от способа.

Сообщение от Argus19 Из чего непонятно в какую именно область будет производиться запись и каким образом (And, Or или Xor)?

В GDI+ нет режимов наложения за исключения альфа-наложения.

0

Сообщение от The trick каким именно методом ты собираешься все реализовывать

Пока пытаюсь, как вы советовали объединить картинки с помощью GdipDrawImageRect. Т.е. пока "в процессе".

0

Тут на форуме были посты, у меня в блоге можешь тоже посмотреть, там примеры работы с GDI+ на VB6.

0

The trick, взял за предварительную основу ваш код "Rotate".

Сообщение от The trick IPicture - это интерфейс. Когда ты загружаешь картинку, то на самом деле создается COM объект который поддерживает интерфейс IPicture. Все объекты в VB6 используют методы этого интерфейса чтобы нарисовать это изображение.

В теме: StdPicture
вы писали:

Picture - интерфейс. StdPicture - класс.

Если не объявить переменую, как As StdPicture и не присвоить ей Picture№.Picture, будет плохо. Из чего выходит, что GDI+ работает не с интерфейсами, а с классами?

0

Сообщение от Argus19 Если не объявить переменую, как As StdPicture и не присвоить ей Picture№.Picture, будет плохо.

В COM вообще объектами можно управлять только через интерфейсы, поэтому каждый класс имеет интерфейс по умолчанию. У StdPicture это IPicture/Picture:
GDI+ вообще работает с сырыми нестандартными хендлами. Если хочется с ними работать как с объектами их необходимо обернуть в объекты. Кстати я даже где-то встречал уже готовую либу https://sourceforge.net/projects/gdiplus-vb6/ .

0

Попробую, используя ваши примеры. Будет видно.

0

Попробовал GDI+
Записал изображение водяного знака, предварительно сделав его фон прозрачным на Form1.Picture1.Picture и затем его сохранил:
Естественно, инициализировав GDI+ и т.д. и при выходе всё закрыл.
Изображение всё-равно записывается в Form1.Picture1.Image и при записи на диск сохраняется без внесённых изменений, т.е. как было. Вечером попробую записать в Ipicture.

0

Сообщение от Argus19 при записи на диск сохраняется без внесённых изменений

c:\test1.bmp?
Так ведь формат bmp в принципе не поддерживает прозрачность. Нужен PNG или GIF, как вариант.

0

Argus19, работай с растром, а не с окном, в окно выводи уже готовый растр. Это гибче ипозволит к примеру делать скроллинг и масштабирование.

0

Сообщение от Pro_grammer Так ведь формат bmp в принципе не поддерживает прозрачность.

В выходном файле результат манипуляций.

Сообщение от The trick работай с растром

Вы пишете это уже не первый раз и пока не смог понять каким образом.
Попытки "достучаться" до свойства Picture.Picture провалились. Видимо, разработчики не посчитали это нужным. Как я понимаю, в памяти хранится два изображения: загруженное из файла и видимое в окне. Все действия можно производить только с видимым изображением. Загруженное изменить нельзя, т.к. к нему нет доступа.
Чтобы работать с растром (модифицировать по усмотрению), необходимо его куда-то записать. Например, в Ipictue или IpictereDisp. Для работы необходимо получить его дескриптор. Пока не получилось.
Есть ли нормальные варианты без "плясок возле костра и камланий"?

0

Argus19, Ты напиши пожалуйста какое в итоге ты выбираешь API? Я тебе подскажу как сделать на нем.

0

Судя по тому, что мне удалось понять на сегодняшний день, в GDI+ нет функции аналогичной BitBlt или я плохо искал.
Функция BitBlt имеет параметр dwRop: "код растровой операции", т.е. эта функция аналог PaintPicture, что мне подходит.
Сейчас не получается получить hDC IPicture. Для этого предусмотрено 2 функции: SelectPicture Selects и get_CurDC. Пока не разобрался, как сделать.

0

Argus19, а растровая операция это необходимость? Просто хочу понять что в итоге хочешь получить? Просто пример приведи изображений. Просто имея небольшой опыт работы с графикой я бы подсказал возможно лучшее решение/API.

0

Может что то подобное?
Берём один рисунок, загружаем в первый слой, потом второй загружаем во второй слой, затем сохраняем этот пирог в файл?



в итоге такой файл

0

Сообщение от Pro_grammer Так ведь формат bmp в принципе не поддерживает прозрачность.

32 битный поддерживает(сохранить туда можно). Просто какие-то программы открывают альфу, какие-то нет.
Например стандартная библиотека FB(FbGfx) - загружает(но не сохраняет) 32 битные с прозрачностью.
Некоторые редакторы могут открыть, вроде PixBuilder и старые фотошопы могут, но точно не скажу, не помню.
GIMP раньше мог, сейчас нет. Т.е. данные альфы туда положить можно, всё зависит от того, как их
интерпретирует принимающая сторона. Если ей альфа не нужна - эта компонента игнорируется,
если нужна - соотв. используется. В принципе 32 бита уже означает, что там альфа. 24 и ниже - нет альфы.

Вот курсор например с альфой:

Вложения

Курсор 1.zip (2.4 Кб, 3 просмотров)

1

Загружаем рисунок, загружаем второй, накладываем его на первый, вращаем, регулируем его местоположение на первом рисунке, яркость прозрачность, резкость , вращаем. При необходимости накладываем маски на всё. И потом:

Сообщение от Pro_grammer затем сохраняем этот пирог в файл?

Сообщение от The trick Просто пример приведи изображений.

Это примитив. Мне было надо так для защиты авторских прав:
http://valvelab.al.ru/6p14p-k.htm
Если у вас стоит Win XP могу дать портативную версию программы. Она не работает под Win 7 и далее и сайт разработчиков не работает. Все остальные программы, существующие на сегодняшний день, неудобны.

0

Сообщение от Quiet Snow 32 битный поддерживает(сохранить туда можно). Просто какие-то программы открывают альфу, какие-то нет.

Ну да, как раз VB6 не работает с BMP 32бит, по крайней мере если штатными ср-ми загружать в Image или Picture

Сообщение от Argus19 могу дать портативную версию программы.

Давайте, интересно посмотреть к чему стремиться.

0

Сообщение от Pro_grammer Ну да, как раз VB6 не работает с BMP 32бит, по крайней мере если штатными ср-ми загружать в Image или Picture

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

0