Dim out As OutputStream
out.InitializeToBytesArray(0)
Image.WriteToStream(out, 100, "JPEG")
out.Close
Log("length -------------------------------------")
Log(out.ToBytesArray.Length) ------> 821,114
Dim su As StringUtils
Log(su.EncodeBase64(out.ToBytesArray).Length) ------> 1,756,124
Return out.ToBytesArray