delphi FMX图像的二值化
来源:互联网 发布:淘宝中老年女夏装 编辑:程序博客网 时间:2024/05/21 01:57
procedure TForm2.TrackBar1Change(Sender: TObject);var Gray, x, y ,v: Integer; A_BMPData : TBitmapData ; p: PByteArray; b : TBitmap;begin b := TBitmap.Create; b.Assign(Image1.Bitmap); v := round(TrackBar1.Value); //b.PixelFormat := TPixelFormat.RGB; //showmessage(inttostr(Integer(b.PixelFormat))); // PixelFormat 格式的问题 RGBA 但是无法设置成 RGB 他这个是只读属性 // 所以在计算的时候 x*4 if b.Map( TMapAccess.ReadWrite, A_BMPData) then begin for y := 0 to A_BMPData.Height - 1 do begin p := A_BMPData.GetScanline(y); for x := 0 to A_BMPData.Width - 1 do begin //一个象素点三个字节 Gray := Round(p[x * 4 + 2] * 0.3 + p[x * 4 + 1] * 0.59 + p[x * 4] * 0.11); //最后一个是设置透明度的 A if gray >= v then begin p[x * 4]:= 255; p[x * 4 + 1] := 255; p[x * 4 + 2] := 255; p[x * 4 + 3] := 255; end else begin p[x * 4]:= 0; p[x * 4 + 1] := 0; p[x * 4 + 2] := 0; p[x * 4 + 3] := 255; end; end; end; b.Unmap(A_BMPData); end; Image2.Bitmap.Assign(b); b.Destroy;end;
阅读全文
0 0
- delphi FMX图像的二值化
- delphi FMX图像的直方图均衡
- delphi FMX图像的直方图统计增强
- delphi FMX图像的局部直方图均衡
- delphi FMX图像的直方图匹配
- delphi FMX图像的灰度化和反色
- delphi FMX图像简单的腐蚀和膨胀
- delphi FMX图像简单的边缘检测(sobel、prewitt、robert)
- 学习delphi FMX 的一些资料
- delphi FMX控件的常见属性
- delphi FMX图像简单滤波(中值、均值、高斯)
- delphi FMX用TImage显示不同格式的图片
- delphi FMX gridlayout与gridpannellayout
- delphi vcl图像的二值化
- fmx滤镜的中文翻译
- delphi xe7 fmx 复制到剪切板
- Delphi FMX Grid列头样式设定
- Delphi xe8 FMX StringGrid根据内容自适应列宽
- C++ typedef void *HANDLE
- 5倍经验日
- 设计模式学习笔记(0)-设计原则
- java基本数据类型的转换
- camera上电时序
- delphi FMX图像的二值化
- 查询转换
- 用户用户组及密码管理
- jdbc连接Oracle使用SID与SERVICE NAME的方法
- 机械公敌引发的人工智能思考
- Android 判断当前系统语言
- springmvc常用注解标签详解
- Eclipse使用导航
- python __call__类方法