[Inno Setup] Virtual Text , Log

Version imprimable

Voir 40 message(s) de cette discussion en une page

5 pièce(s) jointe(s)

[Inno Setup] Virtual Text , Log

Bonjour,

Désolé d'avance pour la compréhension de ce qui est écris, j'ai essayé de faire au mieux ...

Dans mon ancien Installeur de logiciel, fait avec InstallJammer, a un certain moment nous créons un fichier log, et dans ce fichier log, nous affichons des virtuals texts

vous allez surement mieux comprendre avec les photos :aie:

La première image montre la création du fichier log via du tcl, je pense que l'on peut crée un fichier log dans InnoSetup via "SetupLooging"
Pièce jointe 485072

Avant de pouvoir écrire dans le fichier log, il donne un nom Virtuel à une commande spécifié. Pour cette exemple, il donne le Nom : "StopServiceG" à la commande qui stop les Services du FirebirdGuardian : Voici la photo pour mieux comprendre :

Pièce jointe 485075

Ensuite,une fois la création du fichier log réaliser, il ouvre le fichier log pour écrire dedans, il utilise les Noms virtuels donnés précédemments . J'ai trouvé "SaveStringtoFile" pour pouvoir écrire dedans, mais la encore, je suis sur de rien :/
Pièce jointe 485073

Voila le résultat final de ce qui est écris dans le fichier de Log (Il y a plusieurs commandes regroupées) :

Pièce jointe 485076

Et voila le résultat final une fois que l'installation est terminer, cela créé un fichier .txt contenant cela :

Pièce jointe 485079

Je sais pas si cela est très clair ...
Mais, pensez-vous qu'il est possible de réaliser cela sur InnoSetup, et si oui de quel façon, sachant que je trouve peu d'exemples et de docs ? :calim2:

Voici mon code pour Stop le Services FirebirdGuardian :
Code:

1 2 3 if FileExists(ExpandConstant('{sys}\sc.exe')) Then Shellexec('open',ExpandConstant('{sys}\sc.exe'),'stop FirebirdGuardianDefaultInstance','', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
Merci d'avance
Cordialement
Ayouten

24/06/2019, 14h59
Ayouten

Bonjour,

J'ai bien avancée dans mon probème, j'ai compris comment obtenir le message final !
Il me suffisait d'exécuter la ligne de commande : "sc stop FirebirdGuardianDefaultInstance" pour obtenir le message, ainsi de suite pour les autres ...

Citation:

Envoyé par Ayouten

Pièce jointe 485079

Cependant, je ne sais toujours pas comment écriré cela dans un fichier log ou bien un txt, et pourtant j'ai cherché :calim2: ... :aie:

Quelqu'un aurait-il une proposition ??
Cordialement
Ayouten
24/06/2019, 15h20
SergioMaster

Bonjour,
je sais que DOS c'est vieux mais à l'époque il existait des pipes et autres astuces étonnamment cela existe toujours ;)
exemple : ipconfig /all > ipconfig.txtreste à trouver le moyen de faire un append à un fichier log existant

Il existe aussi CLIP ipconfig /all | CLIP pour obtenir le résultat dans le presse papier
24/06/2019, 15h27
Ayouten

je crois que je me suis mal exprimé :aie:

Enfaite j'ai remarquer que en faisant "sc stop FireBirdGuardianDefaultInstance" dans le CMD, cela m'affichait le message que je souhaite avoir dans mon fichier log ou .txt :D

Or, je ne sais pas comment écrire cela dans InnoSetup, sachant que j'ai déjà test ShellExec et que cela marchait pas (Je ne dois pas taper la commande a la main depuis mon CMD, cela doit être automatque, à chaque fois que j'installe mon logiciel) :aie:
Et cerise sur le gâteau ... je ne sais pas non plus comment l’écrire dans le fichier log ou .txt :aie::aie:

Je sais pas si tu avais compris cela...
Désolé de mettre mal exprimé
Cordialement
Ayouten
24/06/2019, 16h31
SergioMaster

Citation:

Envoyé par Ayouten

je crois que je me suis mal exprimé

