разделенная XSD

[BARNEY]

Добрый день подскажите как проверить XML если XSD разделена на несколько частей.
xsd21a.7z

Проверяю так

function ValidateXMLByXSD(sXMLFile:string; sXSDFile:string; Errors:TStrings):Boolean;
var
 oXML,oXSD,oXMLCheck:IXMLDOMDocument3; //IXMLDOMDocument3 for XML 6.0
 oCache:IXMLDOMSchemaCollection2;  // IXMLDOMSchemaCollection2 for XML 6.0
 errcol:IXMLDOMParseErrorCollection;
 err:IXMLDOMParseError2;
 i:Integer;
begin
  Result := False;
  oXML := CoDOMDocument60.Create;
  oXSD := CoDOMDocument60.Create;
  oXMLCheck := CoDOMDocument60.Create;
  oXML.setProperty('MultipleErrorMessages', true);
  oXSD.setProperty('MultipleErrorMessages', true);
  oXMLCheck.setProperty('MultipleErrorMessages', true);
  oCache := CoXMLSchemaCache60.Create;
  if oXML.load(sXMLFile) then
  begin
     oXSD.async := false;
     oXSD.validateOnParse := true;
     if oXSD.load(sXSDFile) then
     begin
       try
        oCache.add(oXML.documentElement.namespaceURI,oXSD);
       except
         on E:Exception do
         begin
          Errors.Add(E.Message);
          Result := False;
          exit;
          end;
       end;
       oXMLCheck.schemas:=oCache;
       Result := oXMLCheck.loadXML(oXML.xml);
       if not Result then
       begin
    err := (oXMLCheck.parseError as IXMLDOMParseError2);
    errcol := err.allErrors;
    for i:=0 to errcol.length -1 do
    begin
     Errors.Add(Format('Ошибка при валидации <Позиция в файле: %s; Причина: %s; Код: %d>',
          [errcol.item[i].errorXPath, Trim(errcol.item[i].reason), errcol.item[i].errorCode]));
    end;
       end;
     end

Ошибку выдаёт

oplist.xsd#/schema/complexType[1][@name = 'OPLIST']/attributeGroup[1]
attributeGroup "FILEHEAP" - не определено

Подскажите куда копать. Или пошлите туда где пример есть.

Ошибка на этой строчке

oCache.add(oXML.documentElement.namespaceURI,oXSD);

[BARNEY]

Переформулирую вопрос,
как сделать проверку по XSD схеме в которой есть

<xsd:include schemaLocation="prz_types.xsd"/>

[Человек_Борща]

При include надо обязательно указывать пространство имен к которому принадлежит импортируемый файл. В ЛС ответил доплнительно.

[V_Paniker]

Столкнулся недавно с такой же проблемой. Решения не нашел, придумал такое. Может кому поможет.

Смысл в том, чтобы добавить в переменную IXMLDOMSchemaCollection2 все схемы которые инклудятся в текущей схеме. Для этого написал процедуру в нее передаем переменную и путь к файлу xsd.

procedure addSchemas(var xmlSchemas:IXMLDOMSchemaCollection2;xsdFilePath: string);
var
 strList: TStringList;
 root,node:IXMLNode;
 xsdDoc:IXMLDOMDocument3;
 xmlDoc:IXMLDocument;
begin
  strList:= TStringList.Create();
  xmlDoc:=TXMLDocument.Create(nil);
  xsdDoc := CoDOMDocument60.Create();
  if not FileExists(xsdFilePath) then
  begin
    ShowMessage(Format('Не найдена XSD схема (%s)! ',[xsdFilePath]));
    exit;
  end;

  strList.LoadFromFile(xsdFilePath);
  xsdDoc.loadXML(strList.Text );

  //проверяем корректность схемы
  if xsdDoc.parseError.errorCode <> 0 then
  begin
      ShowMessage(Format('Некорректная схема <%s.  %s: %s>', [xsdFilePath,xsdDoc.parseError.reason, xsdDoc.parseError.srcText]));
      Exit;
  end;
  //Добавляем схему в коллекцию
  xmlSchemas.add('', xsdDoc);

  //Дальше ищем в схеме инклуды
  //и по ним запускаем эту же процедуру
  xmlDoc.FileName:=xsdFilePath;
  xmlDoc.Active:=true;
  root:=xmlDoc.ChildNodes.FindNode('xs:schema');
  node:=root.ChildNodes.First;

  while node<>nil do
  begin
    if node.NodeName='xs:include' then
    begin
      addSchemas(xmlSchemas,ExtractFilePath(xsdFilePath)+node.Attributes['schemaLocation']);
    end;
    node:=node.NextSibling;
  end;
  xmlDoc.Active:=false;
end;

Перед запуском отключаем валидацию при загрузке, чтобы не ругался на еще незагруженные xsd

vXMLSchema.validateOnLoad := false;
    addSchemas(vXMLSchema,xsdpath);
    vXMLSchema.validate;