Glad I could help! :D Hey Steeve! Hope to see you again, in Brazil or the UK or wherever :D
Cheers, garu On Tue, Jan 20, 2015 at 9:02 AM, Steve Cookson - gmail < steveco.1...@gmail.com> wrote: > Hi Garu, > > I haven't seen you since the SP YAPC. I hope you are well. We have all > returned to the UK now. > > That Wx::Perl::Imagick advice was very nicely done. > > Good luck, > > Regards > > Steve. > > > On 18/01/15 22:49, breno wrote: > > On Sun, Jan 18, 2015 at 6:47 PM, Daniel <danielsw...@yahoo.de> wrote: > >> >> @Garu: I tried to follow the steps under WARNING and that didn't work, >> thats why I was writing this call for help... >> >> > Hi Daniel, > > your problem doesn't seem to be with Wx, but with ImageMagick (the > external library), and I think you should concentrate your efforts in "how > to install ImageMagick on Windows 7", and only then you should worry about > the Image::Magick Perl module (and only after that with Wx::Perl::Imagick, > if at all). > > When you say "that didn't work", what do you mean? Which step of that > tutorial failed? How did it fail? Are there any error messages we can look > at in order to help you out? > > I've tried expanding the original tutorial below, hopefully it helps: > > 1. figure out whether your Citrus perl is 32 or 64 bits (you should be > able to tell from the output of "perl -V") > 2. figure out whether your Win7 is 32 or 64 bit => > http://pcsupport.about.com/od/windows7/ht/windows-7-32-bit-64-bit.htm > 3. Make sure both Citrus perl and ImageMagick match your systems, > whether it's 32 or 64 bits > 4. download the appropriate binary for ImageMagick: > - 64-bit Win7: > http://www.imagemagick.org/download/binaries/ImageMagick-6.9.0-4-Q8-x64-dll.exe > - 32-bit Win7: > http://www.imagemagick.org/download/binaries/ImageMagick-6.9.0-4-Q16-x86-dll.exe > 5. Run the file you just downloaded and follow the installation wizard. > - ***make sure*** the Wizard installs the development files > (libraries+headers) > 6. after the installation is complete, go to the command line and type: > "convert > logo: logo.gif" (without quotes) to make sure it's installed successfully; > 7. if everything went ok, try and install Image::Magick from CPAN one > more time. > > If you have more trouble, I advise you go to ImageMagick's public forum > at http://www.imagemagick.org/discourse-server/ as it doesn't look like a > Wx issue - or even a Citrus Perl issue for that matter. > > That said, you did mention afterwards that all you want to do is resize > an image and save it to disk. Well, Citrus Perl should have come with the > GD module, which can (amongst several other things) do just that. Granted, > I'm not very familiar with GD so I could be waaaay wrong here, but from > their documentation the code below should work (note: I just wrote it on > the email body, code might have typos and is not really tested): > > ----------------8<---------------- > use strict; > use warnings; > use GD::Image; > > # note: newFromJpeg() and newFromGif() are also available > my $source_image = GD::Image->newFromPng( "/path/to/file.png" ); > > my ($source_width, $source_height) = $source_image->getBounds; > > my $target_width = 100; # pixels > my $target_height = 100; #pixels > > my $target_image = GD::Image->new( $target_width, $target_height ); > > # resize our $source_image into $target_image > $target_image->copyResized( > $source_image, > 0, 0, # target_x, target_y > 0, 0, # source_x, source_y > $target_width, $target_height, > $source_width, $source_height > ); > > # saved resized file to disk > open my $fh, '>', '/path/to/resized.png' > or die "error opening resized.png for writing: $!"; > > binmode $fh; > print $fh $image->png; > close $fh; > ---------------->8---------------- > > Hope it helps! > > Good luck, > > garu > > >
