ADAPTER UNE IMAGE AUTOMATIQUEMENT DANS UN TWEBBROWSER

Signaler
Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
-
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
-
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

Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
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.
Messages postés
41
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
29 août 2012

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.
Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
8
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;