Разместить 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 как раз и предназначался чтобы работать с физическими величинами, а не с логическими пикселями.

Новые блоги и статьи Все статьи Все блоги /
Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .
сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .	сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .

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

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

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

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