Ecrire dans fichier XML existant.

Version imprimable

Bonjour,

Je travail sur un application qui, lors de son installation doit écrire dans un fichier XML.

Ce fichier se nomme: "dll.xml".
je dois y écrire une simple série de ligne que voici (écrites à la main):

Code:

1
2
3
4
5
6
7
8
 
 
   <Launch.Addon>
        <Name>CPS</Name>
        <Disabled>False</Disabled>
        <ManualLoad>False</ManualLoad>
        <Path>CPSModulesStart.dll</Path>
    </Launch.Addon>

Voici ce que j'ai essayé sans succès:

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
39
40
41
42
43
44
45
46
47
 
 
function NextButtonClick(CurPageID: Integer): Boolean; 
var
	XMLDoc, NewNode, NewName, NewDisabled, NewManualLoad, NewPath,  RootNode: Variant;
	Path: String;
begin
  if curpageID=wpReady then
  begin
    Path := ExpandConstant('{src}\');
 
    { Load the XML File }
    XMLDoc := CreateOleObject('MSXML2.DOMDocument');
    XMLDoc.async := False;
    XMLDoc.resolveExternals := False;
    XMLDoc.load(Path + XMLFileName);
    if XMLDoc.parseError.errorCode <> 0 then
      RaiseException('Error on line ' + IntToStr(XMLDoc.parseError.line) + ',position ' + IntToStr(XMLDoc.parseError.linepos) + ': ' + XMLDoc.parseError.reason);
    MsgBox('Loaded the XML file.', mbInformation, mb_Ok);
    { Modify the XML document }
    NewNode       := XMLDoc.createElement('Launch.Addon');
    RootNode      := XMLDoc.documentElement;
    RootNode.appendChild(NewNode);
 
    NewName       := XMLDoc.createElement('Name');
    NewNode.appendChild(NewName);
    NewNode.LastChild.text:= 'CPS';
 
    NewDisabled   := XMLDoc.createElement('Disabled');
    NewName.appendChild(NewDisabled);
    NewName.LastChild.text:= 'False';
 
    NewManualLoad := XMLDoc.createElement('ManualLoad');
    NewDisabled.appendChild(NewManualLoad);
    NewDisabled.lastChild.text:= 'False';
 
    NewPath       := XMLDoc.createElement('Path');
    NewManualLoad.appendChild(NewPath);
    NewManualLoad.lastChild.text:='CPSModulesStart.dll';
 
	{ Save the XML document }
    XMLDoc.Save(Path + XMLFileName);
    MsgBox('Saved the modified XML as ' + XMLFileName, mbInformation,   mb_Ok);
    Result:=True;
    end;
    Result:=True;
end;

Comment puis-je faire à partir de la section code de Inno Setup 5.3.3?
Merci de votre aide. :oops:

Cordialement
Pierre

Bonjour,

Citation:

Envoyé par Pierre95

Comment puis-je faire à partir de la section code de Inno Setup 5.3.3?
Merci de votre aide. :oops:

2 possibilités :
Depuis Innosetup en lisant et/ou créant le fichier XML comme si c'était un fichier texte (voir les fonctions fournies dans l'aide d'Innosetup, section script)
En passant par une dll qui contiendra une fonction :
Code:

1 2 3 4 5 6 7 function XMLFileUpdate(Path, XMLFileName: PChar): Boolean; var XMLDoc, NewNode, NewName, NewDisabled, NewManualLoad, NewPath, RootNode: Variant; begin // Mise à jour du fichier XML // ... end;
et un appel de celle ci depuis la section de code :
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 [ FILES ] ... ; "Flags: dontcopy" car la dll n'est utilisé que par l'installeur Source: "MaDll.dll"; DestDir: "{app}"; Flags: dontcopy [ CODE ] // Prototype de la fonction proposée par la dll // setuponly car la dll n'est utilisé que par l'installeur function MaDll_XMLFileUpdate(Path, XMLFileName: PChar): Boolean; external 'XMLFileUpdate@files:MaDll.dll stdcall setuponly'; // Attention à bien respecter les conventions d'appel entre dll et le script ! function NextButtonClick(CurPageID: Integer): Boolean; var XMLDoc, NewNode, NewName, NewDisabled, NewManualLoad, NewPath, RootNode: Variant; Path: String; begin Result := True; if curpageID=wpReady then begin Path := ExpandConstant('{src}\'); XMLFileName := 'dll.xml'; // Appel de la fonction de la dll Result := MaDll_XMLFileUpdate(Path, XMLFileName); end; end;
Attention, dans votre code de mise à jour, je vois que vous recréez des nœuds dans le fichier XML plutôt que les mettre à jour ! :?
Validez votre appel à une dll depuis une application de test Delphi... ;)

24/06/2013, 07h42
Pierre95

Merci beaucoup pour cette réponse détaillée.

En effet, je dois simplement créer ces nœuds avec des données fixes une fois pour toute lors de l'installation. Ceci dans un fichier existant au paravant.

Je vais tenter l'écriture de type fichier texte qui semble la plus simple à réaliser.

Je reviendrai pour vous tenir informé

Merci encore
Cordialement

Pierre

Bonjour,

Je repasse pour remercier vivement Ph. B. pour ses précieux conseils qui m'ont permis d'aboutir à une code qui fonctionne à merveille

Je vous le donne au cas ou il serait utile à d'autres membres:

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
 
function NextButtonClick(CurPageID: Integer): Boolean; 
var
	Path: String;
  File: TStrings;
  i: Integer;
begin
  i:= 6
  if curpageID=wpReady then
  begin
    if FSX then
    begin
      Path:= ExpandConstant('{userappdata}')+'\Microsoft\FSX\' + 'dll.xml';
      File:= TstringList.Create;
      File.loadFromFile(Path);
      if File[7] <> '                <Name>CPS</Name>' then
      begin 
        File.SaveToFile(Path +' before_CPS.xml');
        File.Insert  (i,'       <Launch.Addon>');
        File.Insert(i+1,'              <Name>CPS</Name>');
        File.Insert(i+2,'              <Disabled>False</Disabled>');
        File.Insert(i+3,'              <ManualLoad>False</ManualLoad>');
        File.Insert(i+4,'              <Path>CPSModulesStart.dll</Path>');
        File.Insert(i+5,'       </Launch.Addon>');
        File.SaveToFile(Path);
        File.Clear;
      end;
   end;
end;

Encore merci :ccool:

Cordialement
Pierre