Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.04;
Скачать: 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 вся ветка

Текущий архив: 2003.09.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
1-10795
Maks
2003-08-25 13:02
2003.09.04
Масштаб Image


4-11013
Nick Denry
2003-07-05 20:49
2003.09.04
9x и wm_devicechange. в SDK написано -нет такой мессаги в 9x


14-10925
mOOx_
2003-08-16 15:14
2003.09.04
Список запущенных задач на удаленной машине


1-10791
Просто гость
2003-08-22 20:29
2003.09.04
Дескриптор окна


6-10856
Alien
2003-06-24 15:42
2003.09.04
TServerSocket.Socket.SendBuf/ReceiveBuf