Discussion :

[Higgins]

Bonjour tout le monde,

J'utilise régulièrement des fichier xML pour stocker des informations de configuration, avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
var ConfFile:TXMLDocument;
begin
  ConfFile:=tXMLDocument.Create(self);
   ConfFile.DOMVendor:= getDOMVENDOR('MSXML');
   ConfFile.loadfromfile('monfichier.XML');

Je voudrais faire la même chose dans une application intraweb et j'ai intégré ce code dans l'évènement OnCreate de la classe TIWUserSession et à l'exécution j'ai le message d'erreur

Microsoft MSXML n'est pas installé

alors que tout fonctionne normalement en "client lourd"

Y-a-t'il un paramétrage particulier à faire sur Intraweb?

[ShaiLeTroll]

Si VCL ?
Est-ce que CoInitialize() est fait par un objets comme IWSession ... c'est nécessaire pour les objet COM
C'est "Forms.pas" qui le fait implicitement en VCL

En plus, il faut le faire pour chaque Thread, une session est-elle gérée dans un thread particulier ?

Si FMX ou VCL ?
Cela peut-être l'inclusion de Xml.Win.msxmldom
Cette inclusion provoque le RegisterDOMVendor correspond à ton implémentation Win (MSXML) ou Mac (ADOM XML v4)

EDIT :
Vu ton message, tu dois dépasser le stade du RegisterDOMVendor
Selon le code c'est TMSXMLDOMDocumentFactory.CreateDOMDocument qui provoque cette erreur sur l'échec d'un TryCoCreateInstance
Du coup, CoInitialize() semble plus proche de la solution
Si FMX, faudrait trouver l'équivalent de CoInitialize() en version mutliplateforme ou alors toujours à coup de directive\pattern strategy

GUID nécessaire que l'on doit trouver dans la base de registre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  CLASS_DOMDocument: TGUID = '{F6D90F11-9C73-11D3-B32E-00C04F990BB4}';
  CLASS_DOMDocument26: TGUID = '{F5078F1B-C551-11D3-89B9-0000F81FE221}';
  CLASS_DOMDocument30: TGUID = '{F5078F32-C551-11D3-89B9-0000F81FE221}';
  CLASS_DOMDocument40: TGUID = '{88D969C0-F192-11D4-A65F-0040963251E5}';
  CLASS_DOMDocument60: TGUID = '{88D96A05-F192-11D4-A65F-0040963251E5}';

Comme on arrive à la base de Registre !
As-tu les droits de lecture de la base de Registre avec ton module IntraWeb ?
Est-ce un IW autonome ou un module IIS ?
avec IIS, il te faut surement des droits systèmes pour tes modules !

[Higgins]

JE suis en VCL et IW autonome.
JE vais chercher du côté de CoInitialize, merci

[Higgins]

Merci, c'était la bonne piste.
Dans un premier temps, j'ai mis CoInitialize dans la section initialization du servercontroller mais finalement, j'ai dû le mettre dans l'évènement onCreate du TIWUserSession.

En plus, ça m'a permis de résoudre un autre pb: si je commentais le code , un peu plus loin dbExpress me déclenchait une erreur le pilote 'MSSQL9' est inconnu

Tout fonctionne. Encore merci