Validation de XML par XSD sans MSXML

Version imprimable

22/03/2006, 16h35
XPierrot

Validation de XML par XSD sans MSXML

Bonjour, j'utilise Delphi 2005 Architect. Je suis actuellement à la recherche d'une solution me permettant de valider un fichier XML grace a un fichier XSD.

Sur la FAQ, il y a un exemple de code se basant sur l'active X MSXML. Une de mes contraintes est de ne pas utiliser d'active X. Je voudrais savoir s'il existe des composants qui gerent cela en natif en Delphi, et si oui, lesquels.

J'ai deja parcouru le net, j'ai regardé un certain nombre de composants (comme XML inspector, Open XML, Xmlparster, et quelques autres) et je n'ai rien trouvé, sans succès pour l'instant.

Je vous remercie par avance.

Si tu est en .Net (après quelques recherches) a priori il devrait y avoir ce qu'il faut dans System.Xml.Schema
Si tu es en Win32, il n'y a pas de choix énorme à part le coup de MSXML (objet COM)

Au passage, MS nous dit :
"INFO : utilisation de MSXML est Non pris en charge dans .NET Applications"
voir http://support.microsoft.com/default.aspx?scid=kb;en-us;815112

Voici une utilisation du code de la FAQ (avec MSXML pour Delphi win32) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TForm1.actValiderSchemaExecute(Sender: TObject);
var
  vXSDFileName,
  vXMLFileName: string;
begin
  if mmXML.Modified or docXML.IsEmptyDoc then
    docXML.XML := mmXML.Lines;
 
  if mmXSD.Modified or docXSD.IsEmptyDoc then
    docXSD.XML := mmXSD.Lines;
 
  // Afin d'obtenir le n° de ligne/caractère en cas d'erreur
  //   on utilise ValidateXMLFileName() (avec des fichiers temporaires)
  try
    vXSDFileName := IncludeTrailingPathDelimiter(GetTempDir)+'temp.xsd';
    mmXSD.Lines.SaveToFile(vXSDFileName);
 
    vXMLFileName := IncludeTrailingPathDelimiter(GetTempDir)+'temp.xml';
    mmXML.Lines.SaveToFile(vXMLFileName);
 
    ValidateXMLFileName(vXMLFileName, vXSDFileName, '');
 
    MessageDlg('Document XML conforme au schéma.', mtInformation, [mbOK], 0)
  except
    on E: EXMLDOMValidationError do
      begin
        pgCtrlPrincipal.ActivePage := tabXML;
        with E do
          begin
            FLigneEnErreur := Line;
            mmXML.CaretY := Line;
            mmXML.CaretX := LinePos;
            mmXML.Repaint;
          end;
        raise;
      end;
  end;
end;

(mmXML est un TSynMemo, docXML et docXSD sont des TXMLDocument)

23/03/2006, 08h18
fulster

Citation:

Au passage, MS nous dit :
"INFO : utilisation de MSXML est Non pris en charge dans .NET Applications"
voir http://support.microsoft.com/default.aspx?scid=kb;en-us;815112

Voilà qui pose le problème crucial de l'évolution des applications.
Ceux qui ne souhaitent pas passer sur .NET ne pourront pas maintenir longtemps leurs applis si l'on suit cette logique ... qu'est ce que je peux détester ça ! grrrrrr ! :evil:

Mais au passage merci pour ce bout de code ... je comptais justement implémenter ce genre de validation sous Delphi ! :roll:
23/03/2006, 08h46
XPierrot

Merci pour cet exemple d'utilisation du code de la FAQ. J'ai testé et ca fonctionne tres bien.

J'ai presenté la solution technique et on m'a dit : "pas bien MSXML, trouve autre chose"

Donc j'etais un peu deçu. Je regarde du coté de Xerces, compilé en C++, pour voir si y a pas moyen de l'integrer a Delphi plus ou moins directement.

Si jamais vous avez des billes la dessus, je suis preneur