Fórum Validar XML schema XSD #486786

uses ComObj;

function ValidarXmlComXsd(FileXml, FileXsd: string): String;
var
    XML, XSDL: Variant;
begin
try
  XSDL := CreateOLEObject('MSXML2.XMLSchemaCache.4.0');
  XSDL.validateOnLoad := True;
  XSDL.add('',FileXsd);
  XML := CreateOLEObject('MSXML2.DOMDocument.4.0');
  XML.validateOnParse := True;
  XML.resolveExternals := True;
  XML.schemas := XSDL;
  XML.load(FileXml);
  Result := XML.parseError.reason;
finally
  XSDL := varNull;
  XML := varNull;
end;
end;

function ValidarXmlComXsd(FileXml, FileXsd: string): TStringList;
var
    XML, XSDL: Variant;
procedure LerXml(XmlNode: Variant; var Xml: Variant; var Result: TStringList);
var
  i: integer;
  AttrNode: Variant;
  Erro: String;
begin
  for i := 0 to XmlNode.childNodes.length -1 do begin
    AttrNode := XmlNode.childNodes.item[i];
    if Trim(AnsiLowerCase(AttrNode.nodeTypeString)) = 'element' then begin
      Erro := Trim(Xml.validateNode(AttrNode).reason);
      If (Erro <> '') then begin
        if Result.Count = 0 then
          Result.Add(Erro)
        else if Result[Result.Count-1] <> Erro then
          Result.Add(Erro);
      end;
      LerXml(AttrNode, Xml, Result);
    end;
  end;
end;
begin
try
  Result := TStringList.Create;
  Result.Clear;
  XSDL := CreateOLEObject('MSXML2.XMLSchemaCache.6.0');
  XSDL.validateOnLoad := True;
  XSDL.add('',FileXsd);
  XML := CreateOLEObject('MSXML2.DOMDocument.6.0');
  XML.validateOnParse := False;
  XML.resolveExternals := True;
  XML.schemas := XSDL;
  XML.load(FileXml);
  LerXml(xml, xml, Result);
finally
  XSDL := varNull;
  XML := varNull;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines := ValidarXmlComXsd('c:\teste.xml', 'c:\teste.xsd');
end;

'86010480' viola a restrição pattern de '^[0-9]$'.
Falha da análise do elemento '{http://XXXXXXXXXX.com.br/V1_00_00/schemas}cep' com valor '86010480'.
'87470000' viola a restrição pattern de '^[0-9]$'.
Falha da análise do elemento '{http://XXXXXXXXXX.com.br/V1_00_00/schemas}cep' com valor '87470000'.
'04/10/1971' viola a restrição pattern de '^(?:(?:31(\\/|-|\\.)(?:0?[13578]|1[02]))\\1|(?:(?:29|30)(\\/|-|\\.)(?:0?[1,3-9]|1[0-2])\\2))(?:(?:1[6-9]|[2-9]\\d)?\\d)$|^(?:29(\\/|-|\\.)0?2\\3(?:(?:(?:1[6-9]|[2-9]\\d)?(?:0[48]|[2468][048]|[13579][26])|(?:(?:16|[2468][048]|[3579][26])00))))$|^(?:0?[1-9]|1\\d|2[0-8])(\\/|-|\\.)(?:(?:0?[1-9])|(?:1[0-2]))\\4(?:(?:1[6-9]|[2-9]\\d)?\\d)$'.
Falha da análise do elemento '{http://XXXXXXXXXX.com.br/V1_00_00/schemas}dataNascimento' com valor '04/10/1971'.
'99990000' viola a restrição pattern de '^[0-9]{6,18}$'.
Falha da análise do elemento '{http://drswbj01.allianz.com.br/V1_00_00/schemas}telefone' com valor '99990000'.
'lalalala@emailvalido.com.br' viola a restrição pattern de '^([a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\\.[a-zA-Z]{2,4})$'.
Falha da análise do elemento '{http://XXXXXXXXXX.com.br/V1_00_00/schemas}email' com valor 'sinistro@agriseguro.com.br'.