himXML (gesprochen himix ML)

[RWarnecke]

Hallo himitsu,

ich folgende Zeile Quelltext, die nicht sauber funktionieren :

Delphi-Quellcode:

  XMLConfig := TXMLFile.Create(nil, False);
  stream := TRCxStreamDecorator.Create(
    TFileStream.Create(GetSpecialFolder(CSIDL_APPDATA) + '\VPN-Konfiguration\vpnconfig.xml', fmOpenRead), // der konkrete stream
    True,                // ownsStream (auto-free)
    'password',          // Passwort fur die SandBox
    emEncodeWriting   ); // schreibend kodieren
  try
    (Stream as TRCxStreamDecorator).ReadSalt;
    XMLConfig.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;

Ich verschlüssel eine XML-Datei mit RCx. Wenn ich die verschlüsselte Datei in ein Memo lade oder in eine StringList, dann funktioniert alles ganz wunderbar. Wenn ich es jetzt so mache, wie im obigen Quelltext, dann lande ich immer in der Funktion TRCStreamDecorator.Seek der Datei rcstreamdeco.pas. Die Dateien zum verschlüsseln habe ich aus diesem Beispiel. Ich habe dort alle Strings durch AnsiString ersetzt.