Non
Je pensais qu'écrire SC stop FireBirdGuardianDefaultInstance>log.txt ou sc stop FireBirdGuardianDefaultInstance|clip (à partir de là il y a de nombreuses facilités code pour coller le presse papier dans un fichier) pourraient fonctionner (je n'ai pas essayé)

Code:

Shellexec('open',ExpandConstant('{sys}\sc.exe'),'stop FirebirdGuardianDefaultInstance > logfb.txt','', SW_HIDE, ewWaitUntilTerminated, ErrorCode);

donnerai quoi ? (bien sûr il faut donner un nom de fichier avec chemin mais dans le principe)

Ça pourrait être quelque chose comme ceci :

Code:

1
2
3
4
5
6
7
8
9
var
  Output :AnsiString;
 
begin
  ShellExec('open', 'sc.exe', ExpandConstant('stop FirebirdGuardianDefaultInstance > {tmp}\logfb.txt'),'', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
 
  if LoadStringFromFile(ExpandConstant('{tmp}\logfb.txt'), Output) then
    Log(Output);
end;

25/06/2019, 09h42
Ayouten
Bonjour et merci pour vos réponses !

Cependant, dites moi si j'ai tort, j'ai remarqué dans la doc que le {tmp} est un fichier temporaire qui est supprimé lors de la fermeture de l'installation et de la fermeture de la désinstallation :aie: . Or,je voudrais que celui-ci reste visible constamment .

De plus, juste pour une confirmation,

Le fichier logfb.txt est bien créé via :
Code:

1 2 3 4 [Setup] SetupLogging = yes
Cordialement
Ayouten
25/06/2019, 10h01
SergioMaster

Bonjour

Citation:

Envoyé par Ayouten

j'ai remarqué dans la doc que le {tmp} est un fichier temporaire qui est supprimé lors de la fermeture de l'installation et de la fermeture de la désinstallation :aie: . Or,je voudrais que celui-ci reste visible constamment .

Moi je proposais un simple fichier log avec indication qu'il fallait ajouter un chemin quelconque, comme il était question d'ajouter ce fichier à un fichier log la solution d'Andonotor me paraît correcte
le mettre dans le répertoire temporaire pour pouvoir le lire dans un ensemble de lignes (output), lignes mises ensuite dans le fichier log du setup.

Citation:

dites moi si j'ai tort,

AMHA Oui ;)
25/06/2019, 10h23
Ayouten
AH, dans ce cas la je dois avoir un soucis, car je ne trouve pas le fichier en question ( Pourtant je suis bien dans le bon répertoire "C:\temp" ) :aie: et la ligne
Code:

1 2 Log(Output);
ne s'exécute pas :aie:

Hâte que se stage finissent :haha:

Cordialement
Ayouten
25/06/2019, 10h37
Andnotor

Le fichier log est créé dans le répertoire temporaire de l'utilisateur : C:\Users\<User>\AppData\Local\Temp.

Tu ne peux choisir un autre répertoire que par ligne de commande : MonSetup.exe /LOG="c:\...\MonSetup.log".
25/06/2019, 11h20
Ayouten

ah, j'ai enfin trouvé le fichier :mouarf:

Cependant, le fichier ne contient en aucun cas ce qu'on lui demande d'afficher, celui contient mon debug Output

Petit extrait :

Citation:

