Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

18th
Окт

Копирование изображения

Posted by micher under Delphi

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

Пепел Феникса



procedure DrawOnHWND(h:THandle;b:HBITMAP);

var temp,wnd:HDC;

begin

 wnd:=GetDC(h);

 temp:=CreateCompatibleDC(wnd);

 SelectObject(temp,b);

 BitBlt(wnd,0,0,1024,768,temp,0,0,SRCCOPY);

 DeleteDC(temp);

 ReleaseDC(wnd);

end;

тема на форуме от 2011 года