Delphi Studio Как в delphi сделать скриншот (Screenshot) экрана и сохранить изображение? Пример на Delphi

Как в delphi сделать скриншот (Screenshot) экрана и сохранить изображение? Пример на Delphi

Пример, как в delphi можно сделать скриншот (Screenshot) экрана и сохранить изображение
Этот пример с использованием компонента Image будет делать скриншот и сохранять изображение в формате bmp
var
bmp : TBitmap;
begin
bmp := TBitmap.Create;
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height, GetDC(0), 0,0,SRCCOPY);
Image.Width := Screen.Width;
Image.Height := Screen.Height;
Image.Picture.Assign(bmp);
Image.Picture.SaveToFile('Screenshot.bmp');
bmp.Free;
end;

Этот пример без использования компонента Image будет делать скриншот и сохранять изображение в формате bmp
function Screenshot: TBitmap;
var
dw: HWND;
dc: HDC;
begin
Result := TBitmap.Create;
Result.Width := Screen.Width;
Result.Height := Screen.Height;
dw := GetDesktopWindow;
dc := GetDC(dw);
BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, dc, 0, 0, SRCCOPY);
ReleaseDC(dw, dc);
Result.SaveToFile('Screenshot.bmp');
end;

Этот пример без использования компонента Image будет делать скриншот и сохранять изображение в формате jpg
uses jpeg;

var
DC : HDC;
bmp : TBitmap;
jpgImg: TJPEGImage;
begin
bmp := TBitmap.Create;
jpgImg := TJPEGImage.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DC := GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
jpgImg.Assign(bmp);
jpgImg.CompressionQuality:=100;
jpgImg.SaveToFile('Screenshot.jpg');
jpgImg.Free;
bmp.Free;
end;
  • 0
 (голосов: 0)
14343 | 0

    Информация
    Информация

      Посетители, находящиеся в группе Гости, не могут оставлять комментарии в данной новости.

        Лучшее на Delphi Studio

        Лучшие книги по Delphi

        • Книга Delphi 2010 Handbook with Source Code
          Книга Delphi 2010 Handbook with Source Code - Книга Delphi 2010 Handbook with Source Code посвящена CodeGear Delphi 2010
        • Книга Программирование в Delphi глазами хакера. Фленов
          Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
        • Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов
          Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов - Электронная книга о профессиональных приемах программирования в Delphi. В легкой и доступной форме с использованием большого количества профессиональных примеров рассмотрены вопросы корректного написания кода, оптимизации программ, работы с системным окружением, создания сетевых приложений
        • Книга Библия Delphi Михаил Фленов (2-е издание) + CD
          Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
        • Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б
          Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б - Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP
        • Книга Delphi 7 Учебный курс С.Бобровский
          Книга Delphi 7 Учебный курс С.Бобровский - Электронная книга является руководством по программированию в среде Delplii 7. Описывается весь процесс разработки программы: от конструирования диалогового окна до организации справочной системы и создания установочного CD-ROM
        • Книга Delphi Быстрый Старт
          Книга Delphi Быстрый Старт - В книге описываются интерфейс системы визуального программирования Delphi на основе 6-й версии, состав и характеристика элементов проекта приложения, приемы программирования на языке Object Pascal
        • Книга Indy in Depth. Глубины Indy
          Книга Indy in Depth. Глубины Indy - Книга Indy in Depth Глубины Indy будет интересно для тех, кто интересуется хакингом, вирусописанием, а значит и для тех, кто занимается защитой сетей, программ, информации. Эта книга не только по Indy, она про Интернет, про протоколы, термины, методы работы, а к Indy относятся только примеры
        • Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов
          Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов - Книга посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютерной графики: двухмерные итрехмерные построения, анимация, работа с текстурой, визуальные эффекты
        • Книга Delphi 7 для профессионалов. Марко Кэнту
          Книга Delphi 7 для профессионалов. Марко Кэнту - Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом



        Поиск на Delphi Studio


        На Delphi Studio нашли

        работа с большим количеством checkbox delphi работа с большим количеством checkbox delphi
        парсинг в Delphi парсинг в Delphi
        как узнать все доступные методы в delphi как узнать все доступные методы в delphi
        скачать компоненты icq для delphi скачать компоненты icq для delphi
        прозрачное окно winapi delphi прозрачное окно winapi delphi
        парсинг с помощью memo в delphi парсинг с помощью memo в delphi
        ticqclient запрос авторизации ticqclient запрос авторизации
        delphi WebBrowser скопировать текст в memo delphi WebBrowser скопировать текст в memo
        парсинг в memo в delphi парсинг в memo в delphi
        отправка смс из edit по нажатию на enter delphi отправка смс из edit по нажатию на enter delphi
        свернуть окно программы в delphi свернуть окно программы в delphi
        Indy in Depth Indy in Depth
        текст в listbox delphi текст в listbox delphi
        Программирование в Delphi глазами хакера 2 Программирование в Delphi глазами хакера 2
        delphi 2010 html parser delphi 2010 html parser
        отправка из edit по нажатию на enter delphi отправка из edit по нажатию на enter delphi
        delphi скопировать текст браузера delphi скопировать текст браузера
        delphi delphi
        ащкь Destroy вудзрш ащкь Destroy вудзрш
        парсинг pos delphi парсинг pos delphi
        delphi извлечение файлов delphi извлечение файлов
        как скачать файл delphi idhttp как скачать файл delphi idhttp
        свернуть все окна делфи свернуть все окна делфи
        cooltrayicon установить delphi 7 cooltrayicon установить delphi 7
        delphi 7 edit delphi 7 edit
        Editable пример Editable пример
        замена текста в memo замена текста в memo
        delphi программное нажатие клавиш delphi программное нажатие клавиш
        исходники браузера delphi исходники браузера delphi
        программно нажать клавишу Delphi программно нажать клавишу Delphi
        delphi clientsocket
