L'auteur Christophe Chenavier France Membre Simple # 0000000023 enregistré le 14/10/2004 http://www.corwin.fr 57 ans CHENAVIER Christophe 80440 BOVES de la société Corwin Fiche personnelle
Permet d'inclure les images dans la page Html [ format Archive Web (.mht) d'Internet Explorer] et de l'afficher avec IE. Cela simplifie l'export ou l'archivage car il n'y a plus à se soucier de fournir les images avec la page Html.
Note : Si le lien sur l'image dans la page HTML ne mentionne que son nom et pas son chemin, alors le module recherchera directement l'image dans le projet.
Code source :
*!* Objet : Connversion HTML en MHT *!* Auteur : C.Chenavier *!* Version : 1.00 - 18/04/2005 *!* *!* oMHtml = CREATEOBJECT("MHTML", cSourceHtml) *!* oMHtml.Value contient alors la page complète avec ses images.
a voir aussi la contribution de mike : http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000041
le 08/06/2008, ybenam a écrit : J'arrive bien en retard il est vrai,mais voici une solution semi automatique avec Automation IExplore: //////////////////////////////////////////////////// xURL="http://www.atoutfox.org/" _screen.visible=.f. apIE=createObject('internetexplorer.application') apIE.navigate(xURL) apIE.visible=.f.
do while apIE.busy or apIE.readystate#4 enddo inkey(1) apIE.execWB(4,0) &&boite de dialogue avec tous les choix possibles yc MHT _screen.visible=.t. /////////////////////////////////////////////////////
Les commandes 'save(file,format)' directes n'existent pas chez IE ,à l'instar de word,excel,powerpoint,....Les seules commandes IE, si je ne me trompe,sont 'execWb' et 'execCommand' qui ouvrent des boites de dialogues 'SAVEAS',enregistrer sous !
Les collections n'existeront malheureusement jamais sous VFP6.0 !
le 13/11/2008, Olivier Hamou a écrit : Salut Christophe,
Aurais tu réparé des bugs dans ta routine, car je n'arrive pas à afficher des images?
N'aurais tu pas oublié le content-id pour les images ?
Bravo Christophe,
solution avec vfp !
en complément :
autre solution avec CDO :
v_adresse_fichier_page_html = "file://c:\temp\test.html"
v_fichier_mhtml = "c:\temp\test.mhtml"
IF FILE(v_fichier_mhtml)
ERASE (v_fichier_mhtml)
ENDIF
oCdo = Createobject("CDO.Message")
oCdo.CreateMHTMLBody(v_adresse_fichier_page_html)
oStream = oCdo.getstream()
oStream.SaveToFile(v_fichier_mhtml,1)
oStream=null
Ocdo=Null
a voir aussi la contribution de mike :
http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000041