[Sir Rufo]

Für das Lesen, Bearbeiten und Speichern von .plist Dateien gibt es jetzt auch etwas für Delphi.

github - PropertyList

Das hier

zusammenfalten · markieren

Delphi-Quellcode:

var
  LPList: IPList;
  LDict : IPListDict;
  LData : TArray<Byte>;
  LIdx : Integer;
begin
  LDict := TPList.CreateDict;
  LDict.AddOrSet( 'Array', TArray<TPlistValue>.Create( True, False, CFDate( Now( ) ), Random( 42 ), Random * 42 ) );
  LDict.AddOrSet( 'Bool_True', True );
  LDict.AddOrSet( 'Bool_False', False );
  LDict.AddOrSet( 'Date', CFDate( Now( ) ) );

  SetLength( LData, Random( 5 ) + 5 );
  for LIdx := low( LData ) to high( LData ) do
    begin
      LData[ LIdx ] := Random( 256 );
    end;

  LDict.AddOrSet( 'Data', LData );
  LDict.AddOrSet( 'Integer', Random( 42 ) );
  LDict.AddOrSet( 'Real', Random * 42 );
  LDict.AddOrSet( 'String', 'foo' );

  LPList := TPList.CreatePList;
  LPList.Root := LDict;
  LPList.SaveToFile( '.\foo.plist' );
end;

erzeugt dann so etwas

zusammenfalten · markieren

XML-Code:

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd" >
<plist version="1.0">
  <dict>
    <key>Integer</key>
    <integer>8</integer>
    <key>Data</key>
    <data>y2JTU/3t</data>
    <key>Array</key>
    <array>
      <true/>
      <false/>
      <date>2015-09-24T17:12:06.671+02:00</date>
      <integer>7</integer>
      <real>12.8174069174565</real>
    </array>
    <key>Bool_False</key>
    <false/>
    <key>String</key>
    <string>foo</string>
    <key>Bool_True</key>
    <true/>
    <key>Date</key>
    <date>2015-09-24T17:12:06.671+02:00</date>
    <key>Real</key>
    <real>1.60754230152816</real>
  </dict>
</plist>

Getestet mit Delphi 10 Seattle unter

• Win32
• Win64
• OSX32
• iOSDevice32
• iOSSimulator

Bis dato wird nur die XML-Variante unterstützt.

Ob die Binary-Variante noch kommt entscheide ich wenn ich die Unit-Tests fertig habe und es noch ein wenig aufpoliert habe.

Das Beispiel ModPList erstellt ein Kommandozeilen-Programm, womit man die von Delphi erzeugten .plist Dateien etwas homogener gestalten kann.

Aus <string>YES</string> wird dann ein <true/> und aus <string>NO</string> analog ein <false/> .

Folgende Bugs flogen mir bei der Entwicklung um die Ohren:

• Duplicate key CFBundleResourceSpecification in *.info.plist
• Access Violation with TypeInfo and iOSDeviceXX/Release

Wem diese beiden Lösungen nicht zusagen

• How to use custom Info.plist XML to support iOS 9's new App Transport Security feature
• Fixing the FMX TWebBrowser issue on iOS 9

der darf sich gerne einmal ModPList anschauen

Schönes Projekt, wieder einmal super gemacht. Meine einzige Frage wäre, warum Du auch XML.Win.msxmldom unter Windows aufnimmst, wenn doch eh alles konstant über ADOM4 läuft GetDOM( sAdom4XmlVendor ) . Falls Du wirklich verschiedene Vendors unterstützen willst z.b. den über die schöne globale DefaultDOMVendor eingestellte, müsstest Du auch deren "Besonderheiten" berücksichtigen.

Weil ich es ohne dieses Gefrickel - ja so ist das - bis jetzt nicht sauber hinbekommen habe eine XML-Datei mit DOCTYPE zu schreiben und wieder zu lesen.

Irgendetwas fliegt einem da immer wieder um die Ohren (unter Windows).

Aber für Vorschläge wäre ich dankbar

Hast Du mal ein Beispiel für den DOCTYPE-Versuch?

Zitat von Union:

Hast Du mal ein Beispiel für den DOCTYPE-Versuch?

Ei jo, da bastele ich gerade mal so einen Unit-Test zusammen und jetzt funktioniert das ganz hervorragend mit dem ADOM4 Vendor

Ich werde wohl alt

Ich schaue mal, ob da in dem Projekt selber etwas klemmt ... danke aber für den Anstoss

Der ADOMV4 verhält sich anders als die anderen.

Zitat von Union:

Der ADOMV4 verhält sich anders als die anderen.

Mir egal ... MSXML ist jetzt raus und es funktioniert so wie erwartet
(Mal sehen wie das nach dem Fix von Emba ist)