Delphi Studio » Примеры на Delphi » Примеры на Delphi Графика Мультимедиа » Как в delphi сделать скриншот (Screenshot) экрана и сохранить изображение? Пример на Delphi
    "Уважаемые посетители, если вы хотите задать вопросы и получить ответы, то регистрируйтесь и добавляйте свои вопросы тут: " Задать вопрос.
      Как в delphi сделать скриншот (Screenshot) экрана и сохранить изображение? Пример на Delphi Delphin | 8-05-2010, 03:38 | Примеры на Delphi » Примеры на 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) 23666 | 0 скриншот, экран, изображение, пример, delphi
      • Как склеить несколько картинок в одну на Delphi
      • Как вставить ProgressBar в StatusBar? Пример на Delphi
      • Компонент Memo в Delphi
      • Как определить размер файла. Пример на Delphi
      • Использование WinSock в Delphi. Часть 2
      • Информация

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

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

            • Книга Delphi 2010 Handbook with Source Code - Книга Delphi 2010 Handbook with Source Code посвящена CodeGear Delphi 2010

            • Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей

            • Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов - Электронная книга о профессиональных приемах программирования в Delphi. В легкой и доступной форме с использованием большого количества профессиональных примеров рассмотрены вопросы корректного написания кода, оптимизации программ, работы с системным окружением, создания сетевых приложений

            • Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования

            • Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б - Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP

            • Книга Delphi 7 Учебный курс С.Бобровский - Электронная книга является руководством по программированию в среде Delplii 7. Описывается весь процесс разработки программы: от конструирования диалогового окна до организации справочной системы и создания установочного CD-ROM

            • Книга Delphi Быстрый Старт - В книге описываются интерфейс системы визуального программирования Delphi на основе 6-й версии, состав и характеристика элементов проекта приложения, приемы программирования на языке Object Pascal

            • Книга Indy in Depth. Глубины Indy - Книга Indy in Depth Глубины Indy будет интересно для тех, кто интересуется хакингом, вирусописанием, а значит и для тех, кто занимается защитой сетей, программ, информации. Эта книга не только по Indy, она про Интернет, про протоколы, термины, методы работы, а к Indy относятся только примеры

            • Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов - Книга посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютерной графики: двухмерные итрехмерные построения, анимация, работа с текстурой, визуальные эффекты

            • Книга Delphi 7 для профессионалов. Марко Кэнту - Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом

            Друзья сайта


            Программы для ПК и Android


            Поиск на Delphi Studio



            Авторизация

            → Забыли пароль?
            → Ещё не зарегистрированы?


            На Delphi Studio нашли

            как написать калькулятор на delphi
            свойства Forms delphi
            Win32 API в DELPHI
            организация многопоточных программ Delphi
            как скопировать исходник в компьютер
            авторизация Windows + Delphi
            программ для парсинга html
            delphi aeyrwbz GetFileSize
            сайты дельфи
            работа со строками delphi stringreplace
            скачать сборник задач Pascal
            дельфи запуск нескольких потоков в цикле
            работа со строками Delphi 2009
            функция скриншота в delphi
            advalertwindow example
            tadvalertwindow кнопки
            добавление программы в автозагрузку в Делфи
            программа для извлечения База данных dle сайта
            timer delphi
            книга delphi 2010
            mail.ru
            delphi передать ссылку в браузер
            сохранение текстового файла в Вудзрш
            borland спрятать в трей
            как добавить gif image в Delphi
            скрыть клавишу windows и панель задач в Delphi
            webbrowser авторизация на сайте
            бобровский delphi ,tcgkfnyj
            Реферат.язык программирования Delphi история создания характеристики
            автозагрузка программы delphi
            програмно нажать на мышку Делфи
            pascal delphi как сделать компонент прозрачным
            статьи Indy в Delphi
            пример решения системы в delphi
            цвета заголовка окна как в Qip Delphi
            form.keypress delphi
            сухарев delphi онлайн


            Информация

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


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


            Как открыть и закрыть CD-ROM в Windows (MMSystem). Пример на Delphi - Пример на Delphi показывающий как можно открыть и закрыть CD-ROM в Windows. В uses нужно дабвить MMSystem

            Как создать браузер (WebBrowser) Пример на Delphi - Пример создания браузера на Delphi с использованием компонента WebBrowser

            Как создать браузер (WebBrowser) Пример на Delphi - Пример создания браузера на Delphi с использованием компонента WebBrowser


            Опрос

            Что вы хотите больше на Delphi Studio?


            Лучшее на 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!


            Архивы Delphi Studio

            18.05.2010
            08.05.2010
            28.04.2010
            24.04.2010
            23.04.2010
            22.04.2010
            21.04.2010
            19.04.2010
            18.04.2010
            17.04.2010
            16.04.2010
            15.04.2010
            14.04.2010
            13.04.2010
            Май 2010
            Апрель 2010

            rss