[Inno Setup] Virtual Text , Log

D'après l'aide, les constantes ne sont pas interprétées avant l'appel de AfterInstall. Donc essayer ainsi :
Code:

1 2 3 4 5 6 7 procedure LogOutput(aFileName :string); var Output :AnsiString; begin if LoadStringFromFile(ExpandConstant(aFileName), Output) then Log(Output); end;

Bonjour,

Citation:

Envoyé par Ayouten

Tout d'abord lors de mes test, le TArrayString est un type inconnu, j'ai donc utilisé le TArrayOfString,

Oui, bon tapé sans filet je me suis planté (mais bon, il y avait l'aide)
D'ailleurs ce type, je le connais pas, est-ce que l'on ne peut pas utiliser un TStrings à la place ?
Low et High cela évitait d'avoir à trouver le nombre de lignes du TArrayOfString, c'est du Delphi donc pas forcément connu par InnoSetup ?
une boucle for i:=0 to Output.Count-1 do est-elle possible ?
Code:

1 2 3 4 5 6 7 8 9 10 procedure LogOutput(aFileName :string); var Output : TStringList; i : integer; begin Output:=TStringList.Create; OutPut.LoadFromFile(aFileName, Output); for i:=0 to Output.Count- do Log(Output[i]); Output.Free; end;
Citation:

Et j'ai mis a la place de log le nom de mon fichier

Alors là, c'est :fou: l'objectif est de mettre ce qui a été enregistré dans le fichier par la commande de redirection > dans le fichier log de l'installation pas de remettre dans le même fichier !
à moins que aFileName soit différent de '{tmp}\logfb.txt' j'ai également vu des ExpandConstant trainer dans la discussion pourquoi cela serait différent ici ?

Citation:

Toujours le même problème, le SaveStringToUTF8File ne s'exécute pas

la SaveString ou le LoadStringsFromFile ? Je rappelle quand même qu'il y a un if , de plus est-ce dans le bon fichier que c'est contrôlé ?

en reprenant :
1 - est-ce que la redirection de la commande vers un fichier fonctionne ?
2- est-ce que le nom de ce fichier est bien différent du fichier log de l'installation,
2' aFileName est bien le nom de ce fichier
3- est-ce que le fichier contenant la redirection est bien lu (en gros que retourne LoadStringsFromFile true ou false)

POST SCRIPTUM Je viens de relayer l'annonce sur le forum Firebird, Firebird 2.5 ne sera bientôt plus maintenu sa dernière version de mise à jour (2.5.9) vient de sortir, alors 2.0 :roll:

Ah oui, en effet cela était bien dû au manque du ExpandConstant,

Youhou sa fonctionne :yaisse2::yaisse2::yaisse2::yaisse2:

Dernière question, question simple pour la proprété de la lecture des log :)

Est-il possible de positionner le message Stop Guardian qui est pour l'instant comme cela

Citation:

2019-06-26 10:20:37.036 [SC] ControlService ‚chec(s) 1062 :

Le service n'a pas ‚t‚ d‚marr‚.

Stop Guardian =

de le positionner comme cela :

Citation:

2019-06-26 10:20:37.036 Stop Guardian = [SC] ControlService ‚chec(s) 1062 :

Le service n'a pas ‚t‚ d‚marr‚.

Sachant que mon code est comme ceci :
Code:

1 2 3 4 5 ShellExec('open',ExpandConstant('{sys}\cmd.exe'),ExpandConstant('/C sc.exe stop FirebirdGuardianDefaultInstance > {tmp}\logfb.txt'),'', SW_HIDE, ewWaitUntilTerminated, ErrorCode); if SaveStringToFile(ExpandConstant('{tmp}\logfb.txt'), #13#10 + 'Stop Guardian = ' + #13 #10, True) Then if LoadStringFromFile(ExpandConstant('{tmp}\logfb.txt'), Output) Then Log(Output);
Cordialement
Ayouten

Ce qui me choque c'est que le innosetup utilisé ne soit pas unicode

Citation:

Le service n'a pas ‚t‚ d‚marr‚.

c'est moche

Citation:

Le service n'a pas été démarré.

c'est mieux !

pour le reste c'est à mon avis non sauf à triturer (pure programmation par exemple avec stringchange) la variable Output avant de l'envoyer dans le log
Code:

1 2 3 4 ShellExec('open',ExpandConstant('{sys}\cmd.exe'),ExpandConstant('/C sc.exe stop FirebirdGuardianDefaultInstance > {tmp}\logfb.txt'),'', SW_HIDE, ewWaitUntilTerminated, ErrorCode); if SaveStringToFile(ExpandConstant('{tmp}\logfb.txt') Then if LoadStringFromFile(ExpandConstant('{tmp}\logfb.txt'), Output) Then Log(StringChange(Output,'[SC]','Stop Guardian = [SC]'));

Bonjour,

j'ai un gros doute sur le fait de ce que je viens de réaliser grâce à votre aide ...

On vient de réaliser les logs grâce à cette ligne :
Code:

1 2 Filename: "{sys}\cmd.exe"; Parameters: "/C ""{pf32}\Firebird\Firebird_2_0\bin\instclient.exe"" install gds32 > {tmp}\logfb.txt"; Flags: runhidden skipifdoesntexist waituntilterminated; AfterInstall: LogOutput('{tmp}\logfb.txt');
Or si je comprends bien, la ligne du dessus ne dépend en aucun car du résultat de cela
Code:

1 2 Filename: "{pf32}\Firebird\Firebird_2_0\bin\instclient.exe"; Parameters: "instclient install gds32" ;WorkingDir: "{pf32}\Firebird\Firebird_2_0\bin" ; Flags: runhidden skipifdoesntexist waituntilterminated ;
Le résultat dans les logs dépend t'il donc la ligne ci-dessus ?

Cordialement
Ayouten

Citation:

Envoyé par SergioMaster

Ce qui me choque c'est que le innosetup utilisé ne soit pas unicode

Plutôt un problème d'invité de commande à mon avis ;)

Citation:

Envoyé par Ayouten

de le positionner comme cela :

C'est vraiment du détail :weird:
Ajoute le titre à l'écriture du log. Et pendant que tu y es, ajoute un paramètre titre à LogOutput et utilise cette procédure dans tous les cas.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 [Run] Filename: "{sys}\cmd.exe"; Parameters: "/C ""{pf32}\Firebird\Firebird_2_0\bin\instclient.exe"" install gds32 > {tmp}\logfb.txt"; Flags: runhidden skipifdoesntexist waituntilterminated; AfterInstall: LogOutput('Installation du client', '{tmp}\logfb.txt'); [Code] procedure LogOutput(aTitle :string; aFileName :string); var Output :AnsiString; begin if LoadStringFromFile(ExpandConstant(aFileName), Output) then Log(aTitle +' = ' +Output); end; ... ShellExec('open',ExpandConstant('{sys}\cmd.exe'),ExpandConstant('/C sc.exe stop FirebirdGuardianDefaultInstance > {tmp}\logfb.txt'),'', SW_HIDE, ewWaitUntilTerminated, ErrorCode); LogOutput('Stop Guardian', '{tmp}\logfb.txt');
Citation:

Envoyé par Ayouten

Le résultat dans les logs dépend t'il donc la ligne ci-dessus ?

Réflexion, réflexion :scarymov:

La ligne du dessus, tu la supprimes ! Tu ne veux pas installer deux fois le client non ?

:arf::arf::arf:

Merci beaucoup pour votre aide

Cordialement
Ayouten