Главная страница
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.013 c
3-10585
Алексей Петухов
2003-08-14 13:59
2003.09.04
Вычисляемое поле в BDGrid


7-11004
Fants
2003-06-19 17:12
2003.09.04
Свое расширение файла в системе


1-10764
acsoft
2003-08-24 12:14
2003.09.04
Вопросы по TWebBrowser


14-10984
Е-Моё имя
2003-08-14 15:44
2003.09.04
16-бит Си компилятор


3-10554
yurez
2003-08-15 12:14
2003.09.04
Как редактировать права доступа к таблицам базы данных interbase?