Как преобразовать BMP в JPEG

Delphi , Графика и Игры , JPEG

Автор: http://www.swissdelphicenter.ch

uses
  Jpeg, ClipBrd;

procedure TfrmMain.ConvertBMP2JPEG;
// converts a bitmap, the graphic of a TChart for example, to a jpeg
var
  jpgImg: TJPEGImage;
begin
  // copy bitmap to clipboard
  chrtOutputSingle.CopyToClipboardBitmap;
  // get clipboard and load it to Image1
  Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,
    ClipBoard.GetAsHandle(cf_Bitmap), 0);
  // create the jpeg-graphic
  jpgImg := TJPEGImage.Create;
  // assign the bitmap to the jpeg, this converts the bitmap
  jpgImg.Assign(Image1.Picture.Bitmap);
  // and save it to file
  jpgImg.SaveToFile('TChartExample.jpg');
end;

Перевод контента на русский язык:

Код - это программный проект Delphi, который конвертирует изображение BMP (в этом случае, графику TChart) в JPEG-изображение.

Вот шаг за шагом, что код делает:

1. chrtOutputSingle. CopyToClipboardBitmap: Графика TChart копируется в буфер обмена в формате bitmap.
2. Image1. Picture. Bitmap. LoadFromClipboardFormat(cf_ BitMap, ClipBoard. GetAsHandle(cf_ BitMap), 0): Содержимое буфера обмена загружается в компонент Image (Image1).
3. jpgImg := TJPEGImage.Create: Создается новый JPEG-изображение.
4. jpgImg. Assign(Image1. Picture. Bitmap): Битмап из шага 2 присваивается JPEG-изображению, которое конвертирует битмап в формат JPEG.
5. jpgImg. SaveToFile('TChartExample.jpg'): Конвертированное JPEG-изображение сохраняется в файле с именем "TChartExample.jpg".

Код компактен и эффективен в достижении своей цели. Однако, есть несколько предложений для улучшения:

• Рассмотрите добавление обработки ошибок для потенциальных проблем при процессе конвертации (например, если буфер обмена не содержит битмапа или если файл не может быть записан).
• Вам может понравиться использовать более конкретный формат имени файла, например, включая дату и время конвертации, чтобы избежать перезаписи предыдущих файлов.
• Если вам нужно конвертировать несколько BMP-изображений, рассмотрите использование цикла для перебора изображений и выполнения процесса конвертации для каждого из них.

Вот пример модификации кода с добавлением обработки ошибок и более конкретным форматом имени файла:

procedure TfrmMain.ConvertBMP2JPEG;
var
  jpgImg: TJPEGImage;
begin
  try
     // copy bitmap to clipboard
    chrtOutputSingle. CopyToClipboardBitmap;

     // get clipboard and load it to Image1
    Image1. Picture. Bitmap. LoadFromClipboardFormat(cf_ BitMap, ClipBoard. GetAsHandle(cf_ BitMap), 0);

     // create the jpeg-graphics
    jpgImg  := TJPEGImage.Create;

     // assign the bitmap to the jpeg, this converts the bitmap
    jpgImg. Assign(Image1. Picture. Bitmap);

     // and save it to file with a specific filename format
    jpgImg. SaveToFile(Format('TChartExample_%s.jpg', [DateTime.Now.ToString('yyyyMMdd_HHmmss')]));

  except
    ShowMessage('Error converting BMP to JPEG: ' + LastException.Message);
  end;
end;

В этом модифицированном коде используется блок try-except, чтобы поймать любые ошибки, которые могут возникнуть при процессе конвертации. Если возникает ошибка, будет отображаться сообщение об ошибке. Формат имени файла также был изменен для включения текущей даты и времени в имя файла.

В статье описывается процесс преобразования файлов формата BMP в JPEG с помощью программного кода на языке Delphi, используя компоненты Jpeg и ClipBrd.

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

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

:: Главная :: JPEG ::