Скачать: CL | DM;

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

← →
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))...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c