Копирование Битмапов в памяти

[VictorVM]

Нужно скопировать один битмап в другой.
По сути битмап - это набор байтов в памяти.

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


    hBMP1 = CreateCompatibleBitmap(hdcScreen, 100, 100)
    hBMP2 = CreateCompatibleBitmap(hdcScreen, 100, 100)
    CopyMemory hBMP1, hBMP2, nBytes


Но это в теории.
На самом деле этот код не работает.
Помогите пожалуйста разобраться.

С уважением Виктор.

[ANDLL]

GetBitmapBits(hBMP1)
SetBitmapBits(hBMP2)

[GSerg]

VictorVM
Раздел Для новичков - самое оно. В следующий раз будет замечание.

Private Declare Function CopyImage Lib "user32.dll" (ByVal handle As Long, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

[VictorVM]

Парни, вы меня не поняли. Я прекрасно знаю эти функции:

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


    GetObject Picture1.Picture, Len(BM), BM
    dwCount = BM.bmWidthBytes * BM.bmHeight * BM.bmPlanes
    ReDim arr(1 To dwCount)
    GetBitmapBits Picture1.Picture, dwCount, arr(1)
    SetBitmapBits Picture2.Picture, dwCount, arr(1)
    Picture2.Refresh


Вопроc в другом. У меня не получается сделать то-же самое, что показано вверху, при помощи CopyMemory. Ну типи заменить

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


    GetBitmapBits Picture1.Picture, dwCount, arr(1)
    SetBitmapBits Picture2.Picture, dwCount, arr(1)


на

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


CopyMemory Picture2.Picture, Picture1.Picture, dwCount


или это невозможно?

С уважением Виктор

[Velin]

Дэк, hBitmap - это ведь не адрес чего-то... Это, как я понимаю просто индекс элемента в некоторой системной таблице. Или не так?

[tyomitch]

Velin прав.

[VictorVM]

Если это не адрес, то почему GetObject работает в приведённом выше примере? Я полагал, что Picture1.Picture - возвращает хендл битмапа. Похоже ошибался.

Ладно спасибо.

[tyomitch]

хендл != адрес