0
你好,此时相机拍摄图像大小超过1mb。我想把它缩小到20kb。请帮帮我。如何缩小basic4android中的jpeg图像大小
Sub Camera1_PictureTaken (Data() As Byte)
camera1.StartPreview
DateTime.DateFormat ="HH.mm.ss.SS_dd-MM-yy_"
forDate=DateTime.Date(DateTime.now)
imei = pID.GetDeviceId
filename = forDate & imei& "_.jpeg"
File.MakeDir(File.DirRootExternal,"/data/data/a3a/cam/update/images")
out = File.OpenOutput(File.DirRootExternal,"/data/data/a3a/cam/update/images/"&filename, False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
End Sub