XML ohne zusätzliche Komponenten in D2005 PE?

[Ydobon]

Oder ohne alles: CreateOLEObject('Msxml2.DOMDocument.6.0')

[Bernhard Geyer]

Zitat:

Zitat von Ydobon

Oder ohne alles: CreateOLEObject('Msxml2.DOMDocument.6.0')

Aber nur wenn die passende Version auch instaliert ist (Von MS XML2, die Version 6 wenn mich nicht alles täuscht.

Mein Liebling: OpenXMl

[Ydobon]

Nummer 6 ist auch nur die aktuelle Version. 3 oder 4 dürfte zur Standardausstattung gehören, 5 gibt es mit Office und die letzte Version u.a. als eigener Download. Ich habe es so bisher nur einmal für XSLT verwendet, das ganze sieht dann etwa so aus:

Delphi-Quellcode:

var xml: OLEVariant;
    clsid: TGUID;
begin
  if failed(CLSIDFromProgID('Msxml2.DOMDocument.6.0', clsid)) then
     if failed(CLSIDFromProgID('Msxml2.DOMDocument.5.0', clsid)) then
       if failed(CLSIDFromProgID('Msxml2.DOMDocument.4.0', clsid)) then
         if failed(CLSIDFromProgID('Msxml2.DOMDocument.3.0', clsid)) then
         begin
           MessageBox(Handle, 'Mindestens MSXML 3.0 muss installiert sein!', 'Fehler',
                      MB_ICONERROR or MB_OK);
           exit;
         end;
  xml:=CreateOLEObject(ClassIDToProgID(clsid));