himXML speichern mit BOM

[haentschman]

Hallöle...8-)

Mein XML (Encoding: UTF-8) soll mal ein BOM bekommen...

Delphi-Quellcode:

XML.SaveToFile(Name)

In den Options ist "xoDontWriteBOM" nicht angegeben. (Standard) Die Datei hat aber kein BOM. :?

Header der gespeicherten Datei:

Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<Messages>
  <Message>

himXML.pas:

Delphi-Quellcode:

Procedure TXWriter.WriteBOM(AllowUTF8BOM: Boolean = False);
  Begin
    If (XMLEncodingData[_Encoding].BOM > '') and (xoDontWriteBOM in _Options)
        and ((_Encoding <> xeUTF8) or AllowUTF8BOM) Then Begin
        Flush;
        _Stream.WriteBuffer(XMLEncodingData[_Encoding].BOM[1],
        Length(XMLEncodingData[_Encoding].BOM));
     End;
   End;

Delphi-Quellcode:

and (xoDontWriteBOM in _Options)

damit kann er nie den BOM schreiben? Oder? :gruebel:

Was muß ich einstellen?

Danke...

[Blup]

Also vom Ablauf her müsste an dieser Stelle die Option mit "xoWriteBOM" benannt werden.
Das ist auch kürzer und für den menschlichen Verstand einfacher zu erfassen als negierte Aussagen.

Wenn man die Optionen ändert, müssten natürlich alle Stellen geprüft werden, die davon abhängen.
Insbesondere auch die Vorbelegung der Option.

Ich würde in der Methode mit einer Zwischenvariable arbeiten, was übersichtlicher ist:

Delphi-Quellcode:

if (xoWriteBOM in _Options) and (_Encoding <> xeUTF8) or AllowUTF8BOM) then
begin
  sBuffer := XMLEncodingData[_Encoding].BOM;
  if Length(sBuffer) > 0 then
    _Stream.WriteBuffer(sBuffer[1], Length(sBuffer));
end;

[Rolf Frei]

Ja ich würde auch sagen, dass da noch ein not davor hin gehört. Also:

Delphi-Quellcode:

Procedure TXWriter.WriteBOM(AllowUTF8BOM: Boolean = False);
  Begin
    If (XMLEncodingData[_Encoding].BOM > '') and not (xoDontWriteBOM in _Options)
        and ((_Encoding <> xeUTF8) or AllowUTF8BOM) Then Begin
        Flush;
        _Stream.WriteBuffer(XMLEncodingData[_Encoding].BOM[1],
        Length(XMLEncodingData[_Encoding].BOM));
     End;
   End;

[haentschman]

Danke...:wink:

Zitat:

Ja ich würde auch sagen, dass da noch ein not davor hin gehört

Ich habe auch versucht die Option in Option hinzufügen. Gleiches Ergebnis.

An die procedure habe ich versucht Breakpoints zu setzen...egal was ich gemacht habe...immer X as wäre die procedure nie in Verwendung. Auch ins Projekt aufgenommen. :?

:gruebel:

Warten wir mal, was der Verursacher dazu meint...:zwinker:

[haentschman]

Hallöle...:wink:

@himitsu: Ist dein Postfach voll? :wink: Keine Antwort auf meine PN? :wink:

[himitsu]

joar :vernupft:

muß mir später mal in Ruhe ansehn.

[haentschman]

Danke...8-)

[haentschman]

Hallöle...8-)

Änderungen:
* BOM ist nun auch bei UTF8 Standard.
* wenn BOM nicht benötigt:

Delphi-Quellcode:

XML.Options := XML.Options + [xoDontWriteBOM];
...

Änderungen in himXML.pas ab Zeile 11817:

Delphi-Quellcode:

Procedure TXWriter.WriteBOM;
  Begin
    If (XMLEncodingData[_Encoding].BOM > '') and (not(xoDontWriteBOM in _Options)) Then Begin
      Flush;
      _Stream.WriteBuffer(XMLEncodingData[_Encoding].BOM[1],
        Length(XMLEncodingData[_Encoding].BOM));
      End;
    End;

PS: (AllowUTF8BOM: Boolean = False); wurde nie gesetzt...immer False. :zwinker:

...bitteschön. :wink: