TXMLDocument nimmt die
MSXML-Version, welche es als erstes findet,
also von denen, welche in dieser Liste stehen.
Bei dir wäre es also die Version 4.0,
es sei denn du erstellst dir selber die gewünschte Version ... du müßtest dann nur deine eigene Funktion nutzen
Delphi-Quellcode:
const CLASS_DOMDocument: TGUID = '
{2933BF90-7B36-11D2-B20E-00C04F983E60}';
function CreateDOMDocument: IXMLDOMDocument;
begin
Result := TryObjectCreate([CLASS_DOMDocument60, CLASS_DOMDocument40, CLASS_DOMDocument30,
CLASS_DOMDocument26,
msxml.CLASS_DOMDocument])
as IXMLDOMDocument;
if not Assigned(Result)
then
raise DOMException.Create(SMSDOMNotInstalled);
end;
oder
Delphi-Quellcode:
var XML: IXMLDOMDocument;
OleCheck(CoCreateInstance(CLASS_DOMDocument60,
nil, CLSCTX_INPROC_SERVER
or
CLSCTX_LOCAL_SERVER, IDispatch,
XML));