Tk::Photo - Data konvertieren (Base64) (gelöst) (Graphische Oberflächen)

[thread]16417[/thread]

Tk::Photo - Data konvertieren (Base64) [gelöst]

Tags: perl5 GUI Base64 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+14 replies
Kean

2011-06-15 13:42
User since
2004-08-18
463 Artikel
BenutzerIn
Ich habe folgenden Codeauschnitt:
Code (perl): (dl )

1 2 3

my $photo_data = 'R0lGODlhAQABAJEAANnZ2f///////////yH5BAEAAAAALAAAAAABAAEAAAICRAEAOw=='; my $photo = $mw->Photo(-data => $photo_data, -format => 'gif');
Gibt es ein Programm oder eine Funktion mit welcher ich aus Bilddateien solche Datenstrings und aus Datenstrings Bilddateien machen kann?

modedit Editiert von GwenDragon: Titel ergänzt, Tag hinzu
Last edited: 2011-06-15 16:13:38 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2011-06-15 13:59
  User since
  2005-01-17
  14759 Artikel
  Admin1
  Geht es um Tk::Photo wie in TkPhotoAusImageDaten beschrieben?
  
  Die Bilddaten sind mit der Kodierung Base64 erzeugt.
  
  Ginge so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  use MIME::Base64 qw/encode_base64 decode_base64/; # Bilddatei einlesen open (my $fh, $file_name) or die $!; binmode $fh; local ($/) = undef; # slurp # als Base64-kodiert in Variable speichern my $image_base64_data = encode_base64(<$fh>); close($fh) or die $!; # Base64-Daten als Bild speichern $image_base64_data = 'R0lGODlhAQABAJEAANnZ2f///////////yH5BAEAAAAALAAAAAABAAEAAAICRAEAOw=='; open (my $fh, ">", $file_name) or die $!; binmode $fh; print $fh decode_base64($image_base64_data); close($fh) or die $!;
  
  Editiert von GwenDragon: Daten vergessen
  Last edited: 2011-06-15 14:15:38 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Kean
    
    2011-06-15 14:02
    
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Nicht ganz. Damit kann ich ja "nur" ein Bild als String als Tk::Photo anzeigen.
    
    Ich würde gerne bestehende Bilder als String in meinem Programm speichern und diese (oder andere) wieder als Bild auf der Festplatte speichern.
