Sample 10 - Read image, scale, copy to another image, save. Filled rectangles, copying images
> center.vbs
> 'Declare variables Dim im 'Create object Set im = CreateObject("ActiveImage.Images.1") 'Set Image Format (JPEG = 1) im.SetImageType 1 'Load image from file 'By default 1st image (the image with image index = 0) is active im.ReadFromFile "C:\AI\rose.jpg" 'Determine image width and height h = im.GetHeight w = im.GetWidth ' We need to work with image 1 (0 by default) im.SetImage 1 ' Create empty image with the specified size ' In this case image is 2 times smaller (linear dimensions) im.CreateImage Cint(w/2),CInt(h/2) ' Copy image 0 to 1 (0,1 - indices of images) ' Copy the image to (0,0) point ' Copy the image from (0,0) point ' Destination area is smaller (we force resize) im.CopyImageResize 1,0,0,0,0,0,CInt(w/2),CInt(h/2),w,h 'Clear current image im.SetImage 0 im.DestroyImage 'Create new image im.CreateImage w,h 'Set color and fill the image with the color im.SetColor 255,0,0 im.DrawFilledRectangle 0,0,w,h 'Copy image 1 to image 0 'Copy image to the point with (CInt(w/4),CInt(h/4)) coordinates from (0,0) 'Copy image with width=CInt(w/2) and height=CInt(h/2) im.CopyImage 0,1,CInt(w/4),CInt(h/4),0,0,CInt(w/2),CInt(h/2) 'Save Image to C:\AI\center.jpg im.WriteToFile "C:\AI\center.jpg" 'Delete images im.DestroyImage im.SetImage 1 im.DestroyImage Set im = Nothing
> Picture 1. ct.png (size - 4 Kb)
If you have any questions or bug reports, write to active.image@tonec.com for technical support.