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.