PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Afficher une image JPEG présente sur Internet ?
Afficher une image JPEG présente sur Internet ?
Débuté par djacques, 04 nov. 2005 15:29 - 2 réponses
#1
Posté le 04 novembre 2005 - 15:29
Bonjour,

Je souhaite pouvoir, sur un clic de bouton, ouvrir une fenêtre contenant une
image présente sur Internet (ex:

) dont la
taille dépendra de la taille de cette image.

J'ai essayé plusieurs solutions, mais je n'y arrive pas :-(

Pouvez vous m'aider ?

--
D'avance merci,

Dominique JACQUES
#2
Posté le 04 novembre 2005 - 17:00
Salut

// Définition des variables
ResAppel est un booléen
IdFichier est un entier

// Ouverture du fichier "C:\MesImages\Images.GIF"
IdFichier = fOuvre ( "C:\MesImages\Images.GIF" , foCréation )
SI IdFichier <> - 1 ALORS
// Récupération de l'image
ResAppel = HTTPRequête ( "

" )
SI ResAppel = Vrai ALORS
// Enregistrement de l'image récupérée dans le fichier
fEcrit ( IdFichier, HTTPDonneRésultat(), Taille ( HTTPDonneRésultat())
FIN
// Fermeture du fichier
fFerme ( IdFichier )
FIN

TONCHAMPSIMAGE..Image = "C:\MesImages\Images.GIF"

bye TontonPolak
#3
Posté le 05 novembre 2005 - 09:23
Merci pour cette réponse...

Mais n'y a t'il pas une solution sans copier le fichier graphique sur le
disque local ?

Je ne veux que visualiser une image, pas la copier.

D'avance merci,
Dominique JACQUES

--
Cordialement,

Dominique JACQUES
"TontonPolak" <xxx@xxx.com> a écrit dans le message de news:
436b7f74$1@news.pcsoft.fr...

Salut

// Définition des variables
ResAppel est un booléen
IdFichier est un entier

// Ouverture du fichier "C:\MesImages\Images.GIF"
IdFichier = fOuvre ( "C:\MesImages\Images.GIF" , foCréation )
SI IdFichier <> - 1 ALORS
// Récupération de l'image
ResAppel = HTTPRequête (
"

" )
SI ResAppel = Vrai ALORS
// Enregistrement de l'image récupérée dans le fichier
fEcrit ( IdFichier, HTTPDonneRésultat(), Taille (
HTTPDonneRésultat())
FIN
// Fermeture du fichier
fFerme ( IdFichier )
FIN

TONCHAMPSIMAGE..Image = "C:\MesImages\Images.GIF"

bye TontonPolak
→ Revenir à WINDEV 2024