Datenbank blob Bild in Wx::Image laden (Graphische Oberflächen)

[thread]14841[/thread]

Datenbank blob Bild in Wx::Image laden

Leser: 19

Articles: hide open all | hide show old branches

+13 replies
pope

2010-03-21 17:47
User since
2009-10-11
30 Artikel
BenutzerIn
Hi Leute,
ich versuch gerade ein in einer Datenbank abgespeichertes Bild an Wx::Image zu übergeben.
Leider funktioniert das nicht so leicht wie gedacht:
Code: (dl )

1 2 3 4 5 6 7

# Hier kommt ein zuvor im binmode eingelesenes Bild aus # der Datenbank my $Image = $DB->SelectImage( 1 ); my WImage = Wx::Image->new( ); WImage->LoadStreamType( $Image, wxBITMAP_TYPE_JPEG );
An dieser Stelle bringt er mir folgenden Fehler
JPEG: Couldn't load - file is probably corrupted
Not a JPEG file: starts with 0xff 0xd9

Das Bild ist auf jedenfall (auch in der Datenbank) korrekt und beginnt mit FF D8, wie es sich für ein JPEG gehört

Normalerweise müsste bei dieser Funktion aber auch ein WxStream übergeben werden, sowas scheint es in wxPerl aber nicht zu geben...
Das einzige was ich gesehen hab ist Wx::Stream::TIEHANDLE. Darüber hab ich aber weder irgendwas dokumentiertes gesehen, noch weiß ich wie das funktionieren soll. ( Das einzige ist: USAGE: Wx::Stream::TIEHANDLE( package, var ) )

Falls hier jemand noch eine andere Idee hat, wie ich das Bild aus der Datenbank zu Wx bekomme bin ich natürlich auch aufgeschlossen.

