Hallo,
ich wollte QuickDownload etwas umschreiben und deine Lib benutzen.
Nun habe ich folgendes:
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
var
XML : TXMLFile;
begin
if SDSave.Execute
then
begin
XML := TXMLFile.Create;
try
XML.Encoding := '
UTF-8';
XML.RootNode.
Name := '
qd2';
XML.RootNode.AddNode('
file');
XML.RootNode.AddNode('
file\filename').Text := EFilename.Text;
XML.RootNode.AddNode('
file\source').Text := ESource.Text;
XML.RootNode.AddNode('
file\description', xtCData).Text := MDescription.Text;
XML.RootNode.AddNode('
file\size').Text := SESize.Value;
// FLAGS XML.RootNode.AddNode('file\').Text := SESize.Value;
XML.RootNode.AddNode('
file\destination').Text := SESize.Value;
XML.SaveToFile(SDSave.FileName);
finally
XML.Free;
end;
end;
end;
Aber er meckert rum, wenn er versucht die Beschreibung zu speichern
Und könntest du nicht ein kleines Tutorial schreiben
MfG
xZise