Image Magick

[Kae Verens]

Mike At Spy wrote:

> Anyone here familiar with the installation of Image Magick and what files it
> installs on your machine?
>
> I had an admin put it on, and then took it off - but took it off by removing
> what she thought were all of the files related to it. I just found some
> files I think that are. They are located in the usr/local/bin directory and
> are called:
>
> animate
> composite
> convert
> display
> identify
> mogrify
> montage
>
> The date/time of the files being put there seems to correspond with when the
> admin put the program on, and names of the files seem to imply it to me.
>
> And I just wanted to make sure I'm not going to screw up something else by
> removing them. :)
>
> Thanks!

the easiest way to remove them is to use RPM, if that was what was used
to install them
rpm -e ImageMagick

if there are no dependency problems, then it will go ahead.

make sure that you don't have any libraries that use it! I use
ImageMagick in a PHP image-upload function that resizes to a maximum
size. The RPM program would not tell you of that dependency.

Kae

[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.

[Wiggins D Anconia]

> 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?
>

You are getting this because $PixDisp holds an Image::Magick object
which can't be stringified as you desire. You need to (it appears) call
the 'Write' method of the object to have it converted to image data.

[url]http://www.ImageMagick.org/www/perl.html[/url]

Check the above for an example of how to print an image to a filehandle,
in your case you want the default STDOUT....

HTH,

[url]http://danconia.org[/url]

[Scott Taylor]

At 10:28 AM 01/09/2004, Wiggins d Anconia wrote:

> > 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?
> >

>
>You are getting this because $PixDisp holds an Image::Magick object
>which can't be stringified as you desire.

D'oh! I C

>You need to (it appears) call the 'Write' method of the object to have it
>converted to image data.

OK

>[url]http://www.ImageMagick.org/www/perl.html[/url]
>
>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?

[Scott Taylor]

At 11:02 AM 01/09/2004, Scott Taylor wrote:

>At 10:28 AM 01/09/2004, Wiggins d Anconia wrote:
>
>
>

>>[url]http://www.ImageMagick.org/www/perl.html[/url]
>>
>>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:-');