in reply to Re^2: Howto convert Image::Grab jpg object to Image::Magick object???
in thread Howto convert Image::Grab jpg object to Image::Magick object???

Hi

I found this code sample that converts from GD to Image::Magick objects. It is like I want to do and it should work between any objects.

Haukex, I will give your code a go. 

#!/user/bin/perl
use strict;
use Image::Magick;
use GD;
# First read an image with Image::Magick

my $im = new Image::Magick;
my $status = $im->Read('monkey.png');
if ($status) {
  die "$Status!";
}

# Convert to a blob and hand off to GD

my @blobs = $im->ImageToBlob();
my $gd = GD::Image->newFromPngData($blobs[0]);
my $red = $gd->colorAllocate(255,0,0);

# Outline in Red

$dg->rectangle(0,0, (map {$_-1} $gd-?getBounds), $red);

# There and back again
my $im2 = new Image::Magick;
$im2->BlobToImage($gd->png());
$im2->Write('png:monkeyout.png');

[download]
  • Comment on Re^3: Howto convert Image::Grab jpg object to Image::Magick object???
  • Download Code

Replies are listed 'Best First'.
Re^4: Howto convert Image::Grab jpg object to Image::Magick object???
by haukex (Archbishop) on Mar 27, 2017 at 09:56 UTC

    For this example code, I'm not sure if you need the conversion to GD, since Image::Magick supports a ->Draw command. Here's another untested copy-n-paste from the docs you could try:

    $image->Draw(stroke=>'red', primitive=>'rectangle', points=>20,20 100,
+100');

    [download]

    Where $image is an Image::Magick object.

[reply]
[d/l]
[select]

      Hi

      The GD is irrelevant in this case but it gives me a template to follow when applied to Image::Get and Image::Magick. I had found your docs reference but it doesn't show me how to pass an image from one object to a different type of object.

      Thanks for your time looking at this

[reply]
        Hi
        This code did the job for me.

        #get the latest image from the IP camera
my $snapshot = new Image::Grab;
$snapshot->ua->timeout(5);  #sets the timeout (sec) for image::grab (d
+efault is 180s)
$snapshot->url("$Camera{$key}");  # create the grab object
$snapshot->grab;    # grab the image

mark_blob(my $jpg);     # mark as a binary variable
$jpg = $snapshot->image;
# Convert to Image::Maggick image
my $pic = Image::Magick->new(magick=>'jpg'); #   create new image obje
+ct
$pic->BlobToImage($jpg);  #convert the grabbed blob image to Image::Ma
+gick object

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom