Afficher/télécharger une image provenant du Web (LWP et Tk)

Afficher/télécharger une image provenant du Web (LWP et Tk) - Perl - Programmation

Marsh Posté le 18-09-2006 à 21:08:02    

J'utilise Tk pour l'interface graphique. Je bute dans mon script. En fait je dois afficher une image GIF provenant du net. Le morceau de script incriminé est ci-dessous.
 

# Créer la zone d'image
$req = HTTP::Request->new(GET => $adresse);
$res = $ua->request($req);
die $res->status_line if not $res->is_success;
my $image = $fenetre->Photo(-data => $res->decoded_content, -format => 'GIF') ;
my $label = $fenetre->Label(
               -relief => 'sunken',
               -borderwidth => 2,
               -image => $image
            );
$label->pack();


 
Quand $adresse est par exemple http://eur.i1.yimg.com/eur.yimg.com/i/fr/hp/fr2lo1.gif Windows m'affiche une erreur système. Et quand je veux afficher ma vraie image (un emploi du temps [ GIF de 13 ko environ ]) ça me dit

Fail to create pixmap with Tk_GetPixmap in ImgPhotoInstanceSetSize.
 
 
This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.


J'ai vérifié le $res->content_type et c'est bien un image/gif dans tous les cas. Par contre quand j'écris le $res->decoded_content dans un fichier ça ne fait pas la même taille que l'image d'origine. Ca fait 10 ko pile contre 12.8 ko pour l'image originale.

Reply

Marsh Posté le 18-09-2006 à 21:08:02   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed