VerySimpleXML: Problem unter iOS?

[himitsu]

Wie sieht es denn hier aus?

Delphi-Quellcode:

XMLObj.Ident := '';
Memo1.Lines.Text := XMLObj.Text;

[cydo]

Zitat:

Zitat von himitsu (Beitrag 1240522)

Ein/zwei "Problemchen" hab ich jetzt beim Überfliegen des Codes schonmal entdeckt.

Super, welche denn?

[Union]

Anbei ein Demoprojekt inklusive der beanstandeten XML-Datei. Suchpfad (.\source) und Bereitstellung (StartUp\Documents) für die XML-Datei sind ggf noch anzupasssen.

[himitsu]

Ich prüfe es dann nach der Arbeit nochmal und lad es hier zum Testen hoch.
Wie gesagt, diese Dinge haben aber erstmal mir dem hier genannten Problem nichts zu tun.
- bissl Unicode-Zeugs, potentielle Speicherlecks (die aber en nicht oft auftreten sollten), ...
- das mit dem Zeilenumbruch

Delphi-Quellcode:

function TXmlVerySimple.GetText: String;
begin
  Lines.Clear;
  Lines.LineBreak := IfThen(Ident = '', '', sLineBreak);

(daß sich die klasse bei so einigen Dingen nicht an die XML-Deklaration halten, ignorier ich hier einfach mal ... dafür isses halt klein und "einfach")



Ich hoffe mal das hier gibt den ersten Node zurück:

Delphi-Quellcode:

Memo1.Lines.Text := '"' + XMLObj.Root.ChildNodes[0].Text + '"';

Was zeigt da denn das Memo an?
> Also ob der Fehler schon beim Einlesen oder erst beim Speichern auftritt.

[romber]

Vielen Dank für eure Antworten!

Zitat:

Zitat von himitsu (Beitrag 1240522)

Ich glaub fast der TStreamReader hat da einen Bug, denn der Dennis er selber behandelt die Zeilenumbrüche nicht selber.

Ich habe mir tetweise eine zusätzliche Funktion LoadFromXML gebaut ohne TStreamReader, die unter Windows ebenfalls pergekt funktioniert. Unter iOS ist das Ergebnis der selbe.

Ein Testprojekt lade ich gleich hoch, wobei dieser sich nicht viel von Unions Testcode unterscheiden wird. Ich spare mir nur den Zugriff auf die Dateisystem, indem ich mir eine fertige XML-Datei vom Webserver lade. Ansonsten alles gleich.

Zitat:

Zitat von cydo (Beitrag 1240528)

Wenn Du mir ein komplettes Testprojekt (incl. Testdateien) für iOS (unter welcher Version testest Du es?) schickst, dann kann ich ja mal nach dem Fehler suchen. Eventuell ists auch wirklich der TStreamReader, möglicherweise lässt sich da was umstellen - ich debugge es gerne

Mache ich gleich. Danke!

[himitsu]

Wenn das die XML ist, dann sollte es nicht am StreamReader liegen, oder zeigt bei jemandem der Debugger in der Variable "Line" ein zeichen "A" und "<" an?
(sollte nicht, da Keines da ist)

- wenn das "Zeichen" in XMLNode.Text drin ist, dann ist es eher eine Art "Buffer-Overrun" in der Parse-Funktion des TVerySimpleXML
- oder es ist ein "Bug" beim Zusammenbauen der XML-Ausgabe im TVerySimpleXML (wäre ungewöhnlich, wenn der erst im StreamWriter auftritt)

[Union]

Das Problem liegt wohl in der Verarbeitung der letzten Verschachtelungsebene:

Delphi-Quellcode:

IsSelfClosing := (Length(Node.Text) = 0) and (Node.ChildNodes.Count = 0)

Das ergibt immer true, da auf Node.Text abgefragt wird - der ist ja bei einem schließenden Tag in dem Fall immer leer. Es sollte zusätzlich Node.Parent.Text überprüft werden um das Flag zu setzen.

[cydo]

Zitat:

Zitat von Union (Beitrag 1240539)

Das Problem liegt wohl in der Verarbeitung der letzten Verschachtelungsebene:

Delphi-Quellcode:

IsSelfClosing := (Length(Node.Text) = 0) and (Node.ChildNodes.Count = 0)

Das ergibt immer true, da auf Node.Text abgefragt wird - der ist ja bei einem schließenden Tag in dem Fall immer leer. Es sollte zusätzlich Node.Parent.Text überprüft werden um das Flag zu setzen.

Nee, Isselfclosing fragt sowas ab:

<nixdrin/>
oder <nixdrin></nixdrin>

das ist unabhängig vom Parent Text

[cydo]

Zitat:

Zitat von romber (Beitrag 1240535)

Ich habe mir tetweise eine zusätzliche Funktion LoadFromXML gebaut ohne TStreamReader, die unter Windows ebenfalls pergekt funktioniert. Unter iOS ist das Ergebnis der selbe.

ja die version 1.0 von xmlverysimple ist auch ohne tstreamreader

[cydo]

Unter welcher Delphi Version tritt denn das Problem auf?