MSXML-Version auslesen, wenn überhaupt installiert

[torud]

Hallo Wissende,

wie kann man prüfen, ob MSXML beim Kunden installiert ist? Also per Code.
Und falls es installiert ist, wie bekommt man die Version heraus?

[Bernhard Geyer]

Einfach ein interface per CoCreate anfordern und fehler pre try ... except abfangen. Installiert heißt bei COM nicht unbedingt das es auch funktionsfähig ist (DLL-Hölle).

[soulies]

hoi,

könnte es sein (du kannst es ja bei dir prüfen) das du es 'ganz einfach' über die
registry bekommst ?

HKLM\Software\Microsoft\

Wenn der Unterordner 'MSXMLxxx' existiert hat er es installiert und die xxx geben die Version.

Bei mir steht MSXML60 - ich hätte gedacht Version 6.0 !

cya

[xaromz]

Hallo,

da ich weiß, um was es geht, schau doch mal in die Unit "XMLHelp" meines XML-Pakets, da gibt es eine entsprechende Funktion.

Gruß
xaromz

[torud]

Da hat doch wirklich der richtige geantwortet. Prima und danke!

Habe es jetzt erstmal nur zum Testen so gelöst, falls noch jemand an einer Lösung interessiert ist:

Delphi-Quellcode:

  if not(xmlhelp.IsMSXML6Installed) then
    MessageDlg('Auf Ihrem System ist leider kein MSXML 6 installiert.',mtError,[mbOK],0)
  else
    MessageDlg('Auf Ihrem System ist MSXML 6 installiert.',mtInformation,[mbOK],0);

Und in den Uses XMLHelp nicht vergessen.
Schlecht wäre aber eine Funktion mit Rückgabe der Version nicht...

[xaromz]

Hallo,

Zitat:

Zitat von torud

Schlecht wäre aber eine Funktion mit Rückgabe der Version nicht...

da Du ja den Quellcode hast, kannst Du das sicher leicht selbst einbauen. Aber hier mal ein Anfang:

Delphi-Quellcode:

function MSXMLVersion: Integer;
var
  XML: IXMLDOMDocument;
begin
  Result := 0;
  try
    XML := CoDOMDocument60.Create;
    if Assigned(XML) then
      Result := 6;
  except
    try
      XML := CoDOMDocument40.Create;
      if Assigned(XML) then
        Result := 4;
    except
    end;
  end;
end;

Gruß
xaromz

[torud]

Danke Dir, werde es ändern...

[shmia]

Mit folgender Funktion geht das etwas eleganter:

Delphi-Quellcode:

function ProgIDExists(const ProgID:WideString):Boolean;
var
   tmp : TGUID;
begin
   Result := Succeeded(CLSIDFromProgID(PWideChar(ProgID), tmp));
end;

Damit wird kein Objekt erzeugt, dass man dann trotzdem nicht haben möchte.
Letztendlich macht CLSIDFromProgID nichts anderes, als in die Registry zu schauen; aber eben auf dem offiziellen Weg.

Delphi-Quellcode:

if ProgIDExists('Msxml2.DOMDocument.6.0') then
   result := 6
else if ProgIDExists('Msxml2.DOMDocument.5.0') then
   ...

Zu den ProgIDs siehe: http://msdn.microsoft.com/en-us/library/ms757837(VS.85).aspx