Delphi: неверный XML проходит проверку MSXML - PullRequest
Новая
       8

Delphi: неверный XML проходит проверку MSXML

5 голосов
/ 30 сентября 2009

Я попытался пересмотреть пример JScript на MSDN, чтобы проверить XML по определенным схемам.

В качестве первой попытки я использовал файлы sl-valid.xml, sl-notValid.xml и sl.xsd, как в примере.

Мой код выглядит следующим образом: 

procedure BasicValidation(FileName: string);
var
  XML: IXMLDOMDocument2;
begin
  // Load XML and resolve externals
  XML := ComsDOMDocument.Create;
  XML.async := False;
  XML.validateOnParse := True;
  XML.resolveExternals := True;
  XML.setProperty('SelectionLanguage', 'XPath');
  XML.setProperty('SelectionNamespaces', 'xmlns:x=''urn:book''');
  XML.load(FileName);
  if XML.parseError.errorCode <> 0 then
    ShowMessage('Error parsing. Reason: ' + XML.parseError.reason)
  else
    ShowMessage('XML validation OK.');
end;

Когда я пробую файл sl-notValid.xml, я все еще получаю «Проверка XML в порядке». Кто-нибудь видел это раньше? В чем принципиальная разница между приведенным выше кодом и кодом JScript http://msdn.microsoft.com/en-us/library/ms764717%28VS.85%29.aspx?

1 Ответ

8 голосов
/ 01 октября 2009

попробуйте 

procedure BasicValidation(FileName: string);
var
  XML: IXMLDOMDocument2;
begin
  XML := CoDOMDocument40.Create;
  XML.async := False;
  XML.validateOnParse := True;
  XML.resolveExternals := True;
  XML.setProperty('SelectionLanguage', 'XPath');
  XML.setProperty('SelectionNamespaces', 'xmlns:x=''urn:book''');
  XML.load(FileName);
  if XML.parseError.errorCode <> 0 then
    ShowMessage('Error parsing. Reason: ' + XML.parseError.reason)
  else
    ShowMessage('XML validation OK.');
end;

Пояснение, вы должны явно вызвать конструктор версии, которая поддерживает проверку схемы XSD (MSXML> = 4).

Bye.

...