Einzelnen Beitrag anzeigen

Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#267

AW: himXML (gesprochen himix ML)

  Alt 29. Sep 2011, 11:59
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 ?
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat