GDI+[26] 显示图像 - Image

GDI+ 学习记录(26) 显示图像 - Image

//显示图像 var    g:TGPGraphics;    img:TGPImage; begin    g:=TGPGraphics . Create(Canvas . Handle);    g . Clear(aclWhite);    img:=TGPImage . Create( 'd:\mm.jpg' );    g . DrawImage(img, 10 , 10 ); {参数2、3是坐标}      img . Free;    g . Free; end ;

//按标准的高度与宽度显示图像 var    g:TGPGraphics;    img:TGPImage; begin    g:=TGPGraphics . Create(Canvas . Handle);    g . Clear(aclWhite);    img:=TGPImage . Create( 'd:\mm.jpg' );      g . DrawImage(img, 10 , 10 ,img . GetWidth,img . GetHeight);      img . Free;    g . Free; end ;

//按指定高度与宽度显示图像 var    g:TGPGraphics;    img:TGPImage; begin    g:=TGPGraphics . Create(Canvas . Handle);    g . Clear(aclWhite);    img:=TGPImage . Create( 'd:\mm.jpg' );      g . DrawImage(img, 10 , 10 , 200 , 100 );      img . Free;    g . Free; end ;

//略缩图 var    g:TGPGraphics;    smallimg,img:TGPImage; begin    g:=TGPGraphics . Create(Canvas . Handle);    g . Clear(aclWhite);    img:=TGPImage . Create( 'd:\mm.jpg' );      smallimg:=img . GetThumbnailImage( 48 , 60 , nil , nil );      g . DrawImage(smallimg, 10 , 10 ,smallimg . GetWidth,smallimg . GetHeight);      smallimg . Free;    img . Free;    g . Free; end ;

//图片平行四边形变换 var    g:TGPGraphics;    img:TGPImage; const    pts: array [ 0..2 ] of  TGPPoint = ((x: 380 ;y: 20 ),                                   (x: 280 ;y: 70 ),                                   (x: 400 ;y: 200 )); begin    g:=TGPGraphics . Create(Canvas . Handle);    g . Clear(aclWhite);    img:=TGPImage . Create( 'd:\mm.jpg' );      g . DrawImage(img, 0 , 0 ); {这是原始图片}    g . DrawImage(img,PGPPoint(@pts), 3 );    {反复测试后, 感悟如下:      1、只需要 3 个点来控制图片, 不能多或少.      2、点 1 控制右上角; 点 2 控制左上角; 点 3 控制右下角.      3、因为是平行四边形, 所以剩下的左下角的点(就是右上角的对角点)程序就可以算得出来了.    }      img . Free;    g . Free;   end ;

//图像缩放时的算法比对 var    g:TGPGraphics;    img:TGPImage;    w,h:UINT; begin    g:=TGPGraphics . Create(Canvas . Handle);    g . Clear(aclWhite);    img:=TGPImage . Create( 'd:\mm.jpg' );    w:=img . GetWidth;    h:=img . GetHeight;      g . DrawImage(img,MakeRect( 10 , 10 ,w,h), 0 , 0 ,w,h,UnitPixel);      g . SetInterpolationMode(InterpolationModeNearestNeighbor);    g . DrawImage(img,MakeRect( 10 , 210 , 0.6 *w, 0.6 *h), 0 , 0 ,w,h,UnitPixel);      g . SetInterpolationMode(InterpolationModeHighQualityBilinear);    g . DrawImage(img,MakeRect( 150 , 210 , 0.6 *w, 0.6 *h), 0 , 0 ,w,h,UnitPixel);      g . SetInterpolationMode(InterpolationModeHighQualityBicubic);    g . DrawImage(img,MakeRect( 290 , 210 , 0.6 *w, 0.6 *h), 0 , 0 ,w,h,UnitPixel);      img . Free;    g . Free;   end ;

 

缩放或旋转图像时的算法选项:

Delphi	微软	说明
InterpolationModeBicubic	Bicubic	指定双三次插值法。不进行预筛选。将图像收缩为原始大小的 25% 以下时，此模式不适用。
InterpolationModeBilinear	Bilinear	指定双线性插值法。不进行预筛选。将图像收缩为原始大小的 50% 以下时，此模式不适用。
InterpolationModeDefault	Default	指定默认模式。
InterpolationModeHigh	High	指定高质量插值法。
InterpolationModeHighQualityBicubic	HighQualityBicubic	指定高质量的双三次插值法。执行预筛选以确保高质量的收缩。此模式可产生质量最高的转换图像。
InterpolationModeHighQualityBilinear	HighQualityBilinear	指定高质量的双线性插值法。执行预筛选以确保高质量的收缩。
InterpolationModeInvalid	Invalid	等效于 QualityMode 枚举的 Invalid 元素。
InterpolationModeLow	Low	指定低质量插值法。
InterpolationModeNearestNeighbor	NearestNeighbor	指定最临近插值法。