Na, die habe ich doch noch vom letzten Problem rumliegen. Du weisst schon, dass der Author diese nicht mehr weiter pflegt?
Delphi-Quellcode:
function CreateXML(
const AFilename:
string): boolean;
var
lLib: TXMLLib;
lNode: TXMLNode;
begin
lLib := TXMLLib.Create;
try
if lLib.CreatePathAndNode('
filter/rule', lNode)
then
begin
lNode.Attributes.SimpleAdd('
id', '
1');
lNode.Attributes.SimpleAdd('
points', '
1,0');
lNode.Attributes.SimpleAdd('
command', '
+Message-ID');
lNode.Attributes.SimpleAdd('
regex', '
\.\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\@');
lNode.Attributes.SimpleAdd('
info', '
Dotted IP in Message-ID');
lNode.Attributes.SimpleAdd('
result', '
');
end;
result := lLib.SaveToFile(AFilename);
finally
lLib.Free;
end;
end;