SVG-Elemente mit SKIA parsen und bearbeiten?

[PeterPanino]

Ich verwende Skia4Delphi in einer Delphi 11 Win32 VCL-Anwendung und lade eine SVG-Datei in ein TSkSvg-Steuerelement:

Code:

SkSvg1.Svg.Source := TFile.ReadAllText(aFile);

Wie kann ich alle SVG-Elemente und ihre jeweiligen Attribute im SVG parsen und sie in einer Baumansicht anzeigen, wobei die Hauptknoten die SVG-Elemente und die Knotenkinder die Elementattribute sind und die Knotenkinder der Elementattribute die bearbeitbaren Eigenschaften des jeweiligen Attributes sind?

Wenn ich dann in der Baumansicht ein Element auswähle, sollte dieses Element im TSkSvg-Steuerelement ausgewählt werden. Wenn ich dann einen Attribut-Knoten auswähle, sollte ich die Eigenschaften dieses Attributes einstellen können.

[TiGü]

Die Source müsste eine DOM-Property haben (ISkSVGDOM) und von dort aus über Root (ISkSVGSVG).

[PeterPanino]

Zitat von TiGü:

Die Source müsste eine DOM-Property haben (ISkSVGDOM) und von dort aus über Root (ISkSVGSVG).

SkSvg1.Svg.DOM.Root Aber wie kann ich von dort aus die SVG-Elemente finden?

DOM hat keine Methoden oder Eigenschaften zum Auffinden der SVG-Elemente:

https://app.screencast.com/E5rw3w8nz2Hzm

Wie man sieht, hat DOM die Methode FindNodeById(const AId: string), aber keine Methode, um alle NodeId-Elemente zu finden!

[TiGü]

Ah ja, verstehe.
Das parsen und durch den DOM navigieren scheint so nicht vorgesehen zu sein, wenn ich die richtige SKIA-Dokumentation anschaue.
https://api.skia.org/SkSVGDOM_8h_source.html
https://api.skia.org/classSkSVGSVG.html

Aber am Ende ist eine SVG auch nur eine XML, die du mit den üblichen Bordmitteln parsen, verarbeiten und darstellen kannst.
Hier mal was hingeschludert zum drauf aufbauen. Wie die Knoten dargestellt werden musst du deinen Wünschen natürlich anpassen.
Von den einzelnen TreeNodes wieder zurückzugehen per id und das dann in SkSvg1.Svg.DOM.FindNodeById() zu stecken ist dann nur noch eine Fingerübung.

Delphi-Quellcode:

unit Unit2;

interface

uses
    System.SysUtils, System.Variants, System.Classes, System.IOUtils,
    Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, Vcl.ComCtrls,
    Skia, Skia.Vcl,
    Xml.XMLIntf, Xml.XMLDoc;

type
    TForm1 = class(TForm)
        SkSvg1: TSkSvg;
        Button1: TButton;
        Memo1: TMemo;
        TreeView1: TTreeView;
        procedure Button1Click(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    SvgFilePath, SvgAsText: string;
    XMLDoc: IXMLDocument;
    XMLNode: IXMLNode;
    TreeNode: TTreeNode;

    procedure Fill(Nodes: IXMLNodeList; Item: TTreeNode);
    var
        Node: IXMLNode;
        Item2: TTreeNode;

    begin
        Node := Nodes.First;
        while Assigned(Node) do
        begin
            Item2 := TreeView1.Items.AddChildObject(Item, Node.NodeName, nil);
            if Node.HasAttribute('id') then
            begin
                Item2.Text := Item2.Text + ' - id: ' + Node.Attributes['id'];
            end;

            if Node.HasChildNodes then
                Fill(Node.ChildNodes, Item2);
            Node := Node.NextSibling;
        end;
    end;

begin
    SvgFilePath := '..._PfadZuEinenTestSVG_...\Skia4Delphi\Samples\Demo\Assets\gorilla.svg';

    SvgAsText := TFile.ReadAllText(SvgFilePath);

    Memo1.Lines.Text := SvgAsText;
    XMLDoc := NewXMLDocument;
    XMLDoc.LoadFromXML(SvgAsText);

    TreeView1.Items.BeginUpdate;
    try
        TreeView1.Items.Clear;
        TreeNode := TreeView1.Items.AddChild(nil, 'Root');

        Fill(XMLDoc.DocumentElement.ChildNodes, TreeNode)
    finally
        TreeView1.FullExpand;
        TreeView1.Items.EndUpdate;
    end;

    SkSvg1.Svg.Source := SvgAsText;
end;

end.

[TiGü]

Was ist denn hier raus geworden?

[himitsu]

eine Alternative?
https://learn.microsoft.com/en-us/wi...2d/svg-support
https://docwiki.embarcadero.com/RADS...henfl%C3%A4che