Bringing Internet Technology Innovations to Market since 1991
  News Products Outsourcing About Us Contact Us
what's new?what's new? featuresfeatures samplessamples manualmanual downloaddownload buybuy
  Tonec Homepage
ProductsActive Imagesamples

Please view complete list of samples

Sample 10

Read image, scale, copy to another image, save.

Filled rectangles, copying images


'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:\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
'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:\center.jpg
im.WriteToFile "C:\center.jpg"

'Delete images
im.SetImage 1

Set im = Nothing

 Picture 1. center.jpg (size - 4 Kb)

Next sample >> 

If you have any questions or bug reports, write to for technical support.

  TonecPrivacy Policy
  1999-2005. Tonec, Inc. All rights reserved.