2019-06-25 11:06:08.328 Filename: C:\Program Files (x86)\Firebird\Firebird_2_0\bin\instreg.exe
2019-06-25 11:06:08.328 Parameters: instreg install -z
2019-06-25 11:06:08.390 Process exit code: 1
2019-06-25 11:06:08.390 -- Run entry --
2019-06-25 11:06:08.390 Run as: Current user
2019-06-25 11:06:08.390 Type: Exec
2019-06-25 11:06:08.390 Filename: C:\Program Files (x86)\Firebird\Firebird_2_0\bin\instsvc.exe
2019-06-25 11:06:08.390 Parameters: instsvc install -auto -classic -guardian -z
2019-06-25 11:06:08.468 Process exit code: 1
2019-06-25 11:06:08.468 -- Run entry --
2019-06-25 11:06:08.468 Run as: Current user
2019-06-25 11:06:08.468 Type: Exec
2019-06-25 11:06:08.484 Filename: C:\Program Files (x86)\Firebird\Firebird_2_0\bin\instsvc.exe
2019-06-25 11:06:08.484 Parameters: instsvc start
2019-06-25 11:06:08.531 Process exit code: 1
2019-06-25 11:06:08.531 -- Run entry --
2019-06-25 11:06:08.531 Run as: Current user
2019-06-25 11:06:08.531 Type: Exec
2019-06-25 11:06:08.531 Filename: C:\windows\system32\sc.exe
2019-06-25 11:06:08.531 Parameters: config FirebirdServerDefaultInstance start = auto
2019-06-25 11:06:08.593 Process exit code: 1639
2019-06-25 11:06:08.593 -- Run entry --
2019-06-25 11:06:08.593 Run as: Current user
2019-06-25 11:06:08.593 Type: Exec
2019-06-25 11:06:08.593 Filename: C:\windows\system32\sc.exe
2019-06-25 11:06:08.593 Parameters: query FirebirdGuardianDefaultInstance
2019-06-25 11:06:08.671 Process exit code: 0
2019-06-25 11:06:08.671 -- Run entry --
2019-06-25 11:06:08.671 Run as: Current user
2019-06-25 11:06:08.671 Type: Exec
2019-06-25 11:06:08.671 Filename: C:\windows\system32\sc.exe
2019-06-25 11:06:08.671 Parameters: query FirebirdServerDefaultInstance
2019-06-25 11:06:08.780 Process exit code: 0
2019-06-25 11:06:08.780 Need to restart Windows? No
2019-06-25 11:06:17.048 Deinitializing Setup.
2019-06-25 11:06:17.064 Log closed.

cela ne m'affiche pas ce que je souhaite avoir :/

Cordialement
Ayouten
25/06/2019, 11h37
Andnotor

Il faudra alors exécuter la commande par l'invité de commande :

Code:

ShellExec('open', 'cmd.exe', ExpandConstant('/C sc.exe stop FirebirdGuardianDefaultInstance > {tmp}\logfb.txt'),'', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
25/06/2019, 11h57
Ayouten
Ah parfait cela fonctionne a la perfection :D

Je voudrais aussi utiliser cela pour la section [RUN]

Ou j'effectue aussi des lignes de commandes :
Code:

1 2 Filename: "{pf32}\Firebird\Firebird_2_0\bin\instclient.exe"; Parameters: "install gds32" ;WorkingDir: "{pf32}\Firebird\Firebird_2_0\bin" ; Flags: runhidden skipifdoesntexist waituntilterminated ;
Est t'il possible de le faire aussi ? pour que cela s'affiche dans le même dossier ?

Cordialement
Ayouten

Il faudra traiter l'événement AfterInstall :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
[Run]
Filename: "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')
 
[Code]
procedure LogOutput(aFileName :string);
var
  Output :AnsiString;
begin
  if LoadStringFromFile(aFileName, Output) then
    Log(Output);
end;

hum je pense que je l'utilise mal ...

J'ai donc réalisé ce que tu m'as donné

Voici ce que j'ai fait dans le [RUN]
Code:

1 2 3 Filename: "{pf32}\Firebird\Firebird_2_0\bin\instclient.exe"; Parameters: "instclient install gds32" ;WorkingDir: "{pf32}\Firebird\Firebird_2_0\bin" ; Flags: runhidden skipifdoesntexist waituntilterminated ; Filename: "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')
Et dans mon Code
Code:

1 2 3 4 5 6 7 8 procedure LogOutput(aFileName :string); var Output :AnsiString; begin if LoadStringFromFile(aFileName, Output) then Log(Output); end;
Et voila ce qui ce réalise dans mon Log

Citation:

2019-06-25 15:21:19.857 -- Run entry --
2019-06-25 15:21:19.857 Run as: Current user
2019-06-25 15:21:19.857 Type: Exec
2019-06-25 15:21:19.872 Filename: cmd.exe
2019-06-25 15:21:19.872 Parameters: /C "C:\Program Files (x86)\Firebird\Firebird_2_0\bin\instclient.exe" install gds32 > C:\Users\stage_be\AppData\Local\Temp\is-5FDUK.tmp\logfb.txt
2019-06-25 15:21:19.966 Process exit code: 0

Faut t'il que je supprime ma première ligne FileName ??

Cordialement
Ayouten

25/06/2019, 15h26
SergioMaster

c'est peut-être LoadStringsFromFile qu'il faudrait utiliser avec un TArrayString
puis une boucle pour lire les différentes lignes pour les passer par la fonction Log

à moins que, en cherchant un peu ;) on puisse faire tout en une seule instruction SaveStringsToUTF8File

