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.
