Как записать растр в файл? Как прочесть растр из файла?

@Litvinov · Регистрация: 23.08.2009

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

Создаю "виртуальное" окно и растр в нем API-функциями

Visual Basic

1
2
3

    hBM = CreateCompatibleBitmap(hGetDC, W, H)
    hDC = CreateCompatibleDC(0)
    Q = SelectObject(hDC, hBM)

Потом рисую в этом окне. Как сохранить рисунок в файл?

И, наоборот, как прочесть в такое окно растр из файла?

@Litvinov · 20.05.2010, 23:18 **[ТС]**

С чтением проблема снята:
Dim hDC As Long, Pic As IPictureDisp
Set Pic = LoadPicture(путь)
SelectObject hDC, Pic.Handle

Потом можно что-то нарисовать на hDC, и сохранить с помощью
SavePicture Pic, путь

Но, для того, что бы сохранить, сначала приходится прочесть файл с картиной нужных ширины и высоты.
А создать Pic "с нуля" не получается

@Litvinov 10 / 10 / 1 Регистрация: 23.08.2009 Сообщений: 23
	20.05.2010, 23:18 [ТС]	2
	С чтением проблема снята: Dim hDC As Long, Pic As IPictureDisp Set Pic = LoadPicture(путь) SelectObject hDC, Pic.Handle Потом можно что-то нарисовать на hDC, и сохранить с помощью SavePicture Pic, путь Но, для того, что бы сохранить, сначала приходится прочесть файл с картиной нужных ширины и высоты. А создать Pic "с нуля" не получается 0