j'ai donc testé avec SaveStringToFile, rien n'y change :/

Code:

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

j'ai modifié certain petit truc dans mon [RUN], cela peut t'il venir de la ?

Code:

1
2
3
4
 
Filename: "{pf32}\Firebird\Firebird_2_0\bin\instclient.exe"; Parameters: "instclient install gds32" ;WorkingDir: "{pf32}\Firebird\Firebird_2_0\bin" ; Flags: runhidden skipifdoesntexist waituntilterminated ;
 
Filename: "{sys}\cmd.exe"; Parameters: "/C ""{pf32}\Firebird\Firebird_2_0\bin\instclient.exe"" instclient install gds32 > {tmp}\logfb.txt"; Flags: runhidden skipifdoesntexist waituntilterminated; AfterInstall: LogOutput('{tmp}\logfb.txt');

Cordialement
Ayouten

J'avais écrit que LoadStringsFromFile me semblait plus adapté !

Voilà une proposition que je ne peux pas tester

Code:

1
2
3
4
5
6
7
8
9
 
procedure LogOutput(aFileName :string);
var
 Output : TArrayString;
 i : integer;
begin
    if LoadStringsFromFile(aFileName, Output) then
     for i:=Low(Output) to High(Output) do  Log(Output[i]);
end;

Code:

1
2
3
4
5
6
7
8
 
procedure LogOutput(aFileName :string);
var
 Output : TArrayString;
begin
    if LoadStringsFromFile(aFileName, Output) then
       SaveStringsToUTF8File({log},Output,true);
end;

et en UTF8 pour les accents !

25/06/2019, 16h58
Ayouten

Citation:

Envoyé par SergioMaster

J'avais écrit que LoadStringsFromFile me semblait plus adapté !
!

bizarre,je cherchais la doc et je tombais toujours sur LoadStringFromFile sans le "s"

Merci je vais tester cela demain :)

Cordialement
Ayouten

Citation:
Envoyé par SergioMaster
Code:

1 2 3 4 5 6 7 8 9 procedure LogOutput(aFileName :string); var Output : TArrayString; i : integer; begin if LoadStringsFromFile(aFileName, Output) then for i:=Low(Output) to High(Output) do Log(Output[i]); end;
Tout d'abord lors de mes test, le TArrayString est un type inconnu, j'ai donc utilisé le TArrayOfString, je sais sur de ce que j'ai fait la xD
Ensuite J'ai donc tester celui-ci en 1er, le low ainsi que le high sont des identifieurs inconnus ...
Citation:
Envoyé par SergioMaster
Code:

1 2 3 4 5 6 7 8 procedure LogOutput(aFileName :string); var Output : TArrayString; begin if LoadStringsFromFile(aFileName, Output) then SaveStringsToUTF8File({log},Output,true); end;
Concernant celui-ci, j'ai aussi utilisé le TArrayOfString,
Et j'ai mis a la place de log le nom de mon fichier

Voila ce que cela a donné :
Code:

1 2 3 4 5 6 7 8 9 procedure LogOutput(aFileName :string); var Output : TArrayOfString ; i : integer; begin if LoadStringsFromFile (aFileName, Output) then SaveStringsToUTF8File('{tmp}\logfb.txt',Output,true); end;
Toujours le même problème, le SaveStringToUTF8File ne s'exécute pas :'(
Comment est-ce possible :'(

Cordialement
Ayouten

Voir 40 message(s) de cette discussion en une page