In ShellListview nur bestimmte XML Dateien anzeigen

[Luckie]

Ich versuche gerade nur bestimmte XML-Dateien in einem ShellListview anzuzeigen:

Delphi-Quellcode:

procedure TfrmTemplate.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
begin
  CanAdd := (AFolder.IsFolder or MatchesMask(AFolder.DisplayName, '*.xml')) or TTemplateIO.IsFBITemplate(AFolder.DisplayName);
end;

Und

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;

Es sollen also nur Ordner und XML-Dateien angezeigt werden deren Rootnode "dwfbtemplate" ist. Aber leider zeigt er mir alle XML-Dateien in dem Verzeichnis an. Wo ist da mein Denkfehler?

[bttb930]

beim or.

[Luckie]

Nicht wirklich. Wenn ich aus dem letzte or ein and mache, zeigt er mir gar nichts an.

Gucken wir uns mal die Funktion an:

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;

Lasse ich den abschliessenden Schrägstrich weg, bekomme ich die Fehlermeldung:

Zitat:

Exception EOleException in module FBIcustomer_Demo.exe at 001C7470.

Der Ausdruck gibt keinen DOM-Knoten zurück.

/dwfbtemplate/<--.

Was ja durchaus richtig sein kann. Aber wie kann man ohne Exception ermitteln, ob ein Knoten existiert?

[bttb930]

Zitat von Luckie:

Nicht wirklich. Wenn ich aus dem letzte or ein and mache, zeigt er mir gar nichts an.

Das ist keine Begründung um aus einem and ein or zu machen!! Dann ist was an der Funktion falsch - das zu überprüfen habe ich jetzt keine Zeit. Jedenfalls ist das or definitiv falsch - unabhängig von der Funktion. Vielleicht sind TShellFolder einfach immer Folder, so dass ShellListView1AddFolder gar nicht erst für xml-Dateien aufgerufen wird? Debug doch mal.

[cruiser]

Hm... meines erachtens nach ist die Abfrage ein wenig falsch, ich würds so machen:

Delphi-Quellcode:

//Pseudo:
Result := IstVerzeichnis or (IstXmlEndung and HatKorrektenRoot);

zur Prüfung evtl:

Result := XMLDoc.root.tagName = 'dwfbtemplate'; ist nur schnell geschustert, aber vielleicht hilft es ja

[Luckie]

Oh, das mit dem Tagnamen kannte ich noch nicht. Werde ich morgen gleich mal ausprobieren an der Arbeit. Danke für die Hilfe.

[Luckie]

Mein XMLDoc kennt root.tagName nicht.

Ich habe hier mal ein neues Thema eröffnet, weil der Thread doch nicht so ganz passend ist.