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

@Argus19 · Регистрация: 24.09.2017

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
Public TempPic As IPictureDisp
Set TempPic = LoadPicture(FileName)

У объекта IPictureDisp нет свойства Picture поэтому, метод PaintPicture ничего не выводит в Picture Box. При использовании:

Visual Basic
1
Set Picture1 = TempPic

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

@The trick · 14.05.2020, 19:27

Не по теме:

Сообщение от Pro_grammer

Ясно, пытался уронить мой exe шник, создал хитрый png файл, но exeшник просто его проигнорировал, а не упал :)
И ты обиделся... Не обижайся, VB6 во многих вещах лучше PureBasicа, а ты, вне всяких сомнений, самый выдающийся программист, который умеет делать на VB6 чудеса, я всегда это говорю при любом удобном случае.
Ок, закрываем дискуссию.

Не в этом дело, а в обработке ошибок GDI+. Неважно что оно не падает в 99% времени, важно то что она может упасть т.к. функция может вернуть ошибку, а в коде это никак не обрабатывается. Если ты не согласен с этим - я не собираюсь спорить, тут недавно был похожий случай уже с приложением которое позволяет редактировать карты и падает при неверном формате - это бессмысленно (спорить и что-то доказывать), поэтому я и не хочу обсуждать эту ветку дискуссии дальше, а не потому что я обиделся и т.п.

@Argus19 · 24.05.2020, 10:09 **[ТС]**

Машинный перевод всё-таки приличная гнусь! Долго не мог сообразить, что это означает:

GdipTranslateWorldTransform

Обновляет матрицу преобразования мира этого объекта Graphics с помощью своего продукта и матрицы перевода.
Parameters
graphics
[in] Указатель на объект Graphics.
dx
[in]Простое значение точности, указывающее горизонтальную составляющую перевода.
dy
[in]Простое значение точности, указывающее вертикальный компонент перевода.
order
[in] Элемент перечисления MatrixOrder, указывающий порядок умножения. MatrixOrderPrepend указывает, что матрица перевода находится слева, а MatrixOrderAppend указывает, что матрица перевода находится справа. Значением по умолчанию является MatrixOrderPrepend.

Как-то, с сопеньем и кряхтеньем получилось вращать изображение, использовав пример из интернета и пример The trick Rotate.
Обнаружилось занятное явление. Если использовать совместно с функциями GDI+ для очистки формы:

Visual Basic
1
2
3
Me.Cls
или
Me.Picture = LoadPicture("")

то, функции GDI+перестают работать

. Подозреваю, что срабатывает явление, описанное здесь:
https://support.microsoft.com/... di-and-gdi
Из того, что нашёл в интернете, совершенно непонятно, в чём отличие объектов Grapgics, Image и Bitmap?

@The trick · 26.05.2020, 14:57

Сообщение от Argus19

Машинный перевод всё-таки приличная гнусь! Долго не мог сообразить, что это означает:

Все очень просто если ознакомиться с трансформациями и как они работают. В большинстве графических движков трансформации основаны на матрицах.

Сообщение от Argus19

Из того, что нашёл в интернете, совершенно непонятно, в чём отличие объектов Grapgics, Image и Bitmap?

Image и Bitmap это одно и тоже. Graphics - это на чем рисуешь.

@Argus19 · 26.05.2020, 19:23 **[ТС]**

Сообщение от The trick

Image и Bitmap это одно и тоже. Graphics - это на чем рисуешь.

Спасибо.
Непонятно. Загружаю изображение

Visual Basic
1
GdipLoadImageFromFile(StrConv(App.Path & "\Êîò.jpg", vbUnicode), wimg)

Т.е. создаётся объект Image из файла, переменная wimg получает указатель на объект.
Получаем hDC по указателю на созданный объект

Visual Basic
1
2
3
4
'.......................
Public wgraphicshdc As Long
'.............................
Label3.Caption = GdipGetDC(wimg, wgraphicshdc)

В метку заносится число 2, что означает "InvalidParameter".
Какой параметр неверен?

@The trick · 26.05.2020, 21:00

Сообщение от Argus19

Получаем hDC по указателю на созданный объект

Так нельзя. HDC можно получить только у "поверхности", т.е. из объекта Graphics. В данном случае сначала нужно получить Graphics из Image, что делается посредством функции GdipGetImageGraphicsContext.

Сообщение от Argus19

