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

            //一个象素点三个字节

            Gray := Round(p[x * 3 + 2] * 0.3 + p[x * 3 + 1] * 0.59 + p[x

                * 3] * 0.11);

            if gray > 128 then //全局阀值128

            begin

                p[x * 3] := 255;

                p[x * 3 + 1] := 255;

                p[x * 3 + 2] := 255;

            end

            else

            begin

                p[x * 3] := 0;

                p[x * 3 + 1] := 0;

                p[x * 3 + 2] := 0;

            end;

        end;

    end;

end;