Ich habe es jetzt so:
Delphi-Quellcode:
class function TTemplateIO.IsFBITemplate(const Filename: WideString): Boolean;
var
XMLDoc : IXMLDocument; //DomDocument;
Node : IXMLDOMNode;
begin
Result := False;
XMLDoc := NewXMLDocument;
if Assigned(XMLDoc) then
begin
try
XMLDoc.LoadFromFile(Filename);
Result := XMLDoc.Node.ChildNodes.FindNode('dwfbtemplate') <> nil;
except
// empty
end;
end;
end;
Aber ich könnte irre werden,
Result ist immer
false, auch wenn ich die richtige Datei übergebe. Den try-except Block brauche ich, damit mir das nicht um die Ohren fliegt, wenn keine
XML-Datei übergeben wird.