History |
ImageResize (general internal functions)
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)
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
| ||||||||