阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM.     <C++图像处理>系列以代码清晰,可读性为主,全部使用C++代码.     尽可能保持二者内容一致,可相互对照.     本文代码必须包括文章<Delphi图像处理 -- 数据类型及公用过程>中的ImageData.pas单元. 图像的最大值处理就是以当前像素为中心,取周边一定半径范围内的所有像素的RGB分量的最大值,作为当前像素的分量值.如果图像含A…

转载:http://blog.csdn.net/maozefa/article/details/7188354 本文对已发布<Delphi图像处理>系列文章进行索引链接,以方便阅读和查找.  <Delphi图像处理 -- 数据类型及公用过程>.提供GDI+位图TGpBitmap和VCL位图TBitmap的转换过程以及几个最基本的通用过程.所有其它文章代码,包括例子代码,对必须包括该文章所介绍的ImageData.pas单元. <Delphi图像处理 -- 平面几何变换类>…

阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM.     <C++图像处理>系列以代码清晰,可读性为主,全部使用C++代码.     尽可能保持二者内容一致,可相互对照.     本文代码必须包括文章<Delphi图像处理 -- 数据类型及公用过程>中的ImageData.pas单元. 图像的最小值处理就是以当前像素为中心,取周边一定半径范围内的所有像素的RGB分量的最小值,作为当前像素的分量值.如果图像含A…

阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM.     <C++图像处理>系列以代码清晰,可读性为主,全部使用C++代码.     尽可能保持二者内容一致,可相互对照.     本文代码必须包括文章<Delphi图像处理 -- 数据类型及公用过程>中的ImageData.pas单元. const _fc0: Single = 0.0; _fc1: Single = 1.0; _fc6: Single = 6…

阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM.     <C++图像处理>系列以代码清晰,可读性为主,全部使用C++代码.     尽可能保持二者内容一致,可相互对照.     本文代码必须包括文章<Delphi图像处理 -- 数据类型及公用过程>中的ImageData.pas单元. const _fc0: Single = 0.0; _fcd5: Single = 0.5; _fc1: Single =…

转载自阿发伯:http://blog.csdn.net/maozefa/article/details/8316430 阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM.     <C++图像处理>系列以代码清晰,可读性为主,全部使用C++代码.     尽可能保持二者内容一致,可相互对照.     本文代码必须包括文章<Delphi图像处理 -- 数据类型及公用过程>中的ImageData.pas单元. 本文…

Envision Image Library (Full Sources for D7 to D10-Seattle) v3.08http://www.intervalsoftware.com/envision.html http://www.imageen.com/info/index.html Delphi image 程式庫 imaginglib0264 (1).zip leadtools GraphicEx http://www.torry.net/pages.php?id=112 Fi…

procedure TDR_QM_ZP_Form.btn_ZXClick(Sender: TObject); //图像左旋 begin screen.Cursor := crhourglass; my_int3 := my_int3 + ; FL_bmp_rotate( Original_Bmp1 , Image1.Picture.Bitmap, my_int3); screen.Cursor := crdefault; //把鼠标指针恢复成缺省状态. end; my_int3 := my_in…

procedure TDR_QM_ZP_Form.btn_FDClick(Sender: TObject); //图像放大 begin my_int1 := Trunc( my_int1 * 1.1); my_int2 := Trunc( my_int2 * 1.1); FL_ZoomInOut( Original_Bmp, //原始图 image1.Picture.Bitmap, //输出图 my_int1, //输出图宽 My_int2 //输出图高 ) ; //图形二值化 Image_EZ…

procedure TDR_QM_ZP_Form.Image_EZH( Bmp: TBitmap ); var p: PByteArray; Gray, x, y: Integer; begin //设置为24位真彩色 Bmp.PixelFormat := pf24Bit; randomize; for y := 0 to Bmp.Height - 1 do begin p := Bmp.scanline[y]; for x := 0 to Bmp.Width - 1 do begin //一个…