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

Kean
 2011-06-15 17:02
#149633 #149633
User since
2004-08-18
463 articles
BenutzerIn

user image
Dein Beispiel funktioniert. Du schreibst das Bild aber auch nicht auf die Festplatte.

Hier ein Beispiel bei dem unterschiedlicher Code herauskommt:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use Tk;
use MIME::Base64;

my $mw = MainWindow->new();

my $image_data = 'R0lGODlhBgAGAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAGAAYAAAINjA0HAEdwLCwMKIQfBQA7';
my $image = $mw->Photo(-data => $image_data, -format => 'gif');
$image->write('test.gif', -format => 'gif');
print $image_data."\n";

my $image_new = $mw->Photo( -file => 'test.gif', -format => 'gif' );
my $image_data_new = encode_base64($image_new->data());
print $image_data_new;

exit;


Ich will eigentlich nur aus dem gespeicherten test.gif wieder genau den gleichen String machen wie er mit $image_data erzeugt wird.

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