1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Réseau & Internet
  5. Adapter une image automatiquement dans un twebbrowser

Adapter une image automatiquement dans un twebbrowser

Soyez le premier à donner votre avis sur cette source.

Vue 6 179 fois - Téléchargée 736 fois

Télécharger le projet
Commenter

Description

Petit exemple qui montre comment adapter une image au format de votre WebBrowser

Conclusion :


Faite en bon usage
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 37
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;
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.