Discussion :

[tourlourou]

Bonjour,

J'utilise un TWebBrowser (W10 - D11 CE) pour piloter un site, et je voudrais faire une miniature de la page qui ne s'affiche pas en entier dans ma Form.

Je n'ai pas trouvé le moyen de réduire la taille d'affichage du WebBrowser (mais suis prêt à prendre toute solution).

j'ai utilisé ce code de LadyWasky, mais sans résultat (j'obtiens un Bitmap vide). Je n'ai pas encore eu le temps d'essayer de cerner le problème, aussi toute aide serait bienvenue !

[Jipété]

Salut, Y.

je propose de séparer les tâches :

1. d'abord un affichage correct du texte
2. et ensuite la copie de l'écran affiché.

Alors pour le premier point, tu te doutes bien que si tu réduis la largeur de l'objet "Afficheur", tu vas te retrouver soit avec des ascenseurs, soit avec une taille de texte plus petite, soit ni l'un ni l'autre mais avec des retours à la ligne automatiques qui vont allonger le "papier" de la page.
Déjà faut gérer ce point.
Lecture : https://superuser.com/questions/1786...h-of-a-webpage

Ensuite, pour la copie de l'écran elle-même, commence par enregistrer le bitmap que tu auras généré, histoire de vérifier qu'il est bon.
Lecture : https://stackoverflow.com/questions/...t-width-height au milieu, le post à 4 points, "The final screenshot method:"

HTH (c'est pas trop ma tasse de thé).

[tourlourou]

Bonjour J-P !

J'avais un petit oubli à la création du Bitmap (omission de fixer le PixelFormat).

Avec, j'obtiens bien une image, qu'il me reste à ajuster en dimensions.

Reste un problème : le code que j'utilise est censé reproduire l'intégralité de la page, que le Browser soit visible ou pas mais je n'obtiens que la portion qui serait visible à l'écran...

Encore un peu de débogage en perspective !

[Andnotor]

Modifie temporairement la hauteur du WebBrowser.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Doc := WebBrowser1.Document as IHTMLDocument2;
WebBrowser1.Height := (Doc.Body as IHTMLElement2).ScrollHeight;

[tourlourou]

Merci Andnotor, j'imaginais que la limitation pouvait se situer dans cette direction, restait à la trouver !
Après test : WebBrowser1.Height := WebBrowser1.OleObject.Document.Body.ScrollHeight;