В метку заносится число 2, что означает "InvalidParameter".
Какой параметр неверен?

А для чего HDC нужно? Объект Graphics GDI+ как раз является аналогом GDIшного DC (hDC).

@Argus19 · 26.05.2020, 21:23 **[ТС]**

Сообщение от The trick

А для чего HDC нужно?

GdipDrawImageRect неудобная функция. Гораздо гораздее BitBlt, а она требует hDC.
Я взял только часть возможностей BitBlt. Забавно получается:

@The trick · 26.05.2020, 21:48

Сообщение от Argus19

GdipDrawImageRect неудобная функция.

Почему неудобная?

@Argus19 · 26.05.2020, 22:07 **[ТС]**

Она просто копирует, без инверсии, Or, Xor и пр.
Т.е. перед копированием необходимо модифицировать изображение.

@The trick · 26.05.2020, 22:14

Сообщение от Argus19

Она просто копирует, без инверсии, Or, Xor и пр.
Т.е. перед копированием необходимо модифицировать изображение.

Ты можешь использовать более функциональную GdipDrawImageRectRect, которая принимает объект ImageAttributes. Этот объект позволяет модифицировать изображение перед выводом намного гибче чем растровые операции в GDI. К примеру, там можно применить любую трансформацию к цветам пикселов (и альфы) перед выводом на поверхность + разные дополнительные опции типа ColorKey и т.д. Так что посмотри в эту сторону.

@Argus19 · 26.05.2020, 22:42 **[ТС]**

Сообщение от The trick

Так что посмотри в эту сторону.

Пока сложно.
Было бы проще получить hDC объекта Image без "костылей". Непонятно, почему это не реализовано. hDC - логический номер устройства. Вообще непонятно, как он присваивается. С указателем проще. Насколько я понимаю, указатель содержит адрес первого элемента объекта в памяти. Остаётся понять, что им является. Сам растр или сначала некий заголовок, из которого можно получить высоту и ширину объекта. например:

Visual Basic
1
2
 GdipGetImageHeight wimg, wHeight
      GdipGetImageWidth wimg, wWidth

@The trick · 26.05.2020, 23:02

Сообщение от Argus19

Пока сложно.

Это только так кажется.

Сообщение от Argus19

Было бы проще получить hDC объекта Image без "костылей".

Нельзя, как и в GDI. Из объекта Image можно получить только хендл изображения (HBITMAP).

Сообщение от Argus19

hDC - логический номер устройства.

Нет. Это хендл контекста утройства. Контекст устройства хранит множество информации. Контекст устройства может быть к примеру у принтера, тоже самое относится к объекту Graphics.

Сообщение от Argus19

Вообще непонятно, как он присваивается. С указателем проще. Насколько я понимаю, указатель содержит адрес первого элемента объекта в памяти. Остаётся понять, что им является.

Это хендл. Он присваивается из глобальной таблицы. С указателем не проще. Указатель платформозависим, а хендлы можно передавать между 64 битными и 32 битными приложениями.

Сообщение от Argus19

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

Не путай объекты GDI и объекты GDI+. Первые, в большинстве своем, - объекты ядра. Вторые - объекты пользовательского режима.

@Argus19 · 27.05.2020, 05:23 **[ТС]**

Обобщённо, всё описанное системная информация, для получения которой простых путей нет?

@Argus19 · 01.11.2020, 23:12 **[ТС]**

Нашёл в интернете код и доработал под свои нужды. Копирование происходит неправильно и возникает выход за пределы памяти.

@The trick · 02.11.2020, 22:26

Argus19, не стоит использовать GetBitmapBits поскольку она не позволяет задать формат пикселей. Для получения пикселей нужно использовать GetDiBits. В коде вообще непонятно что творится, размеры буферов разные.

@Argus19 · 03.11.2020, 05:58 **[ТС]**

Сообщение от The trick

Для получения пикселей нужно использовать GetDiBits

У интерфейса нет hDC.

@The trick · 03.11.2020, 10:43

Сообщение от Argus19

У интерфейса нет hDC.

К примеру у тебя 8 цветное изображение, какие пиксели ты желаешь получить? В каком формате?

@Argus19 · 03.11.2020, 17:12 **[ТС]**

Исходник взят тут:
http://uchitel-program.ru/code... baza-koda/
Автор утверждает, что программа уверенно работает с 24 - 32 разрядными цветами.

