Bonjour,
Je souhaiterai ouvrir un document pdf dans un form, chose à peut près fait, seulement un problème ce pose à moi, voila la fonction simple que j'ai fais
Le problème que je rencontre ce situ au niveau du chemin, 'adr_doc_database' est dans le même répertoire que l'exe et il ne veut pas s'ouvrir comme ça, par contre si je lui donne un chemin entier ça fonctionne, sachant que l'exe sera mise sur un CD racine est amené à changer.
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 procedure open_pdf (applic:integer); var s:string; begin GetDir(0,s); case applic of 0: form7.Acropdf1.src:=''; 2: form7.Acropdf1.src:=s+adr_doc_Mysql; 6: form7.Acropdf1.src:=s+adr_doc_ixxat; 11:form7.Acropdf1.src:=s+adr_doc_database; end; form7.Acropdf1.setLayoutMode('SinglePage'); form7.Show; end;
Partager