- +11 replies
- topeg
  
  2011-06-15 14:10
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Also der String sieht mir nach Base64 Kodiert aus.
  
  so kann man das handhaben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
  
  #!/usr/bin/perl use strict; use warnings; use Image::Magick; use MIME::Base64; # Create test Image my $img = Image::Magick->new(); $img->Set(size=>'20x20'); $img->ReadImage('xc:white'); $img->Annotate( text => '?', family => 'Arial', stroke => 'black', pointsize => 20, x => 4, y => 17 ); # serialize Image als base64 coded GIF my $data=encode_base64($img->ImageToBlob(magick => 'gif')); # test print print $data; # read Image from string my $img2=Image::Magick->new(); $img2->BlobToImage(decode_base64($data)); #test output $img2->Display();
  - +10 replies
  - Kean
    
    2011-06-15 14:30
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    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?
    - Kean
      
      2011-06-15 15:14
      
      User since
      2004-08-18
      463 Artikel
      BenutzerIn
      
      Das umwandeln des Teststrings (er ist nicht von mir) in eine Datei funktioniert aber ich bekomme aus einer GIF Datei keinen solchen string...
      
      Wenn ich mein Beispiel nehme und den $image_data String in eine Datei ausgebe, kommt zwar etwas heraus, aber diesen String kann ich nicht in mein Script einfügen und wieder laden.
    - +8 replies
    - topeg
      
      2011-06-15 15:44
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Schaust du dir auch an was du da erzeugst? Du hast das dekodieren vergessen:
      my $image = $mw->Photo(-data => decode_base64($image_data), -format => 'gif');
      
      Mir scheint du kommst mit der Base64 Kodierung durcheinander.
      Was nach einem "encode" heraus kommt ist ein "Text"-String der nur lesbare Zeichen enthält. Nach einem decode hast du wieder einen binären String. Der "Text"-String kann nicht direkt in ein Bild gewandelt werden.
      
      Wenn du eine Bilddatei speicherst hast du einen binären String, wenn du ihn in deinen Code als Textstring einbinden willst musst du ihn erst enkodieren und dann beim lesen durch die Bibliothek wider dekodieren. Bibliotheken, die Bilder verarbeiten können kommen mit base64 Kodierten Strings nicht klar, die brauchen den binären String. Und sie speichern auch immer nur einen binären String.
      - +7 replies
      - Kean
        
        2011-06-15 16:22
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Wenn "encode" einen Text-String zurückliefert, wäre mein erster Teil (Ein Bild in einen String umwandeln geht so) ja richtig.
        
        Genau dies funktioniert aber nicht. Ich kann den String nicht verwenden. Wenn ich ihn in eine Textdatei schreibe und dann in mein Script kopiere kommt die Meldung
        
        Code: (dl )
        
        couldn't recognize image data at C:/Perl/site/lib/Tk/Image.pm line 21.
        
        Der zweite Teil (Und ein String in eine Datei umwandeln so) funktioniert. Ohne decode.
        
        +6 replies
        
        topeg
        
        2011-06-15 16:47
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        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?
        
        +5 replies
        
        Kean
        
        2011-06-15 17:02
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        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.
        
        +3 replies
        
        pq
        
        2011-06-15 17:13
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        du hast ja auch das decode_base64 vergessen...
        my $image = $mw->Photo(-data => decode_base64($image_data), -format => 'gif');
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        Kean
        
        2011-06-15 17:39
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Funktioniert auch nicht mit decode_base64.
        
        Der erste Teil welcher $image_data als gif auf die festplatte schreibt funktioniert ja. Das GIF lässt sich öffnen und sieht auch so aus wie es aussehen soll.
        
        Nur der zweite Teil, welcher diese Datei wieder einliest und dann zurück in den $image_data wandeln soll funktioniert nicht.
        
        topeg
        
        2011-06-15 18:02
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Tk scheint nur mit base64 kodierten Strings umgehen zu können. Da ist das fehlende "decode" schon richtig.
        
        topeg
        
        2011-06-15 18:11
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Der Doku zufolge soll man es so machen $image_new->data(-format => 'gif') um ein String zu bekommen der Base64 kodiert das GIF-Bild enthält. Aber das funktioniert bei mir nicht. Das Format "gif" wird nicht erkannt.
        
        Ein funktionierendes Würg-Around ist:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
        
        #!/usr/bin/perl use strict; use warnings; use Tk; use MIME::Base64; use Image::Magick; my $mw = MainWindow->new(); #my $image_data = 'R0lGODlhBgAGAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAGAAYAAAINjA0HAEdwLCwMKIQfBQA7'; my $image_data = 'R0lGODlhBgAGAPABAAAAAP///yH5BAEAAAEALAAAAAAGAAYAAAIJhB0Xq+y5YGQFADs='; print $image_data."\n"; my $image = $mw->Photo(-data => $image_data, -format => 'gif'); $image->write('test.gif', -format => 'gif'); my $image_new = $mw->Photo( -file => 'test.gif', -format => 'gif' ); my $img=Image::Magick->new(); $img->BlobToImage($image_new->data(-format => 'XPM')); #$img->Set(magick => 'gif'); #$img->Write('test2.gif'); my $image_data_new = encode_base64($img->ImageToBlob(magick => 'gif')); print $image_data_new; exit;
        
        Die Strings unterscheiden sich, da bei der Umwandlung von GIF nach XPM die Kommentare verloren gehen. Benutzt man ein GIF ohne Info-Block sind die beiden Strings identisch.

View all threads created 2011-06-15 13:42.