Преобразовать BMP в JPEG

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
  Button1: TButton;
  Image1: TImage;
  procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses JPEG;

procedure TForm1.Button1Click(Sender: TObject);
var
  JPEG: TJPEGImage;
  Bitmap: TBitmap;
begin
  JPEG := TJPEGImage.Create;
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('C:\Program Files\Common Files\alarm.bmp');
    JPEG.Assign(Bitmap);
    Image1.Picture.Assign(JPEG);
  finally
    JPEG.Free;
    Bitmap.Free;
  end;
end;

end.

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

Код, написанный на Delphi, конвертирует изображение BMP в JPEG.

Следующий код работает следующим образом:

1. Процедура Button1Click вызывается при клике кнопки "Button1" на форме.
2. Она создает два объекта: JPEG типа TJPEGImage и Bitmap типа TBitmap.
3. Затем она загружает изображение BMP из файла 'alarm.bmp', расположенного в папке 'C:\Program Files\Common Files\' с помощью метода LoadFromFile класса TBitmap.
4. Далее она присваивает загруженное Bitmap объекту JPEG с помощью метода Assign.
5. Наконец, она устанавливает свойство Picture компонента Image1 на форме в значение JPEG, эффективно отображая JPEG-изображение.

Вот более эффективный и надежный способ достижения этого:

procedure TForm1.Button1Click(Sender: TObject);
var
  JPEG: TJPEGImage;
  Bitmap: TBitmap;
begin
  try
    Bitmap := TBitmap.Create;
    try
      Bitmap.LoadFromFile('C:\Program Files\Common Files\alarm.bmp');
      JPEG := TJPEGImage.Create;
      try
        JPEG.Assign(Bitmap);
        Image1.Picture.Assign(JPEG);
      finally
        JPEG.Free;
      end;
    finally
      Bitmap.Free;
    end;
  except
    ShowMessage('Ошибка: ' + LastException.Message);
  end;
end;

В этом коде мы используем блоки try...finally для обеспечения того, что объекты Bitmap и JPEG будут освобождены даже если возникнет исключение. Мы также отображаем сообщение об ошибке с помощью метода ShowMessage.

Программа на Delphi, предназначенная для преобразования файлов в формате BMP в формат JPEG и отображения результата в графическом интерфейсе пользователя.

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

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

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