Le portail francophone de la géomatique

Bonjour

Une recherche sur les Hotlink va certainement vous donnez un coup de main.

Daniel

Bon...je me suis trompé en suivant la piste du hotlink
Ce que vous voulez c'est que à un moment du programme, l'utilisateur clique sur un objet et qu'un pdf s'ouvre
Deux voies:
- soit on munit avant la table des ouvrages d'une colonne hotlink (c'est ma première réponse) ET on donne la main à l'utilisateur pour qu'il clique avec le pointeur hotlink (l'éclair jaune) sur un des ouvrages
- soit on ne prépare rien dans la table ouvrage et on donne la main à l'utilisateur pour qu'il clique avec un pointeur quelconque (flêche noire, croix...) sur un ouvrage. Il faut alors récupérer le X,Y du clic utilisateur, déterminer quel ouvrage correspond, extraire son nom "id_ouvrage" et lancer une commande genre: Run Program "AcroRd32.exe chemin/id_ouvrage.pdf"....commande qui devra être interprétée car elle mélange constantes, variables et guillemets et s'écrire:
cmd="Run Program "+chr$(34)+"AcroRd32.exe C:\steve\"+id_ouvrage+".pdf"+chr$(34)
Run Command cmd

Existe t'il une manière de faire ouvrir le pdf sans avoir à spécifier le chemin complet d'Adobe? L'application mapBasic auras à s'éxecuter sur de nombreux poste et je ne peut garantir que le chemin d'accès seras le même partout...

Edit : Peut-être un indice de piste : Peut-on utiliser le shellExecute comme en vb?

Dernière modification par Acibi (Wed 07 January 2009 15:50)

Merci du suivi
Si tous les postes ont Acrobat Reader, bien installé et associé à l'extension pdf, on peu peut être se contenter de
sCmd = "Run Program "+chr$(34)+"AcroRd32.exe  "+ApplicationDirectory$()+"doc\manuelUtilisateur.pdf"+ chr$(34)
run Command sCmd
Voire même de Run Program "AcroRd32.exe  manuelUtilisateur.pdf", le pdf en question étant alors au même endroit que le mbx (c'est là que la recherche aura, a priori, lieu en premier par défaut)
A tester...

Bon,

Je croit avoir trouver la solution!

Effectivement la réponse était du coté de ShellExecute dans le shell32.dll

Donc il faut d'abors déclarer la fonction ShellExecute :

(Dans mon .def)
DECLARE FUNCTION ShellExecute
    Lib "shell32.dll" Alias "ShellExecuteA"(
    ByVal hwnd as Integer,
    ByVal lpOperation as String,
    ByVal lpFile as String,
    ByVal lpParameters as String,
    ByVal lpDirectory as String,
    ByVal nShowCmd as integer)
as Integer


Ensuite pour l'utiliser :

SUB OuvreManuel()
    DIM sHelpFile as String
    DIM nResult as Integer

    sHelpFile = ApplicationDirectory$() + "doc\manuelUtilisateur.pdf"
    nResult = ShellExecute(0,"open",sHelpFile,"","",1)
END SUB


J'ai finalement trouver la documentation sur le site de Microsoft

Le code peut être utilisé pour ouvrir tout types de fichier et windows se chargeras de l'ouvrir avec l'application par défault. Je crois que c'est la méthode la plus clean et la plus portable!

Bonne Journée!

Bonjour à tous,
Travaillant sous Mapbasic, je développe une appli permettant à l'utilisateur d'insérer, via une nouvelle fenetre, des photographies géoréférencées. J'ai donc pensé à utiliser la fonction Hotlink mais je n'y arrive pas.

Merci de votre réponse,

Bonne journée