ADAPTER UNE IMAGE AUTOMATIQUEMENT DANS UN TWEBBROWSER

japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 4 août 2006 à 19:27
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 5 août 2006 à 04:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/38917-adapter-une-image-automatiquement-dans-un-twebbrowser

f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 35
5 août 2006 à 04:32
Ta solution est pas mal, mais le mieux pour eviter les problemes dus a certaines actions serait encore de reassigner une nouvelle taille dans le Width,Height de la balise .
pour revenir a la taille réelle, on supprime les attributs W et H ... ou on lit le W,H original de l'image.
cs_systmd Messages postés 41 Date d'inscription mercredi 25 février 2004 Statut Membre Dernière intervention 29 août 2012
5 août 2006 à 00:14
Le code MD5 est un checksum du fichier à télécharger.
Une telle fonction permet de vérifier l'intégrité d'un fichier aprés téléchargement et donc
Cela peut devenir un très bon moyen de vérifier que certains fichiers n'ont pas été infestés par un virus.(voir http://www.clubic.com/telecharger-fiche10951-md5summer.html).

Sinon vu pour le bug, chez moi je n'est que D6perso et donc pas de TwebBrowser,
je ne peut pas vérifier, maintenant.
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
4 août 2006 à 19:27
Oui, ça peut servir, et on va en fera bon usage, mais à quoi sert le code MD5 ?

Sinon, il y a un léger bug. Quand tu es en taille adaptée, que tu rafraichis avec F5 alors que le WebBrowser a le focus, l'image revient en taille réelle, mais BtnTailleReelle disparaît, et BtnAdapter reste invisible, ce qui fait qu'il n'y plus aucun bouton disponible...

J'ai corrigé le défaut ainsi :

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
BtnAdapter.visible := True;
end;
Rejoignez-nous