ImageResize

Purpose

Changes the displayed size of an image.

Binary data will be returned in the same image format with the new dimensions.

Syntax

ImageResize (OriginalData, NewWidth, NewHeight)

OriginalData	The binary data that contains the original image.
NewWidth	In pixels.
NewHeight	In pixels.

Example

Sub Main()

Dim fIn as File

Dim fOut as File

fIn.OpenFile("c:\photo.jpg")

fIn.Read(fIn.Datasize)

fOut.OpenFile(FCPOFolder & "\smallphoto.jpg",fcWrite)

fOut.Write(ImageResize(fIn.Data,32,32))

fOut.CloseFile

fIn.CloseFile

End Sub