Thread Tk::Photo - Data konvertieren (Base64) (13 answers)
Opened by Kean at 2011-06-15 13:42

topeg
 2011-06-15 16:47
#149632 #149632
User since
2006-07-10
2611 articles
BenutzerIn

user image
Du machst irgend etwas falsch.

Bei mir funktioniert es:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
use Image::Magick;
use MIME::Base64;

my $data_in='R0lGODlhAQABAJEAANnZ2f///////////yH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==';

my $img=Image::Magick->new();
$img->BlobToImage(decode_base64($data_in));
my $data_out=encode_base64($img->ImageToBlob(magick => 'gif'));

print "IN : $data_in\n";
print "OUT: $data_out\n";
Ein und Ausgabe sind identisch.

bist du sicher dass bei $image->data() auch wirklich ein GIF raus kommt? Ich würde so was erwarten $image->data(-format => 'gif')

Hast du ein minimales Beispiel bei dem es nicht funktioniert?

View full thread Tk::Photo - Data konvertieren (Base64)