Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Validar XML contra un XML Schema (https://www.clubdelphi.com/foros/showthread.php?t=35609)

Sagara 15-09-2006 12:27:14

Validar XML contra un XML Schema
 
Hola,

Mi problema es el siguiente:

Tengo una aplicación cuyos datos los guardo en archivos xml, y he desarrollado un XML Schema que define los xml de la aplicación. Lo que necesito ahora es que cada vez que mi aplicación intente abrir un xml, este sea validado con el xml schema para saber si el xml es en verdad un xml de mi aplicación. He buscado por internet componentes o librerias que me permitan realizar dicha validación (incluso en Torry's Delphi), pero no he tenido mucho éxito.

Por si no ha quedado claro lo que quiero es validar xml's contra xml schema's, si alguien conoce alguna librería o componente que me lo diga.

Gracias de antemano.

Un saludo.

roman 09-03-2010 07:23:31

Supongo que ya has resuelto esto, pero es que yo me acabo de topar con el problema de la validación. Intenté usar un XmlDocument y funciona bien para validar un Xml contra un DTD, pero, al parecer, al menos con Delphi 7, no funciona para un esquema XSD.

Buscando en varios lados he logrado hacer esta pequeña herramienta que parece funcionar:

Código Delphi [-]
program XmlValidator;

{$APPTYPE CONSOLE}

uses SysUtils, ActiveX, ComObj;

var
  FileName: String;
  XmlDom: OleVariant;

begin
  WriteLn('XmlValidator Version 1.0');
  WriteLn;

  if ParamCount() > 0 then
  begin
    CoInitialize(nil);
    FileName := ParamStr(1);

    XmlDom := CreateOleObject('MsXml2.DomDocument.4.0');
    XmlDom.Async := false;
    XmlDom.ValidateOnParse := true;
    XmlDom.ResolveExternals := true;
    XmlDom.Load(FileName);

    if XmlDom.ParseError.ErrorCode <> 0 then
      WriteLn(Format('%s(%s) Error: %s', [
        ExtractFileName(FileName),
        XmlDom.ParseError.Line,
        XmlDom.ParseError.Reason
      ]));
  end;
end.

Es una herramienta de consola pero se puede adaptar a otras cosas.

// Saludos


La franja horaria es GMT +2. Ahora son las 18:01:15.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi