怎么缩放图片（手机怎么缩小图片大小）

　　大家好，我是公众号3分钟学堂的郭立员，今天继续我们安卓按键的学习。
　　这一期我们来学一下如何用按键实现图片旋转和图片缩小，这两个功能可能在对接打码平台时会用到。
　　讲这个之前需要强调一点，以下代码都是在安卓app3.3.8版本使用。
　　按键精灵手机助手上面的命令是：
　　如果你的版本比较低，可能没有这些功能，自行升级版本。
　　这个Image 图像命令组涉及到一个知识点，以前没有用到过。
　　知识点：【图像数据】
　　那么什么是图像数据，它的格式是什么样的呢？
　　我们用一个命令演示一下：
　　我们先来＂获取指定屏幕范围内图像数据 ＂，这个命令有4个参数，查找区域的4个坐标值，和我们截图命令、找图命令的坐标范围是完全一样的。那么这个命令的重点是什么呢？它的返回值，以键值表形式返回所有颜色数据。
　　对于一个陌生的键值表，我们怎么知道它的格式呢？我来教大家一个方法：
　　＂把键值表转成json＂，然后用traceprint调试输出json。
　　下面看一下这个命令返回值的键值表格式：
　　Dim PixelData = Image.GetScreenData(0,0,5,5) Dim json=encode.TableToJson(PixelData) TracePrint json
　　返回值：
　　当前脚本第3行：[[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]],[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]],[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]],[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]],[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]],[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]]]
　　把返回值用在线格式化工具处理一下：
　　[   [     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59]   ],   [     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59]   ],   [     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59]   ],   [     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59]   ],   [     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59]   ],   [     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59],     [225, 131, 59]   ] ]
　　通过处理完的格式，可以看出返回值是三维数组。
　　数组的最大下标：三维数组(5,5,2)
　　搞清楚了这个以后，我们就开始今天的主题了。
　　（一）图片旋转（顺时针90度）。
　　Dim Path1 = ＂/sdcard/pictures/1.jpg＂ Dim Path2 = ＂/sdcard/pictures/2.jpg＂ Dim PixelData = Image.SetRotation(Path1, 90)   Image.SavePixelData(PixelData,Path2)
　　图片旋转的逻辑是这样的：
　　①读取图片数据
　　②顺时针旋转90度对应的数据替换
　　③把图像数据生成图片
　　（二）图片的缩小
　　有时候由于手机的分辨率很大，截图得到的图片超过了打码平台要求的图片尺寸大小，导致无法上传。
　　下面我们说一下缩小图片的思路：假设我们缩小n倍。
　　①获取原图的图像数据
　　②每隔n个位置从图像数据中提取一个数据，组成新的图像数据，得到数据是原来的n分之一。
　　③把新的图像数据生成图片
　　代码如下：
　　Dim Path = ＂/sdcard/pictures/f.jpg＂ Dim NewPath = ＂/sdcard/pictures/f1.jpg＂ dim PicSize = Image.Size(Path) Dim x=PicSize[1] Dim y=PicSize[2] Dim n=5 //缩放倍数 Dim PixelData =Image.GetPicData(Path) Dim NewPixelData= Image.GetScreenData(1,1,int(x/n),int(y/n)) For j = 1 To int(x/n) Fori=1Toint(y/n)         For k = 1 To 3           NewPixelData[j][i][k]=PixelData[j*5][i*5][k]         Next     Next Next Image.SavePixelDataNewPixelData,NewPath
　　效果展示：
　　代码里面有个缩放倍数变量，你可以直接修改成你需要的倍数，原本想把截图缩放也写一下，后来想想，那不就是先截图保存下来，然后在把图片缩放吗，原理都一样，就没必要写了。