Вставить из clipboard BMP в Image Control
Добавлено: 24 Март 2009, 13:01
Уважаемые коллеги,
Потребовалось вставить из клипборда bmp в image control окна. Взял за основу реализацию clarionFreeimage. Но неохота весь класс clipboard тащить к себе.
Код из FreeImage
If cb.OpenClipboard(Window) = True
cb.GetClipboard(Window, ?Image1)
cb.CloseClipboard()
.
Работает на 100% и clarion5 в том числе.
Однако пытаюсь сделать это прямо через API руками - аналогично как описано в классе Freeimage отвечающим за clipboard
hMem HGlobal (Handle описан глобально )
If OpenClipboard(Window{prop:handle}) = True
hMem = GetClipboardData(CF_DIB)
! здесь handle приходит
Window $ ?Image1{PROP:ImageBlob} = hMem
GlobalFree(hMem)
CloseClipboard()
.
и не работает !
Кто подскажет что не так?
Потребовалось вставить из клипборда bmp в image control окна. Взял за основу реализацию clarionFreeimage. Но неохота весь класс clipboard тащить к себе.
Код из FreeImage
If cb.OpenClipboard(Window) = True
cb.GetClipboard(Window, ?Image1)
cb.CloseClipboard()
.
Работает на 100% и clarion5 в том числе.
Однако пытаюсь сделать это прямо через API руками - аналогично как описано в классе Freeimage отвечающим за clipboard
hMem HGlobal (Handle описан глобально )
If OpenClipboard(Window{prop:handle}) = True
hMem = GetClipboardData(CF_DIB)
! здесь handle приходит
Window $ ?Image1{PROP:ImageBlob} = hMem
GlobalFree(hMem)
CloseClipboard()
.
и не работает !
Кто подскажет что не так?