[Résolu] Ouverture fichier PDF ou CHM dans FORM Panoramic

Bonjour à tous !

Je précise bien dans un FORM Panoramic car sinon je connais le principe :
EXECUTE_WAIT "C:\le_nom_de_mon_fichier.pdf"

Mais là, je veux le charger comme une page HTML dans l'objet HVIEWER par exemple.
C'est ce que j'ai essayé de faire avec HVIEWER mais sans résultat. D ailleurs je m'en douté un peu... Crying or Very sad

Etant donné qu'il s'agit de plugin intégré au navigateur. D’où ma question suivante...
Pensez vous qu'il soit possible d'une manière ou d'une autre d'intégrer ce plugin sur Panoramic ?

A vos claviers les amis et merci d'avance pour vos réponses... drunken

Dommage que Klaus soit en vacances (enfin j'imagine...).

As tu essayé de charger une page avec un viewer pdf ?
scratch

Hummm, non ! Mais ça c'est une idée...

Je vais chercher. Merci Yannick. Wink

Après coup j' ai essayé avec une page du Mag que j'ai sur mon pc
et cela ne fonctionne pas avec le HViewer de Panoramic.
Il faudrait voir avec l' objet de KGF.

Embarassed

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Je ne vois pas comment on pourrait afficher un pdf dans un Hviewer, le format est complètement différent du Html.
Il faudrait d'abord le convertir en html, mais là, ça me paraît bien compliqué, sans perdre de données.
Le format html est assez simple à comprendre, avec ses balises, quant au format pdf ça me paraît d'une complexité inouïe...

PS
En farfouillant un peu, j'ai retrouvé dans mes archives un module (freeware) qui s'appelle
pdftohtml.exe qui fait justement la conversion, pour affichage ensuite dans un Hviewer.
Et utilisable en ligne de commande, donc depuis un Execute_Wait de Panoramic.
Je ne l'ai pas vraiment testé, il y a une vingtaine d'options, ça peut être intéressant.
A télécharger ici:
https://sourceforge.net/projects/pdftohtml/

Pour ce que ça vaut...

bonjour et merci a tous les 2 d'être intervenu ! cheers

JL35, je viens tout juste de voir ton message.
Je te remercie, je vais regarder pdftohtml.exe car il peut avoir une certaine utilité...
Par contre il ne répondra pas à ma demande mais ce n'ai pas grave.

Citation :: Je ne vois pas comment on pourrait afficher un pdf dans un Hviewer, le format est complètement différent du Html.

Oui je sais bien mais des fois sur un malentendu... Laughing

Je procéderai autrement. T'inquiètes pas. Wink

Bonne journée et encore merci.

JL35 a raison, le format est complètement différent du Html. C'est comme si tu voulais visionner une image avec un logiciel de lecture mp3 affraid

Sinon, tu peux toujours attacher un fichier PDF ou CHM dans un FORM Panoramic:

Code:: dim hnd_enfant%,hndparent%

hndparent%=handle(0)

' execute "notepad" : pause 100 : hnd_enfant%=handle_form("Sans titre - Bloc-notes")
form 20 : caption 20,"Déplacez moi!" : hnd_enfant%=handle(20)

ATTACH(hnd_enfant%,hndparent%)

END
'
sub ATTACH(hnd_enfant%,hndparent%)
   dim_local attach_res%
   dll_on "user32"
   attach_res% = DLL_call2("SetParent",hnd_enfant%,hndparent%)
   dll_off
end_sub

Le même résultat peut être obtenu avec la dll KGF

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Bonjour silverman,

Intéressante ta suggestion, avec une dll standard (user32.dll), mais j'ai raté un épisode, je ne vois pas du tout où et comment avec ceci on peut visualiser un pdf dans un Form Panoramic... scratch

Bonjour Silverman !

Merci pour cette idée lumineuse. sunny

J'arrive a le faire avec la Calculatrice mais pas avec le Bloc-notes.
J'ai essayé aussi avec Adobe Reader mais sans résultat non plus pour le moment... Suspect

Je ne comprends pas pourquoi. J'ai bien vérifié les noms dans les processus mais rien n'y fait ! pale

@JL35
En fait, j'essaye de répondre à la demande de Minibug : "Ouverture d'un fichier PDF ou CHM dans un FORM Panoramic". Et comme il a créé un système de fenêtre intégré à PanExpress, je me suis dit qu'il voulait peut-être intégrer un viewer PDF/CHM dans le form de PanExpress également...
Là, c'est un test avec Notepad, reste à ouvrir un document dedans en ajoutant des paramètres optionnels à la commande "execute"

@Minibug
Autre code:

Code:: dim hnd_enfant%,hnd_parent%

hnd_parent%=handle(0)
hnd_enfant%=HANDLE_EXECUTE%("notepad")

ATTACH(hnd_enfant%,hnd_parent%)

END
'
sub ATTACH(hnd_enfant%,hndparent%)
   dim_local attach_res%
   dll_on "user32"
   if (hnd_enfant%>0) and (hndparent%>0) then attach_res% = DLL_call2("SetParent",hnd_enfant%,hndparent%)
   dll_off
end_sub

fnc HANDLE_EXECUTE%(file_to_execute$)
   dim_local HANDLE_EXECUTE_parent%,HANDLE_EXECUTE_enfant%,HANDLE_EXECUTE_cpt
   '
   dll_on "user32"
   HANDLE_EXECUTE_parent%=dll_call0("GetForegroundWindow")
   execute file_to_execute$
' HANDLE_EXECUTE_cpt=0
   repeat
' HANDLE_EXECUTE_cpt=HANDLE_EXECUTE_cpt+1
' if HANDLE_EXECUTE_cpt>255 :' 255 essais avant d'abandonner
   if scancode=27
   message "Handle pas trouvé : "+file_to_execute$
   exit_repeat
   end_if
   HANDLE_EXECUTE_enfant%=dll_call0("GetForegroundWindow")
   until HANDLE_EXECUTE_enfant%<>HANDLE_EXECUTE_parent%
   dll_off
   '
   result HANDLE_EXECUTE_enfant%
' caption 0,str$(HANDLE_EXECUTE_cpt)
end_fnc

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Merci silverman pour les précisions, comme ça effectivement je comprends mieux le but de la manoeuvre.

Bonsoir les amis ! cheers

Citation :: En fait, j'essaye de répondre à la demande de Minibug : "Ouverture d'un fichier PDF ou CHM dans un FORM Panoramic". Et comme il a créé un système de fenêtre intégré à PanExpress, je me suis dit qu'il voulait peut-être intégrer un viewer PDF/CHM dans le form de PanExpress également...

Tu as tout juste Silverman... Laughing

Je te remercie pour ton code. C'est tout à fait ce que je cherche.
Concernant l'ouverture du document voila ce que ça donne en allant au plus simple :

Code:: DIM res% , hp% , he%

DLL_ON "user32"
hp%=DLL_CALL0("GetForegroundWindow")
EXECUTE "D:\BASIC\PanExpress\sys\aide\Aide_PE.chm" : PAUSE 100
he%=DLL_CALL0("GetForegroundWindow")
res%=DLL_CALL2("SetParent",he%,hp%)

END

et voila le résultat :

[Résolu] Ouverture fichier PDF ou CHM dans FORM Panoramic Sans_t76

Reste maintenant à voir comment afficher la fenêtre du CHM 'sans bordure' et en 'full screen'.
Encore merci pour votre aide les gars ! Wink

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Juste une remarque: pour afficher un PDF en panoramic, on peut aussi préalablement le convertir en images à afficher dans un picture.
C'est facile à faire avec IrfanView qui renvoie une image par page du pdf.
Mais bon, c'est une ressource externe...

En fullscreen, je sais pas faire, et sans bordure, c'est pas possible en panoramic, car les commandes de dll n'acceptent que 6 paramètres, alors qu'il en faut 7 pour enlever la barre de titre et la bordure. Peut-être du côté de KGF...

@JL35 : pour un PDF peut être... mais pour un CHM avec ses liens, là c'est autre chose... affraid

@Silverman : Oui je sais, il faut que je fouille dans KGF... drunken

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Bien sûr Minibug, t'as raison, je ne parlais que pour les pdf...

Salut tout le monde.
Voici un script VBS pour afficher un fichier .PDF.
Il ne répond pas à la question posée par Minibug, mais ça pourrait peut-être servir à quelqu’un.
REM :
1/ vous devez modifier (adapter) la ligne 13

Code:: ShellCmd = """C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"" " & inFile ' Il faut modifier en fonction de la version et de l'emplacement du programme

Pour indiquer l’emplacement exact de AcroRd32.exe

2/ En exécutant le code, ce dernier vous demande d’entrer le nom du fichier PDF à afficher.
Vous avez le droit d’Annuler ou de taper le nom complet du fichier.
Si le fichier indiqué existe, il sera ouvert ; sinon un message vous indiquera ’not found’

Voici le script

Code:: strFile=InputBox("Taper le nom du fichier pdf à ouvrir (avec son chemin complet)","Ouvrir un fichier","*.pdf")
if strFile="" then Wscript.quit 0
Set fso=CreateObject("Scripting.FileSystemObject")
on error resume next
Set infile = fso.GetFile(strFile)
if not fso.FileExists(inFile) then
   wscript.echo "File '" & strFile & "' not found"
   wscript.quit
else
   wscript.echo "Opening file " & strFile
end if
on error goto 0
ShellCmd = """C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"" " & inFile ' Il faut modifier en fonction de la version et de l'emplacement du programme
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run(ShellCmd, 1, true)
wscript.quit

Enregistrez ce script sous Afficher_PDF.vbs ou autre nom de votre choix, mais avec .vbs comme extension.

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Pas mal, papydall :

Et moi j'ai trouvé un truc intéressant (au moins pour moi !): comment décompiler un fichier CHM en élément HTM, sans ressource externe !
Et on peut ensuite afficher les éléments dans un HVIEWER.

Voir dans 'Vos sources...'

Merci pour ton partage Papydall ! cheers

Et en Panoramic on peut faire ceci : EXECUTE "chemin_complet\fichier.pdf"
et ça fonctionne parfaitement. Je viens de tester. Laughing

@JL35 : Je vais maintenant tester ton 'décompileur' de CHM... drunken

Je glisse ici le lien vers le 'décompilateur' de CHM.

Edit : Le test du 'décompileur' de CHM est Ok pour moi et répond parfaitement à mon attente.
Même si ça ne corresponds pas tout à fait à la demande de départ, je vais quand même indiquer le fil comme RESOLU.
Car au bout du compte on a la possibilité de convertir un fichier CHM en HTLM,
et de l'afficher avec ses liens dans un form Panoramic avec un HVIEWER.

Et ça c'était le but de ma demande ! Encore merci à tous pour vos idées, astuces, codes, etc.

il y a bien une autre solution...
Créer son propre éditeur de pages d'aide au format *.html.

C'est bon, n' en jetez plus, je sors...
Laughing

Super Yannick !

Tu as trouvé une idée de développement pour les semaines à venir !
Bon courage... drunken

Des semaines, tu plaisantes, des années !...
Laughing

Pas évident d'en faire un qui convienne à tous.
Mais chacun peu formater ses propres pages.

heu...tu as help & doc qui est capable de ca aussi.
Enfin, il me semble.

» [RESOLU] Fichier en ACCES REFUSE dans Windows
» Ajout d'un nouveau type d'objet dans une form Panoramic !
» Windows Defender détecte un trojan dans Panoramic (résolu)
» [BDR] Fichier ciblé à l'ouverture
» Comment reconvertir un fichier exe Panoramic en fichier BAS