Image Creation.

Used method: CreateImage (width, height)

CreateImage allocates memory and creates black image with specified image dimensions (width and height) in a special internal format. You need to select image type every time you need to import/export image to/from the component e.g. saving image to file, database or data stream.

Image format.

Used method: SetImageType (style)

Image format can be set with SetImageType method. Type 0 sets PNG format (default), type 1- Jpeg. You need also to define the type when reading image from database or variable.

Text Output.

Used method: SetFont (num)

Component has a number of predefined font styles: 0 - Small (default) , 1 - MediumBold , 2- Large, 3 - Tiny, 4 - Giant

Dim im                                                          ‘ Define object variable Set im = CreateObject("ActiveImage.Images.1")         ‘ Create object im.CreateImage 150,75                                   ‘ Create image with specified width and height im.SetColor 255,255,255                                  ‘ Set foreground color in RGB format (white) im.Fill 0,0                                                       ‘ Fill from the current point with foreground color im.SetColor 0,0,0                                            ‘ Set foreground color in RGB format (black) im.SetFont 0                                                  ‘ Set font number to 0 (Small) im.DrawText 10,10, "Small - (default) " & im.GetFont                     ‘ Draw text and the number of active font im.SetFont 1 im.DrawText 10,20, "Medium Bold - " & im.GetFont im.SetFont 2 im.DrawText 10,30, "Large - " & im.GetFont im.SetFont 3 im.DrawText 10,44, "Tiny - " & im.GetFont im.SetFont 4 im.DrawText 10,50, "Giant - " & im.GetFont   im.WriteToFile "C:\font.png"                           ‘ Save Image to file. Default type 0 corresponds to PNG format. im.SetImageType 1                                        ' Set Jpeg format im.SetJpegQuality 100                                   ‘ Set Jpeg quality im.WriteToFile "C:\font.jpg" im.DestroyImage                                           ‘ Delete image and free memory Set im = Nothing                                           ‘ Clear the variable

Picture 1.

Line.

Used method: SetLineThickness (num). Line thickness (in number of pixels) is applied for DrawLine, DrawArc and DrawPolygon methods. Default value is 1

Polygon.

Used method: DrawPolygon (array a, integer point_num)

This sample draws polygons. You need to define coordinates array and consequently fill it with x,y pairs. For example coord(0) = x1, coord(1) = y1, etc. In a call to DrawPolygon you have to specify the array and the number of points (or x, y pairs) to draw.

CopyImage (srcnum, destnum, destX, destY, srcX, srcY, width, height) - Copy image part

srcnum – Image handle (number) to copy from [0 - 10]
destnum – Image handle (number) to copy to [0 - 10]
(destX, destY)– coordinate to place a part of source image from (srcX, srcY) with specified width and height
width – integer. Image width
height – integer. Image height

CopyImageResize(srcnum,destnum,destX,destY,scrX,srcY, destWidth, destHeight, srcWitdh,srcHeight) - Copy image part with resize

srcnum – Image handle (number) to copy from [0 - 10]
destnum – Image handle (number) to copy to [0 - 10]
(destX, destY)– coordinate of destination image to place a part of source image beginning in (srcX, srcY) with specified srcWidth and srcHeight
destWidth, destHeight– width and height of destination image. Image is resized if srcWidth != destWidth or srcHeight != destHeight

CreateImage (width, height) - Allocate memory and create image in internal format

width – integer. Image width
height – integer. Image height

DestroyImage - Destroy active image that was specified in a call to SetImage and clean up the memory. By default the image with 0 handle is destroyed.

Returns True is a image destroyed succsesfully

DrawArc(cx,cy, w, h,s,e) - Draw Arc

cx,cy – arc center coordinate
w,h – arc width and height
s,e – start and end angles [0 – 360]

DrawEllipse(cx,cy, w, h, s, e) - Draw Ellipse

cx,cy – ellipse center coordinate
w,h –ellipse width and height
s,e – start and end angles [0 – 360]

DrawFilledArc(cx,cy, w, h,s,e) - Draw filled arc (can be used to create pie charts)

cx,cy – arc center coordinate
w,h – arc width and height
s,e – start and end angle [0 – 360]

DrawFilledEllipse(cx,cy, w, h,s,e) - Draw filled ellipse (can be used to create charts)

cx,cy – ellipse center
w,h – ellipse height and width
s,e – start and end angles [0 – 360]

DrawFilledPolygon(coords, num) - Draw filled polygon

DrawFilledRectangle(x1,y1,x2,y2) - Draw filled rectangle

x1,y1,x2,y2 – coordinates of upper left and lower right rectangle corners. DrawFilledRectangle draws with active foreground color and you should use SetColor method if you want to change it.

DrawLine(x1,y1,x2,y2) - Draw line

x1,y1,x2,y2 - coordinates of the end and start line points. Line thickness can be set using SetLineThickness method. DrawLine draws with active foreground color and you may change it calling SetColor method.

DrawPolygon(coords, num) - Draw polygon

coords – one dimension array that specifies all coordinate pairs. First value (X1) should be placed in the array element with zero index
num – Number of points (x,y pairs). The value shouldn't be greater than 1998 [0..1998].

DrawRectangle(x1,y1,x2,y2) - Draw rectangle

x1,y1,x2,y2 – coordinates of upper left and lower right rectangle corners. DrawRectangle draws with active foreground color and you should use SetColor method if you want to change it. Line thickness can be set in a call to SetLineThickness method.

