Pascal Magick - getting the image
Posted: 2010-08-07T00:03:54-07:00
Hi folks.
Here's a little chunk of code. Could some kind soul please tell me how to get rid of my ARGH? Or tell me how to draw a 'wand' on a printer canvas?
Ta muchly.
Simon.
Here's a little chunk of code. Could some kind soul please tell me how to get rid of my ARGH? Or tell me how to draw a 'wand' on a printer canvas?
Code: Select all
Procedure PrintImage;
var
RemPicture: TGraphic;
status: MagickBooleanType;
wand: PMagickWand;
begin
wand := NewMagickWand;
RemPicture := TImage.Create;
MagickReadImage(wand, 'truck.jpg');
MagickScaleImage(wand, 500, 500);
RemPicture := GetImageFromMagickWand(wand); <------- ARGH!
Printer.BeginDoc;
Printer.Canvas.Draw(500, 500, RemPicture);
Printer.EndDoc;
end;
Simon.