FastReport (*.fr3) auslesen

[Eppos]

Hallo zusammen,

hat jemand bereits Erfahrung mit dem Auslesen von Informationen aus einer FastReport Datei?

Mir geht es explizit darum, den Autor sowie die Versionsnummer auszulesen.

Gruß
Eppos

[DeddyH]

Hast Du die Datei mal im Editor geöffnet? IIRC sind die im XML-Format, das lässt sich doch recht einfach parsen.

[Eppos]

Ja habe ich, habe auch schon ein bisschen rum probiert.

Code:

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="5.1.7" DotMatrixReport="False" ....

Code:

procedure TForm4.Button1Click(Sender: TObject);
var Node: IXMLNode;
begin
  XMLDocument1.LoadFromFile('D:\Test.xml');
  XMLDocument1.Active := True;
  Node := XMLDocument1.DocumentElement;
  Edit1.Text := Node.ChildNodes['Version'].NodeValue;
  XMLDocument1.Active := False;
end;

Er bekommt jedoch den Wert nicht (Null)...

Gruß
Eppos

[DeddyH]

Der gesuchte Knoten heißt TfrxReport und enthält das gesuchte Attribut Version.

[Eppos]

Hatte ich auch schon versucht:

Code:

Edit1.Text := Node.ChildNodes['TfrxReport'].AttributeNodes['Version'].NodeValue;

[DeddyH]

So geht es bei mir:

Delphi-Quellcode:

var
  Doc: IXMLDocument;
  Node: IXMLNode;
begin
  Doc := NewXMLDocument;
  Doc.LoadFromFile(Filename);
  Doc.Active := true;
  Node := Doc.DocumentElement;
  if Assigned(Node) then
    ShowMessage(Node.Attributes['Version']);
end;

[Eppos]

OK, danke, hat sich erledigt :-)

Code:

Edit1.Text := Node.AttributeNodes['Version'].NodeValue;