资源描述：
《多媒体作业实验报告》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、太原工业学院计算机工程系姓名学号实验编号实验名称图片压缩课程名称多媒体技术教材多媒体技术应用1.实验li的做一个可以实现图像的压缩的工具。2.实验内容编程实现一个图像工具，可以打开原图像，在此基础上可以进行图像的压缩。3.实验步骤(附录源程序及效果图)(1)首先用showimage(Stringimagename)方法创建一个图像监听器，并获得所选择的图像文件，然后创建图像缓冲区并显示。(2)图像读至缓冲区，然后调用图片压缩方法对图像进行压缩。代码：PrivateSubCommand2_Click()OnErrorGoToerrlCommonDialog2.Action=2OpenCommon
2、Dialog2.FileNameForBinaryAs#2OpenCommonDialogl.FileNameForBinaryAs#1Picture2•CisDimbmpGeshilAsByte，。。。。。。判断是不是BMP图片DimbmpGeshi2AsByteGet#1,lfbmpGeshilGet#1,2,bmpGeshi2IfbmpGeshil=66AndbmpGeshi2=77ThenPicture2.PrintnBMP11ElsePicture2・Print"格式错误"Close#1ExitSubEndIfDimgeShiAsByte'。。。。。。判断BMP图片位数Get#lz&
3、H1C+1,geShiIfgeShi=24ThenPicture2.Print”24位"ElsePicture2.Print”文件是”；geShi;”位格式不支持，请打开24位格式的BMP”Close#1ExitSubEndIfPicture3・Picture=LoadPicture()DimKuanAsLong'。。。。。找到图片高、宽DimGaoAsLongGet#1,&H12+1,KuanGet#1,&Hl6+1,GaoPicture2.Print"图像大小：宽"；Kuan;"高”；GaoDimBSAsStringBS=llB8,1Put#2,lzBS•Put#2,2f8Put#2A3f
4、KuanPut#2,1,Gao'put#2Z11,Picture3.Picture=LoadPicture()DimposAsLong1文件中点的指针DimchaAsInteger，行末尾填充的字节数cha=Abs((Kuan*3)Mod4-4)Mod4Picture2.Print"行末尾多余的字节”；chapos=&H36+1DimPos8AsLongPos8=11DimIXAsLong'用于描出点的坐标DimIYAsLong，用于描出点的坐标DimyanseRedAsByte，存红色的值DimyanseGreenAsByte1存绿色的值DimyanseBlueAsByte1存蓝色的值Dim
5、endYanseAsByteDimendRAsByteDimendGAsByteDimendBAsByteDimyanseRed8AsByte1存红色的值DimyanseGreen8AsByte，存绿色的值DimyanseBlue8AsByte1存蓝色的值ForIY=Gao-1To0Step-1'y行‘。。。。。。描点ForIX=0ToKuan-1'x列Get#1,poszyanseBlue'得至U颜色Get#lzpos+1,yanseGreen'得至U颜色Get#1,pos+2,yanseRed'得至U颜色1Picturel.PSet(工X,IY),RGB(yanseRed,yanseGre
6、en,yanseBlue)SelectCaseyanseRedCase0To41endR=0Case421To84endR=1Case851To127endR=2Case128To170endR=3Case171To213endR=4Case214To255endR=5EndSelectSelectCaseyanseGreenCase0To41endG=0Case421To84endG=1Case851To127endG=2Case128To170endG=3Case171To213endG=4Case214To255endG=5EndSelectSelectCaseyanseBlueCase
7、0To41endB=0Case42To84endB=1Case85To127endB=2Case128To170endB=3Case171To213endB=4Case214To255endB=5endB*42)EndSelectPicture3.PSet(IXZIY)zRGB(endR*42,endG*42,endYanse=endR*6*6+endG*6+endBPut#2,Pos8,pos=
