Проверка XML по XSD

[tarakan1983]

Здравствуйте.
Только начал разбираться с проверкой XML по XSD.
Наше много примеров в сети. Вроде все понятно, но только один момент. Вот код

procedure TfrmMain.btnValidateClick(Sender: TObject);
var
  vXMLParserError: IXMLDOMParseError;
  vXMLSchema: IXMLDOMSchemaCollection2;
  vXMLDoc: IXMLDOMDocument3;
  vXMLSchemaDoc: IXMLDOMDocument3;
  vStrs: TStringList;
begin
  vStrs := TStringList.Create();
  try
    //Загрузка схемы
    vXMLSchema := CoXMLSchemaCache60.Create();
    vXMLSchemaDoc := CoDOMDocument60.Create();
    vStrs.LoadFromFile( 'c:\temp\Declarant_Alko.xsd4302.11-o430.xsd' );
    vXMLSchemaDoc.loadXML( vStrs.Text );
    if vXMLSchemaDoc.parseError.errorCode <> 0 then
      begin
        ShowMessage(Format('Ошибка при загрузке схемы <%s: %s>', [vXMLSchemaDoc.parseError.reason, vXMLSchemaDoc.parseError.srcText]));
        Exit;
      end;
    vXMLSchema.add('', vXMLSchemaDoc);
    //Загрузка документа
    vXMLDoc := CoDOMDocument60.Create();
    vXMLDoc.async := False;
    vXMLDoc.resolveExternals := false;
    vXMLDoc.validateOnParse := false;
    vStrs.Clear();
    vStrs.LoadFromFile( 'c:\temp\R1_6109001892_095_09102015_DA268A53-98DD-4486-A820-3BC42F109D38.XML' );
    vXMLDoc.loadXML( vStrs.Text );
    vXMLDoc.schemas := vXMLSchema;
    vXMLParserError := vXMLDoc.validate;
    Memo1.Clear;
    if vXMLParserError.errorCode <> 0 then
      Memo1.Lines.Add(Format('Ошибка при валидации <Причина: %s; Текст: %s; Код: %d>', [Trim(vXMLParserError.reason), 
vXMLParserError.srcText, vXMLParserError.errorCode]))
    else
      ShowMessage( 'Валидация документа проша успешно' );
  finally
    FreeAndNil( vStrs );
  end;
end;

Этот код показывает, только одну ошибку, на которую первую попадает, а как сделать так, чтобы он проверил весь файл и выдал все ошибки будь их хоть 100

[Stilet]

Судя по MSDN у IXMLDOMParseError нет коллекции, а стало быть он вернет только первую ошибку.

[tarakan1983]

Сообщение от Stilet

Судя по MSDN у IXMLDOMParseError нет коллекции, а стало быть он вернет только первую ошибку.

А какой тогда выход?

[Stilet]

Не знаю. Я не использовал проверку по схемам. Тут у мну познания скудные.

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

Судя по MSDN у IXMLDOMParseError нет коллекции, а стало быть он вернет только первую ошибку.

Есть у второй версии этого интерфейса, я уже не помню, как его правильно использовать. Вроде бы приведением типа, ли же запросом IID другой версии у предка или ноды.
Ну и у XML/схемы вроде бы есть свойство остановки парсера на первой же ошибке.

[tarakan1983]

Спасибо за наводку со второй версией.
Кому интересно вот сырой рабочий код, взятый с королевства Delphi.
Красоту, кому надо наводите сами.

procedure TfrmMain.btnValidateClick(Sender: TObject);
var
  vXMLParserError: IXMLDOMParseError2;
  vXMLSchema: IXMLDOMSchemaCollection2;
  vXMLDoc: IXMLDOMDocument2;
  vXMLSchemaDoc: IXMLDOMDocument2;
  vStrs: TStringList;
  CodError:IXMLDOMParseErrorCollection;
   i : Integer;
begin
  vStrs := TStringList.Create();
  try
    //Загрузка схемы
    vXMLSchema := CoXMLSchemaCache60.Create();
    vXMLSchemaDoc := CoDOMDocument60.Create();
    vStrs.LoadFromFile( 'c:\temp\Declarant_Alko.xsd4302.11-o430.xsd' );
    vXMLSchemaDoc.loadXML( vStrs.Text );
    if vXMLSchemaDoc.parseError.errorCode <> 0 then
      begin
        ShowMessage(Format('Ошибка при загрузке схемы <%s: %s>', [vXMLSchemaDoc.parseError.reason, vXMLSchemaDoc.parseError.srcText]));
        Exit;
      end;
    vXMLSchema.add('', vXMLSchemaDoc);
//Загрузка документа
    vXMLDoc := CoDOMDocument60.Create();
    vXMLDoc.async := False;
    vXMLDoc.resolveExternals := false;
    vXMLDoc.validateOnParse := false;
    vXMLDoc.setProperty('MultipleErrorMessages',true);
    vStrs.Clear();
    vStrs.LoadFromFile( 'c:\temp\R1_6109001892_095_09102015_DA268A53-98DD-4486-A820-3BC42F109D38.XML' );
    vXMLDoc.loadXML( vStrs.Text );
    vXMLDoc.schemas := vXMLSchema;
    vXMLParserError := vXMLDoc.validate as IXMLDOMParseError2;
    Memo1.Clear;
    if vXMLParserError.errorCode <> 0 then
      begin
         CodError := vXMLParserError.allErrors;
         for I := 0 to CodError.length-1 do
        begin
        Memo1.Lines.Add(CodError.item[i].reason);
        Memo1.Lines.Add('*****');
        end;
      end
    else
      ShowMessage( 'Валидация документа проша успешно' );
  finally
    FreeAndNil( vStrs );
  end;
end;

[Stilet]

Мне всегда было интересно,зачем микрософт разбивал функционал на кучу интерфейсов? Даже исходя из соображений совместимости не обязательно было это делать.