Форматирование изображения по расширению файла

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

может быть полезным при работе с различными типами изображений, такими как JPEG, PNG, BMP и др. В этом руководстве мы рассмотрим, как форматировать изображение в зависимости от его расширения файла с помощью Object Pascal (Delphi).

Для начала, давайте определимся с расширениями файлов, которые мы будем использовать в нашем примере:

• JPEG: .jpg, .jpeg
• PNG: .png
• BMP: .bmp

Теперь, чтобы форматировать изображение по расширению файла, мы можем использовать оператор case для проверки расширения файла и соответствующего формата изображения. Пример кода:

program FormatImageByExtension;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Vcl.Graphics,
  Vcl.Images;

// Функция для получения расширения файла
function GetFileExtension(const FileName: string): string;
var
  Pos: Integer;
begin
  Result := '';
  Pos := Length(FileName);
  while (Pos > 0) and (FileName[Pos] <> '.') do
    Dec(Pos);
  if (Pos > 0) then
    Result := UpperCase(Copy(FileName, Pos + 1, Length(FileName) - Pos));
end;

var
  Image: TBitmap;
begin
  Image := TBitmap.Create;

  // Загрузка изображения из файла
  Image.LoadFromFile('C:\path\to\image.jpg');

  // 
  case GetFileExtension(Image.FileName) of
    'JPG', 'JPEG':
      begin
        // Изображение в формате JPEG
        Writeln('JPEG image');
        Image.SaveToFile('C:\path\to\output.jpg', TJPEResolution.Jpeg);
      end;
    'PNG':
      begin
        // Изображение в формате PNG
        Writeln('PNG image');
        Image.SaveToFile('C:\path\to\output.png', TPNGImageResolution.Png);
      end;
    'BMP':
      begin
        // Изображение в формате BMP
        Writeln('BMP image');
        Image.SaveToFile('C:\path\to\output.bmp', TBMPECompression.BI_RGB);
      end;
    else
      begin
        // Неизвестное расширение файла
        Writeln('Unknown file extension');
      end;
  end;

  // Освобождение ресурсов
  Image.Free;

  Readln;
end.

В этом примере мы создаем экземпляр класса TBitmap и загружаем изображение из файла с помощью метода LoadFromFile. Затем мы используем оператор case для проверки расширения файла изображения с помощью функции GetFileExtension. В зависимости от расширения файла, мы сохраняем изображение в соответствующем формате с помощью метода SaveToFile.

Надеюсь, это руководство поможет вам форматировать изображения по расширению файла с помощью Object Pascal (Delphi).

Создано по материалам из источника по ссылке.

Описано руководство по форматированию изображений по расширению файла с помощью Object Pascal (Delphi), учитывая популярные форматы изображений: JPEG, PNG, BMP.

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

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

:: Главная :: Bitmap ::