Datenbank ist übrigens sqlite, aber daran kann es eigentlich nicht liegen. Das Bild kann ich korrekt wieder als File abspeichern.
- +12 replies
- lichtkind
  
  2010-03-21 18:00
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  Auch die variable WImage sollte mit $ beginnen :).
  schau vielleicht mal zur methode SetData oder du benutzt loadfile übern memoryhandler. aber einfachstes wäre wohl beim erstellen des image gleich die daten mit typ zu übergeben.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +11 replies
  - pope
    
    2010-03-21 18:21
    User since
    2009-10-11
    30 Artikel
    BenutzerIn
    
    Die Variablen beginnen bei mir alle ordentlich, ich hab den Code hier nur nich Copy/Pasted, sondern per Hand geschrieben. Es hätte länger gedauert die ganzen auskommentierten Codezeilen auszusortieren ;)
    
    Also das SetData gibt mir bei folgenden Code ein
    
    Code: (dl )
    
    1 2 3 4 5
    
    my $IMG = $this->{DB}->SelectImage( ); my $Image = Wx::Image->new( ); $Image->SetData( $IMG )
    
    Free to wrong pool 5e7ed0 not 6d38992e at ...
    
    Muss ich den erst noch irgendwie explizit Speicher zuweisen? Z.B. mit nem leeren Bild.
    
    Die Daten direkt beim erstellen zu übergeben
    
    Code: (dl )
    
    1 2 3
    
    my $IMG = $this->{DB}->SelectImage( ); my $Image = Wx::Image->new( $IMG, wxBITMAP_TYPE_JPEG );
    
    bringt mir ein Can't load image from file 'ÿØÿà': file does not exist.
    
    Da scheint er nicht den korrekten überladenen Konstruktor zu verwenden.
    
    Was meinst du mit memoryhandler? Etwa wxMemoryInputStream, das scheint es bei wxPerl auch nicht zu geben.
    - +10 replies
    - lichtkind
      
      2010-03-21 19:43
      
      User since
      2004-03-22
      5697 Artikel
      ModeratorIn + EditorIn
      
      sag bitte genau in welchem format die daten gespeichert sind, JPG?
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
      - +9 replies
      - pope
        
        2010-03-21 19:52
        
        User since
        2009-10-11
        30 Artikel
        BenutzerIn
        
        Als binärblob, aber ja das waren vorher jpgs und sollten es auch noch so in der Datenbank sein.
        
        Dieselben Fehler kommen ja nicht nur wenn ich die Bilder aus der Datenbank einlese. Wenn ich ein Bild z.B. von einer Datei in einen Skalar einlese kommen diesselben Fehler (und genau so ein Skalar ist es auch, welchen ich aus der Datenbank bekomme)
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        local($/) = undef; my $File; open $File, "<PATH"; binmode $File; my $IMG = <$File>; close $File; my $Image = Wx::Image->new( $IMG, wxBITMAP_TYPE_JPEG );
        
        +8 replies
        
        lichtkind
        
        2010-03-21 19:57
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        ich post später noch wenn ich was in meinen code gefunden hab aber such auch mal die offiziellen wx beispiele nach memoryhandle. du kanns damit daten in eine variable laden die aber wie datei ansprechen.
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        +7 replies
        
        pope
        
        2010-03-21 20:03
        
        User since
        2009-10-11
        30 Artikel
        BenutzerIn
        
        Alles klar, ich mach mich mal drüber.
        Ich dank dir soweit schonmal!
        
        EDIT:
        
        Also den MemoryFSHandler hab ich jetzt gefunden, man muss
        use Wx::FS;
        verwenden.
        
        Also manche Sachen sind hier echt Geheimwissen ;)
        
        Mal schauen ob das jetzt klappt
        Last edited: 2010-03-21 20:29:37 +0100 (CET)
        
        +6 replies
        
        pope
        
        2010-03-22 16:36
        
        User since
        2009-10-11
        30 Artikel
        BenutzerIn
        
        Also irgendwie hat das alles garnichts gebracht...
        
        Die Verwendung des Virtual FileSystem kann ich für Wx::Image nicht ordentlich anwenden, das ist nur für die HTML-Klassen gedacht.
        Ich habs sowohl mit dem MemoryFSHandler, als auch mit derm ZipFSHandler probiert.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        Wx::FileSystem::AddHandler( Wx::ZipFSHandler->new() ); my $fs = Wx::FileSystem->new(); my $d = "D:/Workspace/temp/test.zip#zip:1/"; $fs->ChangePathTo( $d, 1 ); my $name = $fs->FindFirst( "*" ); print $name; # Ausgabe: D:/Workspace/temp/test.zip#zip:1/test.jpg my $Image = Wx::Image->new( $name, wxBITMAP_TYPE_ANY ); # Nimmt er nicht, er sagt die Datei wäre nicht vorhanden # das liegt wohl daran, das der mit der Syntax des VFS nicht # zurecht kommt
        
        Die Alternative ein solches Virtuelles File zu öffnen und dann mit einem Stream darauf zu arbeiten funktioniert auch nicht. Perl stürzt aufgrund von Speicherzugriffsverletzungen ab (das steht nirgends, es sieht aber stark danach aus)
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my $fs = Wx::FileSystem->new(); my $d = "D:/Workspace/temp/test.zip#zip:1/"; $fs->ChangePathTo( $d, 1 ); my $name = $fs->FindFirst( "*" ); my $File = $fs->OpenFile( $name ); # Funktioniert, Datei ist da my $Image = Wx::Image->new( ); $Image->LoadStreamType( $File->GetStream, wxBITMAP_TYPE_ANY ) # das wars
        
        Scheißdreck aber auch :(
        
        +5 replies
        
        lichtkind
        
        2010-03-22 17:03
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        ganz ich hab auch noch problem aber es sollt ungefähr so gehen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        my $IMG = $DB-> get ...; Wx::FileSystem::AddHandler( Wx::MemoryFSHandler->new ); Wx::MemoryFSHandler::AddBinaryFile( 'photo.jpg', $IMG); Wx::InitAllImageHandlers(); my $imgr = Wx::Image->new('bg.jpg', wxBITMAP_TYPE_JPEG ); my $imgm = Wx::Image->new('memory:photo.jpg', wxBITMAP_TYPE_JPEG);
        
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        +4 replies
        
        pope
        
        2010-03-22 17:22
        
        User since
        2009-10-11
        30 Artikel
        BenutzerIn
        
        Es wird weiterhin die Meldung ausgegeben, dass die angegebene Datei
        unter 'memory:photo.jpg' nicht existiert.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        my $IMG = $this->{DB}->SelectImage; Wx::FileSystem::AddHandler( Wx::MemoryFSHandler->new ); Wx::InitAllImageHandlers(); Wx::MemoryFSHandler::AddBinaryFile( 'photo.jpg', $IMG); my $fs = Wx::FileSystem->new( ); my $File = $fs->OpenFile( 'memory:photo.jpg' ); # Funktioniert alles print $File->GetMimeType; # sogar den Mime-Typ erkannt: image/jpeg my $imgm = Wx::Image->new('memory:photo.jpg', wxBITMAP_TYPE_JPEG);
        
        +3 replies
        
        pope
        
        2010-03-22 18:20
        
        User since
        2009-10-11
        30 Artikel
        BenutzerIn
        
        ICH HABS!
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my $IMG = $this->{DB}->SelectImage; my $InternFH; open $InternFH, "<", \$IMG; my $Image = Wx::Image->new( ); $Image->LoadStreamType( $InternFH, wxBITMAP_TYPE_JPEG ); close $InternFH;
        
        Mal wieder typisch, die Lösung ist schön einfach :D
        
        Ich bin folgendermasen drauf gekommen:
        LoadStreamType hat immer nach einer Glob-Referenz gefragt und ich hab bereits probiert ob er Perl-Filehandles (d.h. Globs) schlucken konnte -> konnte er.
        
        Naja, dann hab ich gedacht in der Variable steht ja dasselbe wie in der Datei, es muss doch möglich sein Ein FH auf eine Internen Skalar zu setzten.
        
        Tja, ein bisschen gegoogelt und siehe da, es funktioniert.
        
        Und das beste daran ist, ich brauch den ganzen Wx-Overhead mit den VFS gar nicht.
        
        Bin Happy
        
        Ich dank dir natürlich für deine Mühe, ich hab dieses VFS zuvor garnicht gekannt, so lernt man immer wieder was neues, auch wenn es nicht funktioniert.
        Interresant wäre es jetzt noch zu wissen, wie man direkt aus einem Zip-Archiv lesen kann um eine Alternative zur DB zu haben ( siehe Code oben ). Aber das ist eine andere Geschichte...
        
        +2 replies
        
        lichtkind
        
        2010-03-22 20:43
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        großartig wie bist auf die methode gekommen, in der doku steht sie nicht.
        
        zu zib gibts auch besispiel in examples, das ist extra download auf wxperl.sf.net
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        pope
        
        2010-03-22 21:16
        
        User since
        2009-10-11
        30 Artikel
        BenutzerIn
        
        Auf die Lösung bin ich eher zufällig gestossen, durch das gute alte Trial&Error.
        Grundgedanke war, dass die LoadStreamType Funktion ja nicht ohne grund Implementiert worden waren, wxPerl aber keine Stream-Klassen anbietet. Dadurch war es eigentlich logisch, das eine Perl-Struktur an dieser Stelle als Stream missbraucht wurde, die Frage war nun welche.
        
        Nach einigen herumprobieren kam nun immer wieder die Fehlermeldung
        Not a Glob Reference
        
        Dadurch bin ich dann (über ein paar Umwege) darauf gekommen, dass hierbei Filehandles als Stream verwendet werden. Der Rest steht oben.
        
        Im nachhinein kann ich sagen, das wxPerl an dieser Stelle echt schlecht dokumentiert ist. Sowohl bei den wxStreams, als auch beim Virtuellen Filesystem.
        
        Die LoadStreamType-Methode von Wx::Image hab ich übrigens auch in keiner Dokumentation gefunden, sondern nur in einem Beispiel.
        Teilweise bin ich in den wxPerl-Code selbst reingegangen um nachzuschauen. Sowas sollte eigentlich nicht passieren müssen.
        
        Worauf ich auch gestossen bin und was ich nützlich fand ist, dass man sich mit
        
        Code (perl): (dl )
        
        perl -MWx -le"print for sort keys %Wx::Image::"
        
        alle Methoden einer Klasse bzw. eines packages Ausgeben lassen kann (vllt wusstest du, oder der ein oder andere der das liest noch nicht).

View all threads created 2010-03-21 17:47.