Discussion :

[OR34a]

Bonjour,
J'abuse peut-être du forum et m'en excuse mas j'ai encore une autre question à poser :
Je souhaite intégrer à l'application que je suis en train de développer (Lazarus 1.0.14 - Win32 - W7) une aide CHM. J'ai construit l'aide à l'aide de la version "FreeWare" de "HelpNdocs4" et cela se fait sans problèmes majeurs. Lorsque je double clique sur le fichier d'aide créé il s'ouvre sans problèmes.
Pour l'intégration dans mon application, j'ai suivi les instructions du tutorial de Lazarus : " Executing External Programs/fr" et ai ajouté dans mon programme un bouton censé lancer l'aide. Les instructions permettent de récupérer le chemin de l'aide et de la lancer (code).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm_Ecole.BT_Aid2Click(Sender: TObject);
Var noma, chappli : string;
Var Aprocess  : Tprocess ;
begin
 Aprocess := Tprocess.Create(nil)  ;
 chappli := ExtractFilePath(Application.ExeName) ;
 noma := chappli + '\Aide\0_HNB\Ma Promo.chm';
if fileexists(noma) then
  Begin
    Aprocess.CommandLine := noma ;
    AProcess.Options := AProcess.Options + [poWaitOnExit];
    AProcess.Execute ;
  end
else
 Begin
    showmessage('le fichier d''aide n''existe pas ou n''est pas dans le bon dossier !');
end;
end;

La récupération du chemin est faite sans problème mais l'exécution se traduit par un message d'erreur :
"Le Projet 'MaPromo' a lévé une classe d'exception "Eprocess" avec le message :
Failed to EXecute D:\....\Ma Promo.chm :
193 at adresse 4E751E.

Comment résoudre cette erreur ?

[SoftChris]

Salut,

Je répond hors sujet mais ayant eu pas mal de problèmes avec l'aide de mes programmes et étant tributaire de l'évolution des bibliothèques sans préavis de Microsoft sur l'aide, je construit dorénavant mon aide en HTML et l'affiche directement dans le navigateur Internet, et en plus c'est plus facilement portable... et on a plus de possibilité de mise en page. De plus si on fait un sondage pour savoir le nombre de personnes qui lisent l'aide...
Au sujet de programme, j'ai mis en ligne MyBank, logiciel de finances personnelles, écrit avec Lazarus.

[OR34a]

Bonjour,

En me basant sur la première réponse que j'ai eue à ma question, j'au fini par trouver une solution à l'affichage de l'aide CHM àa partir du click sur un bouton.
Pour ceux que cela intéresse le code correspondant est ci après :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm_Ecole.BT_Aid1Click(Sender: TObject);
Var noma, appliaide, chappli : string;
Var Aprocess  : Tprocess ;
begin
Aprocess := Tprocess.Create(nil)  ;
chappli := ExtractFilePath(Application.ExeName) ;  //chemin complet du pgm que l'on utilise
noma := chappli + 'Aide\0_HNB\Ma0Promo.chm';     // le chemin complet du fichier CHM à ouvrir
Appliaide := 'C:\Windows\hh ' + noma ;   // Le pgm d'ouverture du fichier chm (hh) + le chemin et nom du fichier CHM
if fileexists(noma) then
  Begin
    Aprocess.CommandLine := appliaide ;
    AProcess.Options := AProcess.Options + [poWaitOnExit];
    AProcess.Execute ;
  end
else
 Begin
    showmessage('le fichier d''aide n''existe pas ou n''est pas dans le bon dossier !');
end;
End;

En fait il faut construire 2 variables, l'une qui fait appel au prgm Windows d'affichage des fichiers CHM (C:\Windows\hh) et la seconde qui localise le fichier CHM à ouvrir soit dans ce cas la variable noma .
Ensuite le commandline est construit à partir de ces deux variables mais il faut avoir soin de faire figurer un blanc après hh ( C:\Windows\hhblanc' pour que le lancement du pgm hh et le fichier à ouvrir soient séparés.
Bien sur l'idéal serait d'associer cette procédure à la touche F1 mais un bouton c'est déjà pas mal.

R.O.