Opened by master at 2005-10-04 13:50
User since
2003-10-20
610 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
610 Artikel
BenutzerIn
Hallo zusammen...
Wie kann ich ein Bild welches ich mit Image:Magick einlesen will.. in TK ausgeben?
Funktioniert einfach nicht... was mach ich falsch...
Ich möchte im Prinzip ein Pic via Magick einlesen. und über Photo() -> Label ausgeben...
Wie kann ich ein Bild welches ich mit Image:Magick einlesen will.. in TK ausgeben?
Code: (dl
)
1
2
3
4
5
6
7
8
9
my $image = Image::Magick->new;
$image->Read('test.bmp');
@blobs = $image->ImageToBlob();
# Bild in Frame1
$bild= $mw->Photo();
$bild->configure("-data" => @blobs);
$label = $mw->Label(-image => $bild)->pack();
Funktioniert einfach nicht... was mach ich falsch...
Ich möchte im Prinzip ein Pic via Magick einlesen. und über Photo() -> Label ausgeben...
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;