Получить изображение формы в виде Bitmap и поместить его в буфер обмена

Delphi , ОС и Железо , Буфер обмена

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// Copy form1 as bitmap into the clipboard 
// Kopiert Form1 als Bitmap in die Zwischenablage 

procedure TForm1.Button1Click(Sender: TObject);
 var
   imgWindow: TBitmap;
 begin
   imgWindow := GetFormImage;
   try
     Clipboard.Assign(imgWindow);
   finally
     imgWindow.Free;
   end;
 end;

 // Save the bitmap to a file 
// Das Bitmap in einer Datei speichern: 

procedure TForm1.Button2Click(Sender: TObject);
 var
   imgWindow: TBitmap;
 begin
   imgWindow := TBitmap.Create;
   try
     imgWindow := Form1.GetFormImage;
     imgWindow.SaveToFile('c:\FormImage.bmp');
   finally
     imgWindow.Free;
   end;
 end;

Программный код на Delphi, который захватывает снимок экрана формы и сохраняет его в виде растровой картинки в буфер обмена или файл.

Пусть мы разберемся с кодом:

Procedure Button1Click

Эта процедура вызывается при клике пользователем кнопки Button1. Она использует функцию GetFormImage для захвата снимка экрана формы, присваивает его переменной imgWindow, а затем копирует в буфер обмена с помощью Clipboard.Assign. Наконец, она освобождает объект imgWindow.

Procedure Button2Click

Эта процедура вызывается при клике пользователем кнопки Button2. Она создает новый объект TBitmap, захватывает снимок экрана формы с помощью GetFormImage, сохраняет его в файле "c:\FormImage.bmp" с помощью SaveToFile и, наконец, освобождает объект imgWindow.

Замечания

1. Функция GetFormImage используется для захвата снимка экрана формы. Эта функция не принимает параметров и возвращает объект TBitmap, содержащий снимок.
2. При сохранении растровой картинки в файле рекомендуется использовать полный путь к файлу (например, "C:\Путь\К\Изображению.bmp") вместо зависимости от предопределенного буквы диска (например, "c:\").
3. Объект Clipboard используется для копирования растровой картинки в буфер обмена. Это позволяет пользователю вставить изображение в другое приложение.
4. При работе с растровыми картинками важно освобождать объекты, когда вы закончили использовать их, чтобы избежать утечек памяти.

Альтернативное решение

Если вам нужно захватить снимок экрана формы и сохранить его в виде файла изображения без копирования в буфер обмена, вы можете использовать процедуру, похожую на следующую:

procedure TForm1.ButtonClick(Sender: TObject);
var
  imgWindow: TBitmap;
begin
  imgWindow := Form1.GetFormImage;
  try
    imgWindow.SaveToFile('c:\FormImage.bmp');
  finally
    imgWindow.Free;
  end;
end;

Эта процедура захватывает снимок экрана формы, сохраняет его в файле "c:\FormImage.bmp", а затем освобождает объект imgWindow.

В статье описывается, как получать изображение формы в виде Bitmap и поместить его в буфер обмена или сохранять в файл с помощью Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Буфер обмена ::