@Pro_grammer · 03.11.2020, 18:18

Сообщение от Argus19

Исходник взят тут:

Этот код есть в сборнике, который Вы активно преобразовали и записали на CD

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

Кстати, быстро он работает потому, что изображение очень маленькое.
Попробуйте поставить реальный размер, который обычно редактируют, и заметны будут тормоза.

@Argus19 · 03.11.2020, 18:48 **[ТС]**

Сообщение от Pro_grammer

который Вы активно преобразовали и записали на CD

И который я не доделал до полного объёма DVD. Присылайте мне ваши коды. Язык программирования не важен. Там же есть проекты на PB.

Сообщение от Pro_grammer

Кстати, быстро он работает потому, что изображение очень маленькое.

Это пока не важно. Главное, IpictureDisp может существовать независимо и его можно использовать.
Проблемы возникают потому, что при вычислении получаются дробные значения с "длинным хвостом" после запятой.
В коде:

Visual Basic
1
2
3
4
5
6
7
  Picture1.Picture = LoadPicture(App.Path & "\ball1.jpg")
     GetObject Picture1.Image, Len(SBuffer.Info), SBuffer.Info
        BufIn = SBuffer.Info.bmWidthBytes / SBuffer.Info.bmWidth
 
     ReDim SBuffer.Bits(0 To BufIn - 1, _
                       0 To SBuffer.Info.bmWidth - 1, _
                       0 To SBuffer.Info.bmHeight - 1) As Byte

И для Picture1.Image, и для Picture2.Image, BufIn = 3. Для тех же вычислений для IpictureDisp получается полное безобразие. Из-за чего изображение копируется в выходной буфер кое-как и программа "падает".

@The trick · 03.11.2020, 19:46

Сообщение от Argus19

Автор утверждает, что программа уверенно работает с 24 - 32 разрядными цветами.

Я другое имел в виду. Ты говоришь что у интерфейса нет hdc, но функция GetBitmapBits извлекает данные DDB изображения, тогда как нужно извлекать данные DIB изображения. Чтобы извлечь DIB данные из DDB изображения нужно использовать GetDiBits которая позволяет указать формат. HDC здесь нужен для правильной трансляции цветов т.к. битмап совместимый.
Более того, можно вообще не извлекать биты изображения если это DIB секция, они и так хранятся в пользовательской памяти. Для этого просто используешь функцию GetObject которая вернет указатель на пиксели. Это еще больше ускорит производительность т.к. не нужно копировать пиксели.

Добавлено через 21 минуту

Сообщение от Argus19

Это пока не важно. Главное, IpictureDisp может существовать независимо и его можно использовать.

Я вообще не понимаю смысл в этом. Если нужно напрямую манипулировать пикселями, есть много оптимальных вариантов. GDI+ вообще позволяет создать изображение основываясь на массиве и изменяя данные в этом массиве будет изменяться и изображение.

Добавлено через 2 минуты

Сообщение от Argus19

Проблемы возникают потому, что при вычислении получаются дробные значения с "длинным хвостом" после запятой.

Потому что IPicture как раз и предназначался чтобы работать с физическими величинами, а не с логическими пикселями.

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@Argus19 1732 / 476 / 78 Регистрация: 24.09.2017 Сообщений: 2,573 Записей в блоге: 27
	26.05.2020, 22:07 [ТС]
	Она просто копирует, без инверсии, Or, Xor и пр. Т.е. перед копированием необходимо модифицировать изображение. 0

@Argus19 1732 / 476 / 78 Регистрация: 24.09.2017 Сообщений: 2,573 Записей в блоге: 27
	27.05.2020, 05:23 [ТС]
	Обобщённо, всё описанное системная информация, для получения которой простых путей нет? 0

@The trick Модератор 10069 / 3914 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	02.11.2020, 22:26
	Argus19, не стоит использовать GetBitmapBits поскольку она не позволяет задать формат пикселей. Для получения пикселей нужно использовать GetDiBits. В коде вообще непонятно что творится, размеры буферов разные. 0

@Argus19 1732 / 476 / 78 Регистрация: 24.09.2017 Сообщений: 2,573 Записей в блоге: 27
	03.11.2020, 17:12 [ТС]
	Исходник взят тут: http://uchitel-program.ru/code... baza-koda/ Автор утверждает, что программа уверенно работает с 24 - 32 разрядными цветами. 0