Image Magick

[Scott Taylor]

Hello all,

I am trying to use Image::Magick to resize a JPEG.  This routine works to 
display the full size image from a blob in my Firebird database:

    while ( my ($PixData )
            = $sth->fetchrow ) {
            print header('image/jpeg');
            print $PixData;
    }
But when I add the Image::Magick stuff:

    while ( my (@PixData) = $sth->fetchrow) {
            my $PixDisp=Image::Magick->new(magick=>'jpg');
            $PixDisp->BlobToImage(@PixData);
            $PixDisp->Resize(geometry=>'160x120');
            print header('image/jpeg');
            print $PixDisp;
    }
I get this:
Image::Magick=ARRAY(0x82fdee8)
instead of an image.  Can anyone see my obvious mistake?
Cheers.

Scott. 

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>