Перевод с VB6 на NET, несколько вопросов.

[Nord777]

А если получать хендл заново каждый раз непосредственно перед применением, избавляет ли это от необходимости фиксации массива в памяти?

Нет. Хендл относится к контексту устройства, а массив к битмэпу (никакой взаимосвязи).
Представь ситуацию:

Form1.BackgroundImage = Bmp
Сборщик мусора в какое то время перемещает массив.
Ты делаешь какое либо действие, в результате которого форме посылается Refresh. Форма пытается обратиться к битмэпу по несуществующему адресу. Результат - исключение памяти.
Если ты не получаешь это исключение в данный момент, то не надейся, что ты не получишь его в будущем. Так что фиксировать массив в таких случаях крайне желательно.

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

SetDIBitsToDevice(Graphics.FromHwnd(Me.Handle.ToInt32).GetHdc, ....

так делать нежелательно.
На каждый вызов GetHdc надо делать вызов ReleaseHdc

2. Нужно ли заново получать хендл при изменении размера массива (формы)?

нет.

[Mikle]

Nord777
Так ведь SetDIBits вообще можно выводить из массива, никак с битмэпом не связанного. Я просто из произвольного массива вывожу графику на форму. Что-то я не вник в смысл необходимости связывать при этом массив с битмэпом.

Ты делаешь какое либо действие, в результате которого форме посылается Refresh

Ну и что? Если я просто создал форму и вообще не делал никаких массивов и битмэпов, по Refresh не происходит никаких проблем. Так откуда они возьмутся, если я что-то нарисовал на форме при помощи SetDIBits?
И еще, никак не могу загрузить данные из битмэпа в массив, вообще минуя формы или PictureBoxы. GetDiBits дает нули, через GetPixel в цикле работает, но очень медленно. Не дашь примерчик, чтобы в модуле, вообще без всяких форм, создать битмэп, загрузить его FromFile, привести его к формату ARGB (видимо Clone, до сих пор у меня получилось). Дальше получить данные в свой массив, с которым можно работать.

[Nord777]

Так ведь SetDIBits вообще можно выводить из массива, никак с битмэпом не связанного. Я просто из произвольного массива вывожу графику на форму. Что-то я не вник в смысл необходимости связывать при этом массив с битмэпом.

В этом действительно нет необходимости. Просто иногда это бывает удобно. Например: Программе нужно выводить графику в смешанном режиме (т.е. рисовать сложные обьекты при помощи Graphics и иметь быстрый доступ к отдельным пикселям изображения). Представил? Я рисую на битмэпе нужное изображение и в коде пишу Ме.BackgroundImage = Bmp. При этом форма сама будет заботиться о перерисовке нужной части картинки (именно той, которая действительно нуждается в обновлении, а не все области).

создать битмэп, загрузить его FromFile, привести его к формату ARGB (видимо Clone, до сих пор у меня получилось). Дальше получить данные в свой массив, с которым можно работать.

Наверно как то так:

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

Imports System.Runtime.InteropServices

Public Class Form1
    Dim BmpArray(,) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Исходное изображение 24bpp
        Dim BmpSource As Bitmap = Bitmap.FromFile("AnyFile24bpp.bmp")

        ReDim BmpArray(BmpSource.Width - 1, BmpSource.Height - 1)

        'Создать изображение-приёмник на 32bpp
        Dim BmpDest As New Bitmap(BmpSource.Width, BmpSource.Height, _
                BmpSource.Width * 4, _
                Imaging.PixelFormat.Format32bppArgb, _
                Marshal.UnsafeAddrOfPinnedArrayElement(BmpArray, 0))

        'Нарисуем на приёмеике исходное изображение
        Using G As Graphics = Graphics.FromImage(BmpDest)
            G.DrawImage(BmpSource, 0, 0)
        End Using

        'освободим ненужые обьекты
        BmpDest.Dispose()
        BmpSource.Dispose()

        ' В результате в массиве BmpArray(,) содержатся данные в формате 32bpp
    End Sub
End Class

[Mikle]

Nord777
Thanks! Работает.
Только пришлось использовать другой оверлоад для DrawImage, с явным указанием высоты и ширины, иначе, почему-то, картинка масштабируется (увеличивается) и, в результате, на приемник не лезет.
И еще, при загрузке из PNG файла с альфа каналом, в приемник попадает только альфа канал...

[Nord777]

С альфа каналом попробую на досуге разобраться. Есть одно предположение, но его надо проверить.

[Nord777]

Только пришлось использовать другой оверлоад для DrawImage, с явным указанием высоты и ширины, иначе, почему-то, картинка масштабируется (увеличивается) и, в результате, на приемник не лезет

А это потому что у картинки не 96dpi, верно?

Зачем в png-файле ты используешь альфа-канал? Прозрачность работает и без него.

[Mikle]

Nord777
"не 96dpi" - видимо так, не важно, главное теперь работает.
С PNG не совсем так, как я написал, в приемник попадает не только альфа, а и все остальные каналы, но уже умноженными на альфу, видимо так срабатывает DrawImage.

Зачем в png-файле ты используешь альфа-канал? Прозрачность работает и без него.

А полупрозрачность?

[Nord777]

и полупрозрачность тоже. (32bppARGB)
Можешь попробывать его на разном фоне.

[Mikle]

Nord777
Да, если я его печатаю средствами NET, то все выглядит корректно, но если меня средства NET по разным причинам не устраивают (или я хочу не печатать, а сохранить данные в файл TGA), то мне нужно иметь неискаженные данные, какие они и находятся в BmpSrc, иначе бы оно правильно не отражалось. Но попытки перенести данные в массив с помощью DrawImage (а так же SetPixel(GetPixel(...)) вызывают автоматически просчет альфаканала (покомпонентное умножение всех цветовых каналов на альфу). То есть нужен какой-то более низкоуровневый метод.
Может у DrawImage есть какие-нибудь стили, или у битмэпа атрибуты, типа "не использовать альфа-канал"?

[Nord777]

Может у DrawImage есть какие-нибудь стили, или у битмэпа атрибуты, типа "не использовать альфа-канал"?

Такого к сожалению нет.
Но ничто не мешает тебе анализировать полученный массив.
Проходишь весь массив, веделяешь из интЕгера(ARGB) прозрачную составляющую(A) и записываешь это значение в другой массив (твой альфа-канал). Примерно как то так, если я конечно правильно тебя понял.

[Mikle]

Nord777
Как раз с альфаканалом все в порядке, искажен RGB канал, в тех местах, где альфа равна нулю, и RGB полностью потерян.

[Nord777]

Скинь мне небольшую картинку с альфа-каналом. Посмотрим.

[Mikle]

Вот PNG и четыре GIF-а, показывающих содержимое цветовых каналов. Мне желательно получить это же.

[Nord777]

Mikle, весь прикол в том, что в PNG-файлах ты не можешь сохранять альфа-каналы. Пробовал в фотошопе. Да, ты можешь смело создать альфа-канал, но при сохранении в .png он вырезается. После сохранения такого файла, попробуй его снова открыть - альфа канала ты не увидишь. Из понимаемых GDI+ форматов только .tif может сохранять альфу.

[Nord777]

Пока сам не попробовал - не понял что за проблема.
Код не комментировал, разберешься.

[Mikle]

Nord777
Это проблемы современных фотошопов, для работы с PNG я пользуюсь четвертым, а с помощью DX8 это прекрасно читалось, но не импортировать же DX8 в NET приложение ради чтения PNG.
Пример качаю.

[Nord777]

Я пользуюсь девятым шопом. Соответственно альфа-канала в твоём файле я не увидел. Как поведет себя прога на .png файле c альфа-каналом не знаю.

[Mikle]

Nord777
Спасибо, все вышло отлично.
Теперь, если я еще не надоел , еще вопросик. Как писать в битмэп произвольный текст? Graphics.DrawString я, естественно, нашел, но не могу выбрать произвольный цвет - там только набор готовых цветов. Еще хотелось бы сглаживать шрифты, как в VB6 Print выводит текст с учетом метода сглаживания, выбранного в панели управления. Если можно не использовать метод из панели управления, а задавать непосредственно - еще лучше.

[Viper]

Насчет цветов - метод Color.FromArgb
Насчет сглаживания - вроде есть метод в классе Graphics соответствующий

[Nord777]

Насчет сглаживания - вроде есть метод в классе Graphics соответствующий

Свойство. TextRenderingHint.

[Mikle]

Вот код:

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

Imports System.Runtime.InteropServices

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    pic.Image = New Bitmap(pic.Size.Width, pic.Size.Height, Imaging.PixelFormat.Format32bppArgb)

    Dim BackColor As System.Drawing.Color = Color.FromArgb(&HFF405060)
    Dim ForeColor As System.Drawing.Color = Color.FromArgb(&HFFD0C0A0)

    Using G As Graphics = Graphics.FromImage(pic.Image)
      G.Clear(BackColor)
      G.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
      G.DrawString("testTEST", Button1.Font, Brushes.White, 0, 0)
    End Using
  End Sub

End Class


pic - это PictureBox на форме. TextRenderingHint свое дело делает, но как вместо Brushes.White применить ForeColor, я так и не понял.

[tyomitch]

New SolidBrush(ForeColor)

[Mikle]

Спасибо, кто бы мог подумать, что оно так называется
Я, все-таки, закончил перевод софт движка, а по ходу дела проникся (начал проникаться) идеей нового для меня языка. В результате стал переделывать с учетом того, чего мне не позволял сделать VB6. В классе спрайта так и осталось применение VarPtr, но только непосредственно перед вызовом ф-ций из DLL (не все ли равно, передавать "ByVal VarPtr(x)" или "ByRef x" в ассемблерную DLL? Или я не прав?). Перемещение класса Sprite внутрь модуля SR2D позволило сделать Private (скрыть от пользователя) некоторые, ранее не скрытые элементы, но...

Осталась нескрытой ф-ция DataPtr потому, что екземпляры класса Sprite вызывают ее при взаимном "общении". Вопрос, можно ли ее тоже как-нибудь скрыть?
Один из переведенных примеров, чтобы было понятнее, можно взять здесь:
http://tuapse-mikle.narod.ru/PAK.rar
Размер - 193 кБ.

[Nord777]

Mikle похоже сказались бессонные ночи за проектом
Функция DataPtr у тебя вызывается только из модуля (ты же ведь перенес класс Sprite). Теперь ничто не мешает тебе обьявить её как Private.

[Mikle]

Nord777
Оп-па.
В NET Private методы класса видятся из ДРУГОГО экземпляра этого класса, на VB6 такого не было, я даже не подумал Private попробовать.