himXML (gesprochen himix ML)

[Neutral General]

Wow, ich glaube ich lade mir doch die Version aus der Zukunft von 2020!

Du könntest ja evtl. beide Versionen nochmal neu hochladen mit einem besseren Namen

[RWarnecke]

Hallo himitsu,

ich wollte gerade Dein himXML ausprobieren unter Delphi 2006. Leider bekomme ich keine Daten aus meiner XML-Datei ausgelesen. Könntest Du mir da vielleicht weiterhelfen. Das erste ist, wenn ich Deine Datei himXML.pas öffne, dann bekomme ich schonmal die Meldungen aus dem Anhang. Dann probiere ich es trotzdem mit folgenden Code die XML-Datei zu öffnen und Werte auszulesen :

Delphi-Quellcode:

var
  FormalXML : TXMLFile; 
begin
  FormalXML := TXMLFile.Create;
  try
    FormalXML.asXML := '"' + GetEnvVarValue('SystemRoot') + '\Performance\WinSAT\DataStore\2010-08-28 14.10.58.562 Formal.Assessment (Initial).WinSAT.xml"';
    with FormalXML.Node['WinSAT'].Node['WinSPR'] do
    begin
      Label30b.Caption := Node['CpuScore'].Text;
      Label112b.Caption := Node['MemoryScore'].Text;
      Label113b.Caption := Node['GraphicsScore'].Text;
      Label114b.Caption := Node['GamingScore'].Text;
      Label115b.Caption := Node['DiskScore'].Text;
    end;
  finally
    FormalXML.Free;
  end;
end;

Jedesmal bekomme ich eine AccessViolation in der Zeile with FormalXML.Node['WinSAT'].Node['WinSPR'] do . Das ganze führe ich unter Windows 7 x64 aus.

Edit:
Wenn ich das ganze so ausprobiere :

Delphi-Quellcode:

var
  FormalXML : TXMLFile; 
begin
  FormalXML := TXMLFile.Create;
  try
    FormalXML.LoadFromFile('"' + GetEnvVarValue('SystemRoot') + '\Performance\WinSAT\DataStore\2010-08-28 14.10.58.562 Formal.Assessment (Initial).WinSAT.xml"');
    with FormalXML.Node['WinSAT'].Node['WinSPR'] do
    begin
      Label30b.Caption := Node['CpuScore'].Text;
      Label112b.Caption := Node['MemoryScore'].Text;
      Label113b.Caption := Node['GraphicsScore'].Text;
      Label114b.Caption := Node['GamingScore'].Text;
      Label115b.Caption := Node['DiskScore'].Text;
    end;
  finally
    FormalXML.Free;
  end;
end;

Bei dieser Variante wird noch der Pfad vom Arbeitsverzeichnis vor den übergebenen Pfad gesetzt. Somit funktioniert auch hier das Laden des XML-Files nicht.

[himitsu]

asXML ist der Inhalt der XML-Datei ... also der XML-Code selber.

Eine Datei laden kannst du über LoadFromFile

Delphi-Quellcode:

var
  FormalXML : TXMLFile;
begin
  FormalXML := TXMLFile.Create(;
  try
    FormalXML.LoadFromFile(GetEnvVarValue('SystemRoot')
      + '\Performance\WinSAT\DataStore\2010-08-28 14.10.58.562 Formal.Assessment (Initial).WinSAT.xml');
    with FormalXML.Node['WinSAT'].Node['WinSPR'] do
    begin
      Label30b.Caption := Node['CpuScore'].Text;
      Label112b.Caption := Node['MemoryScore'].Text;
      Label113b.Caption := Node['GraphicsScore'].Text;
      Label114b.Caption := Node['GamingScore'].Text;
      Label115b.Caption := Node['DiskScore'].Text;
    end;
  finally
    FormalXML.Free;
  end;
end;

oder direkt beim Create

Delphi-Quellcode:

var
  FormalXML : TXMLFile;
begin
  FormalXML := TXMLFile.Create(nil, GetEnvVarValue('SystemRoot')
    + '\Performance\WinSAT\DataStore\2010-08-28 14.10.58.562 Formal.Assessment (Initial).WinSAT.xml'), False);
  try
    Label30b.Caption := FormalXML['WinSAT\WinSPR\CpuScore'].Text;
    Label112b.Caption := FormalXML['WinSAT\WinSPR\MemoryScore'].Text;
    ...

Wie sieht denn die XML-Datei aus?
Wenn "WinSAT" der Name des RootNode/Hauptknoten ist, dann kannst/mußt du .Node['WinSAT'] weglassen, da der Hauptknoten über XML.Node schon direkt angesprochen wurde.

[RWarnecke]

Hallo Himitsu,

danke erstmal für Deine prompte Antwort.

Zitat von himitsu:

Wie sieht denn die XML-Datei aus?

Wenn Du Windows VISTA oder Windows 7 als Betriebssystem installiert hast, kann Du Dir die XML-Datei in dem angegebenen Pfad anschauen.

Zitat von himitsu:

Wenn "WinSAT" der Name des RootNode/Hauptknoten ist, dann kannst/mußt du .Node['WinSAT'] weglassen, da der Hauptknoten über XML.Node schon direkt angesprochen wurde.

Die Node WinSAT ist die RootNode.

Wenn ich Dein Beispiel übernehme, bekomme ich folgende Fehlermeldung :

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project SystemInfo.exe raised exception class EXMLException with message 'EXMLException (TXMLFile.ParsingTree):
unknown encoding

error at byte position 2 ("" on line 1)'.
---------------------------
Break Continue Help
---------------------------

Diese Meldung taucht auf in der Zeile FormalXML.LoadFromFile.

[himitsu]

Nein, solche Dateien gibt es nicht.
Und auf die Schnelle bekomm ich die gefundene WinSAT.exe nicht zum laufen.

[RWarnecke]

Zitat von himitsu:

Und auf die Schnelle bekomm ich die gefundene WinSAT.exe nicht zum laufen.

In Windows 7 oder Windows Vista die Tastenkombi Windows-Taste+Pause drücken und dann kannst Du den Leistungsindex von Deinem Betriebssystem abfragen. Ich schicke Dir zuästzlich noch die angegebene Datei per PN.

[himitsu]

Ohhh, das böse UTF-16

OK, da müßtest du mal ein bissl "hacken".
- in der himXML.pas nach xeUTF16 suchen und diese beiden/drei Funde entkommentieren
- in TXReader.ReadData und und TXWriter.WriteDataX gibt es jeweils ein Case _Encoding of ,
dort bei den Werten xeUnicode, xeUnicodeBE noch das xeUTF16 mit hinzufügen.

Dann sollte es "nutzbar" sein.