DrawText(x,y,text) - Draw text

x,y – define start point for text output.
text – text string to draw

DrawTextAngle(x, y, angle, text) - Draw text with angle

x,y – define start point for text output..
angle – text slope [0..360]
text – text string to draw

Fill(x,y) - Color fill (changing color on another)

Fill method replaces all points of the same color adjacent to start point (x,y) on active foreground color.

x,y – fill start point

You can change the color with SetColor. This method may be useful to change black background after image creation.

GetColorBlue - Get blue value of active foreground color

GetColorGreen - Get green value of active foreground color

GetColorRed - Get red value of active foreground color

GetFont - Get font style for text output operations

Returns active font style for text output operations
0 - Small
1- MediumBold
2 - Large
3 - Tiny
4 - Giant

GetHeight - Get image height

Returns image height

For example you may determine image height after image read operation and resize the image if necessary.

GetImage - Get image handle

Returns the number of active image. [0..10]. You can set active image in a call to SetImage.

GetImageType - Get image format (PNG, Jpeg)

Returns active image format (0 – PNG , 1 – Jpeg). You can set image format with SetImageType. Image format is used only for import/export operations.

GetInterlace - returns true if image is interlaced

GetJpegQuality - Get Jpeg quality value

Return default value or the value set with SetJpegQuality.

You can set necessary Jpeg quality if you save the image in Jpeg format to variable, database or file in a call to SetJpegQuality.

GetLineThickness - Get current line thickness (used in DrawLine, etc)

GetPixelBlue(x,y) - Get blue value for a pixel

Returns blue component of a pixel at (x,y) coordinate. B (RGB) [0..255]

GetPixelGreen(x,y) - Get green value for a pixel

Returns green component of a pixel at (x,y) coordinate. G (RGB) [0..255]

GetPixelRed(x,y) - Get red value for a pixel

Returns red component of a pixel at (x,y) coordinate. R (RGB) [0..255]

GetTransparent - Returns current transparent color

Returns RGB value in a single integer [0x000000 - 0xFFFFFF]

In hex:

white color: 0xFFFFFF
red color: 0xFF0000
green color: 0x00FF00
blue color: 0x0000FF

GetWidth - Get image width

For example you may determine image height after image read operation and resize the image if necessary.

ReadFromDatabase (AdoRecordset)- Read image from database

Use ADO for database access.
Methods DAO (for MS Access) are not supported yet.
You need to have open recordset with cursor 2 (adOpenDynamic) and blocking type 3 (adLockOptimistic).

ReadFromFile(namefile) - Read image from file

namefile – file name (can include file path) For example, ReadFromFile “C:\test.png”

By default, ReadFromFile reads image in PNG format. If you want to read Jpeg image, you need to call SetImageType 1 before calling ReadFromFile. ( 0 – PNG, 1 – Jpeg)

ReadFromVariable(var) - Read image from variable

var – variable of Variant type.
You can save image in variable using WriteToVariable. By default ReadFromVariable reads image in PNG format. If you want to read Jpeg image, you need to call SetImageType 1 before calling ReadFromVariable. ( 0 – PNG, 1 – Jpeg)

SetColor(R,G,B) - Set foreground color

R - red image component [0..255]
G - green image component [0..255]
B - blue image component [0..255]

Different drawing operations (like DrawText, DrawRectangle, DrawLine, Fill etc) will be made with this active foreground color.

Sample colors:

255,255,255 – white color
0,0,0 – black color
255,0,0 – red color
0,0,255 – blue color
127,127,127 – grey color

SetFont (num) - Select current font

Set active font style

0 - Small (default)
1- MediumBold
2 - Large
3- Tiny
4 - Giant

For more information you may check out the GetFont sample.

SetImage (num) - Select active image

Set active image. All image operations will be in progress with the selected image [0..10]

SetImageType (num) - Set image format (PNG, Jpeg)

Set image format for export/import operations (reading/writing file, database, variable)

num : 0 - PNG (default), 1 - Jpeg

If you try to read Jpeg using PNG format converter, error exception "No Image!" will be thrown. If you want to handle errors in VBScript you need to run “On Error Resume Next” command before calling SetImageType method

SetJpegQuality (quality) - Set Jpeg quality value

integer quality [0..100]

You can set necessary Jpeg quality if you save the image in Jpeg format to variable, database or file.

SetLineThickness (width)- Set line thickness for simple draw operations

Positive integer width (positive), default = 1
Sets line thickness in pixels for common draw methods (DrawLine, DrawPolygon, DrawArc, etc) .

SetPixel (x,y) -Set pixel

Draw a pixel in (x,y) coordinate with active foreground color.

SetTransparent (num) - Set transparent color

Num:
1 – turn on image transparency
0 – turn off image transparency

WriteToDatabase (AdoRecordset) - Write image to database

Use ADO for database access. Methods DAO (for MS Access) are not supported yet.
You need to have open recordset with cursor 2 (adOpenDynamic) and blocking type 3 (adLockOptimistic).

WriteToFile (namefile) – Write image to file

You need to specify image type (call SetImageType) if you want to change image format

WriteToVariable (var) –Write image to variable (can be also used to write image directly to browser data stream)

var –variable has VARIANT type. You may also need to specify image format in a call to SetImageType (num)