Создание QR-кодов с прозрачным фоном в Delphi с использованием Barcode Studio 2011 и Graphics32

Delphi , Графика и Игры , Изображения

Вопрос пользователя касается создания QR-кода с прозрачным фоном белого цвета в формате PNG, используя компоненты Barcode Studio 2011 и Graphics32 в среде разработки Delphi. Для решения этой задачи необходимо правильно настроить свойства компонента TBitmap32 и использовать библиотеку для сохранения изображения в формате PNG с поддержкой прозрачности.

Шаг 1: Подготовка изображения

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  psBarcodeComponent1.BarCode := 'some text here...';
end;

Шаг 2: Рисование QR-кода

Далее, в обработчике события нажатия кнопки, создаем изображение и рисуем на нем QR-код:

procedure TForm1.Button8Click(Sender: TObject);
var
  bmp: TBitmap32;
  Coords: TRect;
begin
  bmp := TBitmap32.Create;
  bmp.SetSize(image.Width, image.Height);
  bmp.Canvas.Brush.Color := clWhite; // Установка цвета фона изображения
  bmp.Canvas.FillRect(bmp.Canvas.ClipRect); // Заливка фоном
  bmp.DrawMode := dmSrcCopy; // Установка режима рисования
  // make Coords the size of image
  Coords := Rect(0,0,image.Width,image.Height);
  psBarcodeComponent1.PaintBarCode(bmp.Canvas, Coords);
  image.Bitmap.Assign(bmp);
  bmp.Transparent := True; // Включение прозрачности
  bmp.TransparentColor := clWhite; // Установка цвета, который будет прозрачным
end;

Шаг 3: Сохранение изображения в формате PNG

Для сохранения изображения с прозрачным фоном используем библиотеку, поддерживающую работу с PNG:

procedure TForm1.Button7Click(Sender: TObject);
var
  FImage: TSingleImage;
begin
  FImage := TSingleImage.Create;
  ConvertBitmap32ToImage(image.Bitmap, FImage);
  FImage.SaveToFile('QRCodeWithTransparency.png', tfPNG, 9); // Установка качества сжатия
end;

Обратите внимание, что в приведенном выше примере используется функция ConvertBitmap32ToImage из библиотеки, которая должна поддерживать сохранение изображений в формате PNG с прозрачностью. Если у вас возникли проблемы с этой функцией, рассмотрите возможность использования альтернативной библиотеки, например, GR32 PNG, которая предоставляет более гибкие возможности для работы с PNG:

uses GR32, GR32_PNG, GR32_PortableNetworkGraphic;

var
  Y, X: Integer;
  Png: TPortableNetworkGraphic32;
  function IsWhite(Color32: TColor32): Boolean;
begin
  Result:= (TColor32Entry(Color32).B = 255) and
           (TColor32Entry(Color32).G = 255) and
           (TColor32Entry(Color32).R = 255);
end;

begin
  with Image321 do
  begin
    Bitmap.ResetAlpha;
    for Y := 0 to Bitmap.Height-1 do
      for X := 0 to Bitmap.Width-1 do
      begin
        if IsWhite(Bitmap.Pixel[X, Y]) then
          Bitmap.Pixel[X,Y]:=Color32(255,255,255,0);
      end;
    Png:= TPortableNetworkGraphic32.Create;
    Png.Assign(Bitmap);
    Png.SaveToFile('C:\Temp\NowTransparent.png');
    Png.Free;
  end;
end;

Важно отметить, что для использования GR32 PNG library, вам необходимо будет установить её в вашем проекте и убедиться, что версия Delphi поддерживает работу с компонентом TPngImage.

Заключение

Следуя этим шагам, вы сможете создать QR-код с прозрачным фоном в формате PNG, используя Barcode Studio 2011 и Graphics32 в среде Delphi. Не забудьте проверить документацию используемых библиотек и компонентов для получения дополнительной информации и возможных решений проблем.

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

Создание QR-кода с прозрачным фоном в формате PNG с помощью Barcode Studio 2011 и Graphics32 в среде разработки Delphi.

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

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

:: Главная :: Изображения ::