Re: Image Magick

[Scott Taylor]

At 11:02 AM 01/09/2004, Scott Taylor wrote:
At 10:28 AM 01/09/2004, Wiggins d Anconia wrote:



http://www.ImageMagick.org/www/perl.html

Check the above for an example of how to print an image to a filehandle,
in your case you want the default STDOUT....
I've been all over that page, but I'm still stuck at how to do what I 
want.  I don't want Apache writing files, I just want to display the new 
image dynamically.  Is that even possible?


Ah, silly me.  Thanks Wiggins.

    while ( my (@PixData) = $sth->fetchrow) {
            my $PixDisp=Image::Magick->new(magick=>'jpg');
            $PixDisp->BlobToImage(@PixData);
            $PixDisp->Resize(geometry=>'160x120');
            print header('image/jpeg');
            binmode STDOUT;
            $PixDisp->Write('jpg:-');


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