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
|