Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Existiert Knoten in XML Dokument

  Alt 19. Apr 2007, 12:29
Also es wird einfach nil zurückgegeben. Aber, ob ich den abschliessenden Schrägstrich schreibe oder nicht, macht keinen Unterschied:
Delphi-Quellcode:
class function TTemplateIO.IsFBITemplate(const Filename: WideString): Boolean;
var
  XMLDoc : DomDocument;
  Node : IXMLDOMNode;
begin
  Result := False;
  CoInitialize(nil);
  XMLDoc := CoFreeThreadedDOMDocument.Create;
  if Assigned(XMLDoc) then
  begin
    XMLDoc.load(Filename);
    Node := XMLDoc.selectSingleNode('/dwfbtemplate');
    Result := Assigned(Node);
  end;
  CoUninitialize;
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat