Mehrere EDomParseError einfangen

[creehawk]

Moin.

Das hat mir jetzt keine Ruhe gelassen. Jede Datenbanksoftware kann Fehler in Struktur und Daten(format) liefern, MSXML aber nicht? Doch, geht.

Basisinfolink:https://docs.microsoft.com/en-us/pre...487(v%3dvs.85)

Im meiner ersten Post hatte ich ja diese 'MultipleParseErrors' erwähnt. Die heißen aber eigentlich 'MultipleErrorMessages' und stammen aus MSXML und Zubehör. Nach langem Gefummel ist uns jetzt folgender Code gelungen, der sowohl Strukturfehler als auch Daten(format) Fehler findet.
Den Codeblock für die Strukturfehler haben wir so - ähnlich - im Netz gefunden. Und finden ihn prompt nicht wieder zur Angabe von Namen und Website des Künstlers. Ich bitte um Nachsicht. Den zweiten Block mit den besagten 'MultipleErrorMessages' haben wir selbst erfunden.

Delphi-Quellcode:

uses
winapi.msxml,Xml.XMLIntf, XML.XMLDoc, XML.XMLDOM;


function Validate_XML(xmlFile:String):boolean;
var
  I                   : Integer;
  ValidateDoc         : IXMLDomDocument2;
  ValidateDocRoot     : IXMLDomNode;
  ValidationError1    : IXMLDOMParseError2;
  ValidationError2    : IXMLDOMParseError2;
  ValidationErrors    : IXMLDOMParseErrorCollection;
  Errorlist           : TSTringlist;
begin
  // Erster Parse Durchlauf ob die XML Datei STRUKTURFEHLER aufweist
  Validatedoc := CoDOMDocument60.Create;
  Validatedoc.load(xmlfile);
  Validatedoc.validateOnParse := true;
    try
      ValidateDoc.Async := False;
      ValidateDoc.validateOnParse := True;
      Result := (ValidateDoc.Load(xmlFile)) and (ValidateDoc.parseError.errorCode = 0);
      if not Result then
      begin

      {... Fehlermeldung mit parseerror.properties zur Beschreibung...}

      ValidateDoc := nil;
      exit;
      end;
    finally
      ValidateDoc := nil;
    end;

  // Zweiter Parse Durchlauf ob die XML/XSD Fehler aufweist
  Validatedoc      := CoDOMDocument60.Create;
  Validatedoc.load(xmlfile);
  Validatedoc.validateOnParse := true;
  Validatedoc.resolveExternals:=true;
  Validatedoc.setProperty('MultipleErrorMessages','true');
  ValidationError1 := Validatedoc.validate as IXMLDOMParseError2;
  ValidationErrors := ValidationError1.allErrors;
  if ValidationErrors.length > 0 then
  begin
   Errorlist:= TStringlist.Create;
   For I:= 0 to ValidationErrors.length -1 do
   begin
     ValidationError2:= ValidationErrors.item[I] as IXMLDOMParseError2;
      ErrorList.Add(#9 + ValidationError2.errorXPath);
   end;

      {... Fehlermeldung mit Angaben zur Fehlerlistenausgabe...}   
      
   Errorlist.SaveToFile(XMLPath + ExtractFilename(xmlFile) + '.err');
   Result := false;
    exit;
  end;
  Result := true;
end;

Wir haben einige verschiedene XML/XSD Dateien damit konfrontiert, gezielt Fehler eingebaut - wurde alles gefunden.

creehawk

[freimatz]

Super. Danke