1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
var
FileName: string;
SecurityDoc: IXMLCursor;
Users, User: IXMLCursor;
begin
FileName := 'D:\MonAppli\MonAppli.Security.xml';
SecurityDoc := TXMLCursor.Create;
SecurityDoc.Load(FileName);
Users := SecurityDoc.Select('/Security/Users');
if Users.EOF then
Users := SecurityDoc.AppendChild('Users', '');
User := Users.AppendChild('User', '');
User.SetValue('ID', Context.GetValue('ID'));
User.SetValue('Name', Context.GetValue('Name'));
..
SecurityDoc.Save(FileName);
end; |
Partager