delphi FMX图像的二值化

2017-10-26 19:51:58来源:CSDN作者:qq_38204686人点击

分享
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;

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台