Работа с VCL.Skia.TSkSvg для рендеринга SVG и копирования битов в TImage

Delphi , Компоненты и Классы , TImage и TImageList

Вопрос, заданный пользователем gwideman, касается использования компонента VCL.Skia.TSkSvg для рендеринга SVG-изображений и последующего копирования результата в TImage. В ответах других пользователей были предоставлены ссылки на документацию и примеры кода, которые могли бы помочь в решении этой задачи.

Шаги для рендеринга SVG в TImage:

1. Создайте экземпляр TBitmap для хранения результата рендеринга.
2. Используйте метод SkiaDraw для рендеринга SVG на созданный TBitmap.
3. Присвойте TBitmap к TImage для отображения результата.

Пример кода на Object Pascal (Delphi):

uses
  System.IOUtils, // Для работы с файлами.
  System.Types, // Используется тип RectF.
  System.Skia, VCL.Skia;

procedure RenderSVGToImage(const ASVGFileName: string; const AImage: TImage);
var
  LBitmap: TBitmap;
begin
  // Создаем битмап для рендеринга SVG.
  LBitmap := TBitmap.Create(100, 100);
  try
    LBitmap.SkiaDraw(
      procedure (const ACanvas: ISKCanvas)
      var
        LSvgBrush: TSkSvgBrush;
      begin
        // Инициализация SVG-кисти.
        LSvgBrush := TSkSvgBrush.Create;
        try
          LSvgBrush.Source := TFile.ReadAllText(ASVGFileName);
          // Рендеринг SVG на канвас.
          LSvgBrush.Render(ACanvas, RectF(0, 0, LBitmap.Width, LBitmap.Height), 1);
        finally
          LSvgBrush.Free;
        end;
      end);
    // Присваиваем битмап к TImage.
    AImage.Picture.Assign(LBitmap);
  finally
    // Освобождаем битмап.
    FreeAndNil(LBitmap);
  end;
end;

Этот код можно вызвать из обработчика события, например, из FormCreate.

procedure TForm1.FormCreate(Sender: TObject);
begin
  RenderSVGToImage('......samplespanda.svg', Image1);
end;

Обратите внимание, что путь к файлу SVG ('......samplespanda.svg') должен быть указан корректно.

Рендеринг SVG без отображения TSkSvg на форме:

Если задача состоит в том, чтобы выполнить рендеринг SVG без отображения TSkSvg на форме, можно использовать тот же подход, что и выше, но без привязки TBitmap к TImage.

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

Если в документации VCL.Skia или на GitHub не удается найти прямой способ получения ISkImage, можно использовать методы, предоставляемые самим Skia для работы с изображениями и их конвертацией.

Примечание: Всегда полезно ознакомиться с документацией и примерами, предоставленными разработчиками, а также с исходным кодом, если это возможно. Это поможет глубже понять, как работает библиотека и какие возможности она предоставляет.

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

Пользователь gwideman интересуется процессом рендеринга SVG-изображений с использованием компонента VCL.Skia.TSkSvg и последующим копированием результата в TImage в среде разработки Delphi.

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

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

:: Главная :: TImage и TImageList ::