Как извлечь из буфера обмена картинку ?

← →
duke2 (2003-08-24 14:59) [0]

Уважаемые мастера !
Как извлечь из буфера обмена картинку, содержащуюся в нем ?
Делаю так:

procedure TForm1.Button1Click(Sender: TObject);
var bmp: TBitmap;
MyHandle: THandle;
begin
bmp := TBitmap.Create;
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;

ClipBoard.Open;
if ClipBoard.HasFormat(CF_BITMAP) then begin
beep();
MyHandle := Clipboard.GetAsHandle(CF_BITMAP);
bmp := GlobalLock(MyHandle);
Form1.Canvas.Draw(0,0,bmp);
GlobalUnlock(MyHandle);
end;
Clipboard.Close;

end;

Ошибок не происходит, однако во время отладки видно, что Bitmap=nil после присвоения
bmp := GlobalLock(MyHandle);.
Подобный кусок кода работает при вытаскивании ТЕКСТА работает отлично (CF_TEXT и TEdit вместо CF_BITMAP и TBitmap). Почему не работает для графики ?

← →
MBo (2003-08-24 15:03) [1]

if ClipBoard.HasFormat(CF_BITMAP) then
bmp.Assign(ClipBoard);

это
> bmp := GlobalLock(MyHandle);
в корне неверно.

← →
duke2 (2003-08-24 15:10) [2]

Спасибо, заработало !
А я пробовал
bmp.Assign(GlobalLock(MyHandle))...

Как извлечь из буфера обмена картинку ? Найти похожие ветки