使用XSD进行Delphi XML验证

Question

我正在使用Delphi10.2更新3。我按照这些说明验证生成的xml文档。

属性noNamespaceSchema位置对XML解析有什么影响？

使用Windows DOM和TXMLDocument验证XML：在某些计算机上不起作用

delphi中msxml的模式验证

但我有一个错误。“DTD/架构中未定义元素‘jegyzek\u adatok’上的属性‘noNamespaceSchemaLocation’。”

准备xml文档：

const
  cSchemaLocation = 'noNamespaceSchemaLocation';

procedure PreparePostBookXMLDocument(ARootNode: IXMLNode);
var
  xDoc: IXMLDocument;
begin
  if ARootNode.OwnerDocument = nil then Exit;

  xDoc := ARootNode.OwnerDocument;
  xDoc.Version := '1.0';
  xDoc.Encoding := 'windows-1250';
  xDoc.Options := xDoc.Options + [doNodeAutoIndent];
  ARootNode.Attributes['xmlns:xsi'] := 'http://www.w3.org/2001/XMLSchema-instance';
  ARootNode.Attributes['xsi:' + cSchemaLocation] := 'https://www.posta.hu/static/internet/download/level_ver8_ugyfeleknek_8p4.xsd';
end;

验证：

function ValidatePostBookXMLDocument(ARootNode: IXMLNode): IResult;
var
  xDocument: IXMLDocument;
  xMsxmlDoc: IXMLDOMDocument3;
  xXSDDocument: IXMLDOMDocument3;
  xSchemaCache: IXMLDOMSchemaCollection;
  xSchemaLocation: string;
  xError: IXMLDOMParseError;
begin
  Result := ERRUnknown;
  try
    if ARootNode = nil then Exit;

    xDocument := ARootNode.OwnerDocument;
    if xDocument = nil then Exit;

    xMsxmlDoc := ((xDocument.DOMDocument as IXMLDOMNodeRef).GetXMLDOMNode as IXMLDOMDocument3);

    xSchemaLocation := ARootNode.AttributeNodes.FindNode(cSchemaLocation).Text;
    xXSDDocument := CoDOMDocument60.Create;
    xXSDDocument.async := False;
    xXSDDocument.validateOnParse := True;
    if not xXSDDocument.load(xSchemaLocation) then Exit(MakeErrorResult(ohFileError, 'A validációhoz szükséges séma fájlt nem sikerült betölteni!'));

    xSchemaCache := CoXMLSchemaCache60.Create;
    xSchemaCache.add('', xXSDDocument);
    xMsxmlDoc.schemas := xSchemaCache;
    xError := xMsxmlDoc.validate;
    case xError.errorCode of
      S_OK: Result := Success;
      else Exit(MakeErrorResult(ohError, xError.reason));
    end;
  except
    on E:Exception do Result := HandleException;
  end;
end;

生成的xml文件通过以下方式有效：https://www.freeformatter.com/xml-validator-xsd.html#.

XSD(https://www.posta.hu/static/internet/download/level_ver8_ugyfeleknek_8p4.xsd):

我生成的xml（在我的google驱动器上）：

有人能帮我吗？

Answer 1

我不知道您在Delphi中使用的具体XML解析器。然而，要回答一般性问题：

>

属性xsi： noNamespaceSchema位置声明在哪里可以找到文档的XSD模式（特别是没有命名空间的元素的模式）

除非调用XSD模式验证，否则它没有任何效果。一些解析器可能会将此属性的存在解释为调用模式验证的信号，但这是相当不寻常的。

在根据XSD模式进行验证时，如果该属性的值是有效的URI，则该属性始终有效。架构不需要显式允许此属性。

针对DTD进行验证时，此属性为INVALID，除非写入DTD以显式允许它。

我怀疑您运行的解析器启用了DTD验证，并且DTD不允许存在此属性。但这有点像猜测。