Fixing image size in HTML page...

[yjulien]

Hello,

I would like to fix the maximum size of a picture in a list so none of the picture exceed 200 pixels in width or height.

I'm using pictures with various height and width so I can't simply fix it in the HTML code such as :

<img src="$photo_dir/$section.$number.$i.gif" border=2 width="200" height=200></a>

How do we read the picture dimension and then apply a simple IF fonction to fix it accordingly?

Ex.:

# Some Read "image size" function that will return a
# value for $actual_height_size & $actual_width_size...
 
if ($actual_height_size > "200") {$height = "height = 200";}
elsif ($actual_width_size > "200") {$width= "width =200";}
 
print "<img src="$photo_dir/$section.$number.$i.gif" border=2 $width $height></a>";
 

So the width and height will only be set if the original picture is bigger.

Now all I need if the read function to figure out the original size.

Can anyone help?

Thanks,

yves

[miller]

There are two ways to do this mate, you can finagle the HTML so that it only shows a certain amount of the image. Or you can resize the image before including it in the html.

I would advise the latter using Image::Magick.

# Resize Images
my $image1 = new Image::Magick;
$image1->Read($fqfn);
$image1->Scale(geometry => $dimensions);
$image1->Set(density=>'200');
$image1->Write($fqfn);
 

Just read the documentation for details.

One way to do it using HTML would be to set the image as a background of a div tag with explicit size, but that's obviously a little messy, if functional.

- Miller

[yjulien]

Hi Miller,

Is this rezing a temporary one or does it actually save the change?

Thanks,

Yves

[miller]

Resizing is a standard thing, and it will save the changes. It's up to you if the changes get saved to a new file or if they overwrite the old one.

It's a pretty standard need actually. Most websites only want to display a thumbnail of an image, so it's necessary to create a smaller size version of the original image. It sounds like that's your need as well if you want them all to be a standard size.

[yjulien]

OK thanks Miller.

I will try that and let you know.

Yves

[yjulien]

I tried your code but it does work. Do I need to instal a module ?

Thanks,

yves

[yjulien]

It looks like my server does not want to install Image::Magik module. They are server error when I tried.

I will use Image::Size and try to tweek it the HTML output to fit the needed size.

I will let you know.

Thanks Miller,

Yves

[yjulien]

Hi Miller,

Well here is what I've done. The goal is to print an image that will not exceed 200 pixels in height or width wichever is bigger. I read the image size with Image::Size and check it.

The variable $size is then used to fix the biggest size to 200 pixel. See this code:

# Resize Images
use Image::Size;
($image_x, $image_y) = imgsize("image.gif");
if ($image_x > $image_y) { $size = "width" ;}
else {$size = "height" ;}
 
<a href="image.gif"><img src="$photo_dir/image.gif" border=2 $size="200"</a>

Not ellegant but it work!

Thanks for your help,

Yves