AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein XML Delphi Sonderzeichen fehlen beim Auslesen einer XML
Thema durchsuchen
Ansicht
Themen-Optionen

Sonderzeichen fehlen beim Auslesen einer XML

Offene Frage von "hitz"
Ein Thema von hitz · begonnen am 19. Feb 2011 · letzter Beitrag vom 19. Feb 2011
Antwort Antwort
Seite 1 von 2  1 2      
hitz

Registriert seit: 19. Feb 2011
5 Beiträge
 
#1

Sonderzeichen fehlen beim Auslesen einer XML

  Alt 19. Feb 2011, 15:22
Hallo,

ich habe ein Problem beim Auslesen folgender XML:

Code:
<?xml version="1.0" encoding="utf-8"?>
<!-- comid136045 -->
<ArrayOfSpieler xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Spieler>
    <Name>Matthias</Name>
    <AccountValue>7046800</AccountValue>
    <SpielerColor>0</SpielerColor>
    <SpielerPunkte>480</SpielerPunkte>
  </Spieler>
  <Spieler>
    <Name>Dennis</Name>
    <AccountValue>938900</AccountValue>
    <SpielerColor>0</SpielerColor>
    <SpielerPunkte>481</SpielerPunkte>
  </Spieler>
  <Spieler>
    <Name>René</Name>
    <AccountValue>3796080</AccountValue>
    <SpielerColor>0</SpielerColor>
    <SpielerPunkte>442</SpielerPunkte>
  </Spieler>
</ArrayOfSpieler>
Ich nutze Lazarus 0.9.28.2b und habe die units dom, xmlwrite und xmlread eingebunden. Ich lese die XML über 2 ineinander verschachtelte Schleifen in ein StringGrid. Das funktioniert auch, bis auf das "é" im Namen des Spielers "René". Das wird bereits beim Lesen aus der XML "verschluckt". Woran liegt das und wie kann ich das beheben?
Vielen Dank schonmal für eure Hilfe!
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.068 Beiträge
 
Delphi 12 Athens
 
#2

AW: Sonderzeichen fehlen beim Auslesen einer XML

  Alt 19. Feb 2011, 15:46
é ist definitiv keine UTF-8-Darstellung, also scheint die XML-Datei fehlerhaft zu sein.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.196 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Sonderzeichen fehlen beim Auslesen einer XML

  Alt 19. Feb 2011, 15:50
Es kommt jetzt darauf an ob die Datei wirklich so aussieht oder das das Ergebnis einer Anzeige mit Notepad/IE/Firefox + Copy-Aktion ins Forum ist. Poste doch mal die Orginal-XML-Datei als Anhang.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
hitz

Registriert seit: 19. Feb 2011
5 Beiträge
 
#4

AW: Sonderzeichen fehlen beim Auslesen einer XML

  Alt 19. Feb 2011, 15:58
Ich habs mit dem Win7 Editor geöffnet und rauskopiert und etwas gekürzt, in der originalen XML sind mehr Spieler vorhanden (s. Anhang).

Aber egal wie ich es öffne, das é ist da... Gibts da keine Möglichkeit das utf8-konform zu machen?
Angehängte Dateien
Dateityp: rar eleete.rar (491 Bytes, 4x aufgerufen)
  Mit Zitat antworten Zitat
-187-

Registriert seit: 24. Sep 2005
483 Beiträge
 
Delphi 2010 Architect
 
#5

AW: Sonderzeichen fehlen beim Auslesen einer XML

  Alt 19. Feb 2011, 16:18
Hm das ist keine valide XML Datei. Du solltest vorher die Sonderzeichen ersetzen.

Bsp: StrList.Strings[i]:=StringReplace(StrList.Strings[i], 'é', '&eacute;',[rfReplaceAll, rfIgnoreCase]);
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.068 Beiträge
 
Delphi 12 Athens
 
#6

AW: Sonderzeichen fehlen beim Auslesen einer XML

  Alt 19. Feb 2011, 16:36
Die XML-Datei scheint ordentlich codiert zu sein.

Wie ließt du denn die Datei ein?
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
hitz

Registriert seit: 19. Feb 2011
5 Beiträge
 
#7

AW: Sonderzeichen fehlen beim Auslesen einer XML

  Alt 19. Feb 2011, 16:50
Ich lese die XML in ein StringGrid ein, die Anweisung zur unterschiedlichen Farbdarstellung habe ich mal rausgenommen:

Code:
var
   Dok : TXMLDocument;
   i, j, farbwert: Integer;
   s : string;

begin
   ReadXMLFile(Dok, pfad);
   Form1.StringGrid1.RowCount := Dok.documentElement.ChildNodes.Count+1;
   with Dok.DocumentElement.ChildNodes do
   begin
        for i := 0 to Count-1 do
        begin
             for j := 0 to Item[i].ChildNodes.Count-1 do
             begin
                  s := Item[i].ChildNodes.Item[j].FirstChild.NodeValue;
                  case j of
                  0,1 : begin
                           Form1.StringGrid1.Cells[j,i+1] := s;
                    end;
                  2 : begin
                           farbwert := strtoint(s);
                           case farbwert of
                           [.....]
                    end;
                  3 : begin
                           Form1.StringGrid1.Cells[j-1,i+1] := s;
                    end;
                  end;
             end;
        end;
   end;
   Dok.Free;
end;

Geändert von hitz (19. Feb 2011 um 16:55 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.068 Beiträge
 
Delphi 12 Athens
 
#8

AW: Sonderzeichen fehlen beim Auslesen einer XML

  Alt 19. Feb 2011, 17:00
hmm, sieht soweit ok aus, hätte ja sein können, daß du dieses erstmal selber einließt und dann erst ans XML-DOM übergibst.

Als ein Problem bei Lazarus empfand ich die komische Mischung von UTF8String und anderen Stringtypen,
da müßtest du mal nachsehn, ob da nun alles stimmt.
> Was für ein Typ ist denn "string" (also intern) und wie sieht es mit NodeValue und Cell aus?
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
hitz

Registriert seit: 19. Feb 2011
5 Beiträge
 
#9

AW: Sonderzeichen fehlen beim Auslesen einer XML

  Alt 19. Feb 2011, 17:19
Ich glaube Lazarus ist standardmäßig auf utf8 eingestellt, jedenfalls sagt mir das meine kurze Suche im Internet. Dabei bin ich auch auf den Befehl utf8encode() gestoßen und habe den eingefügt:
Code:
aus
s := Item[i].ChildNodes.Item[j].FirstChild.NodeValue;
wurde
s := utf8encode(Item[i].ChildNodes.Item[j].FirstChild.NodeValue);
Und was soll ich sagen? Es funktioniert, nur warum weiß ich nicht

/edit: Könnte es sein, dass die .NodeValue einen nicht-utf8 string ausgibt, obwohl in der XML utf8 verwendet wird?

Geändert von hitz (19. Feb 2011 um 17:25 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.196 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: Sonderzeichen fehlen beim Auslesen einer XML

  Alt 19. Feb 2011, 17:21
Ich glaube Lazarus ist standardmäßig auf utf8 eingestellt, jedenfalls sagt mir das meine kurze Suche im Internet. Dabei bin ich auch auf den Befehl utf8encode() gestoßen und habe den eingefügt:
Lazarus hat UTF8 als Standard-Unicodecodierung gewählt. Aber es gibt scheinbar noch genügend Stellen an denen einmal zu viel oder zu wenig utf8encode/utf8decode aufgerufen wird. Hatten in letzten Zeit öfter schon UTF8/Unicodefragen die auf Implementierungsfehler zurückzuführen waren.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz