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

Kean
 2011-06-15 14:30
#149627 #149627
User since
2004-08-18
463 articles
BenutzerIn

user image
Okay ich komme dem Ziel immer näher.

Ein Bild in einen String umwandeln geht so:
Code (perl): (dl )
1
2
my $image = $mw->Photo( -file => 'test.gif' );
my $image_data = encode_base64($image->data());


Und ein String in eine Datei umwandeln so:
Code (perl): (dl )
1
2
3
my $image_data = 'R0lGODlhBgAGAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAGAAYAAAINjA0HAEdwLCwMKIQfBQA7';
my $image = $mw->Photo(-data => $image_data, -format => 'gif');
$image->write('test.gif', -format => 'gif');


Was mich jetzt aber noch etwas beschäftigt, ist die Frage warum mein Teststring (welchen ich nicht selbst erzeugt habe) so kurz ist.
Wenn ich diesen String in eine Datei schreibe und ohne zu ändern wieder einlese, ist er viel länger und sieht anderst aus.

Gibt es noch eine andere Möglichkeit einen String zu codieren wie Base64?

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