Sorry to keep bothering you guys but the following two code snipets didnt work for me. It still make a very small files. Do either of you have some working code to help me get out of this mess?
$file="c:/web/bcimages/$ID.png";
$file1="c:/web/bcimages/$ID.bmp";
my($image, $x);
$image = Image::Magick->new;
$x = $image->Read($file);
warn "$x" if "$x";
$image->Set(depth=>8);
$x = $image->Write($file1);
warn "$x" if "$x";
or
$file="c:/web/bcimages/$ID.png";
$file1="c:/web/bcimages/$ID.bmp";
my($image, $x);
$image = Image::Magick->new;
$image->Set(depth=>8);
$x = $image->Read($file);
warn "$x" if "$x";
$x = $image->Write($file1);
warn "$x" if "$x";
jantiored by ybiC: Balanced <code> tags around codeblocks