delphi clientsocket
        функции работы со строками в паскале
функции работы со строками в паскале
        pascal учебник
pascal учебник
        fl studio библия скачать
fl studio библия скачать
        открытие файла в delphi исходник
открытие файла в delphi исходник
        Валерий Фаронов скачать Система программирования Delphi 7
Валерий Фаронов скачать Система программирования Delphi 7
        компонент button delphi исходники
компонент button delphi исходники


        Информация

        Сайт Delphi Studio рассчитан для начинающих, новичков, чайников, которые решили программировать на Delphi :)
        Добавляйте свои примеры, исходники, компоненты, статьи и тогда на сайте будет много полезной информации, что поможет друг другу находить нужный материал.


        Случайные новости

        Как создать ссылку внутри программы (ShellAPI). Пример на Delphi
        Как создать ссылку внутри программы (ShellAPI). Пример на Delphi - Создать ссылку внутри программы, кликнув по ней откроется сайт, браузером который стоит по умолчанию, в users добавить ShellAPI. Пример на Delphi
        Функции для работы со строками в Delphi + примеры
        Функции для работы со строками в Delphi + примеры - Функции для работы со строками в Delphi + примеры (Pos, Copy, ReverseString, Insert, Delete, SetLength, IntToStr, StrToInt, FloatToStr, StrToFloat, DateToStr, TimeToStr, StrToDate, StrToTime, LowerCase, UpperCase, Trim, TrimLeft, TrimRight)


        Опрос

        Что вы хотите больше на Delphi Studio?
        Исходники
        Книги, Учебники
        Компоненты
        Статьи
        Примеры



        Информация

        А знаете ли вы что такие известные программы как AIMP, Skype, QIP, QIP Infium, R&Q, The Bat!, FL Studio, Guitar Pro, Game Maker, Total Commander, PowerArchiver, Download Master написаны на Delphi? И это далеко не весь список программ чем может похвастаться продукция Borland Delphi!


        rss