Discussion :

[Jlmat]

Bonjour à tous,

J'essaye d'afficher un fichier PDF dans une Form Lazarus par un Tbutton. Le code est indiqué ci-dessous mais plante dès le premier Try et le message d'erreur suivant s'affiche avant celui que j'avais prévu dans le Except:




En effet, faisant pas à pas, ça plante dès l'instruction LoadApp := CreateOleObject('C:\Program Files\Adobe\Acrobat DC\Acrobat.exe'); m'indiquant que ma chaîne de classe est incorreste. Est-ce la chaîne du chemin de l'emplacement de Acrobat qui pose problème. Le chemin étant correct!

J'utilise l'unité Ole2 et ComObj dans le Uses.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
procedure TFormCreatEtoiles.Button1Click(Sender: TObject);
var VarPDF,LoadApp : OLEvariant;
begin
  // Ouvrir PDF
  Try
    LoadApp := CreateOleObject('C:\Program Files\Adobe\Acrobat DC\Acrobat.exe');
  Except
    On E : exception do
    Begin
      ShowMessage('Impossible de démarrer Acrobat'+CR+'Erreur : '+e.Message);
      Exit;
    end;
  End;
 
  Try
    VarPDF.Initialize;
    VarPDF.Open(RepRes + 'C:\Notice_Création_ Catalogue_étoiles.pdf');
  Except
    On E : exception do
    Begin
      ShowMessage('Impossible ouvrir document'+CR+'Erreur : '+e.Message);
      Exit;
    end;
  end;
 
  Try
    VarPDF.application.Visible := True;
  Except
    On E : exception do
    Begin
      ShowMessage('Impossible afficher le fichier PDF'+CR+'Erreur : '+e.Message);
      Exit;
    End;
  end;
 
end;

Merci pour vos éclaircissements!

[Andnotor]

CreateOleObject ne demande pas le chemin d'un exécutable mais le nom d'un serveur automation.

Si je me réfère à ce lien, le serveur Accorbat se nomme AcroExch.App.

[Jlmat]

CreateOleObject ne demande pas le chemin d'un exécutable mais le nom d'un serveur automation.

Si je me réfère à ce lien, le serveur Accorbat se nomme AcroExch.App.

Ha merci Andnotor, je vais étudié la doc de Acrobat que tu as mise en lien, je devrais m'en sortir et reviens vous donner le bout de code...

Bonne soirée
jlmat