Hallo himitsu,
das Problem aus dem letzten Beitrag habe ich mit einem Workaround über eine TStringlist lösen können. Ich versuche gerade die interne Verschlüsselung zu nutzen. Ich habe Deine Beschreibung gelesen, kann diese aber nicht umsetzen. Hier mal ein Beispiel :
Delphi-Quellcode:
procedure TForm1.Btn_1Click(Sender: TObject);
var
XML: TXMLFile;
i: Integer;
xmlnode: TXMLNode;
begin
XML := TXMLFile.Create(
nil);
XML.CryptData['
RC4'] := '
testen';
For i := 0
to 10
do
begin
xmlnode :=
XML.RootNode.Nodes.Add('
Node' + IntToStr(i));
xmlnode.Text_S := '
Testnode_' + IntToStr(i);
end;
XML.SaveToFile('
test.xml');
XML.Free;
M_1.Lines.LoadFromFile('
test.xml');
end;
Habe ich da noch etwas vergessen oder was habe ich falsch gemacht ?