[讨论] FB如何让头像变灰? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

百度来的头像变灰的方法,请高手转为FB可用的代码:

一.

procedure Gray(bmp: TBitmap);

var

p: PByteArray;

w: Integer;

i, j: Integer;

begin

bmp.pixelformat := pf24bit;

for i := 0 to bmp.height - 1 do

begin

p := bmp.scanline[i];

j := 0;

while j < (bmp.width-1) * 3 do

begin

w :=(p[j] * 28 + p[j+1] * 151 + p[j+2]*77);

w := w shr 8;

p[j] := byte(w);

p[j+1] := byte(w);

p[j+2] := byte(w);

inc(j, 3)

end;

二. 微软做好的，GDI+绘制代码：

Graphics graphics(hdc);

Image myImage(L"Image.jpg");

RectF source(0.0f, 0.0f, 330.0f, 300.0f);

RectF destination(20.0f, 20.0f, 330.0f, 300.0f);

DrawImage(graphics, &myImage, destination, source, UnitPixel, NULL); // 绘制原始图像

RectF destination2(420.0f, 20.0f, 330.0f, 300.0f);

#define GRAY 32/256.0f /* gray/full, 0 - 256 : black to white, 16 - 64 is recommended */

#define GRAY 0.125f /* 0.000 - 1.000 : black to white, 0.062 - 0.250 is recommended */

#define FULL 1.000f

#define ZERO 0.000f

// 自由转换

ColorMatrix matrix = {

GRAY, GRAY, GRAY, FULL, ZERO,

ZERO, ZERO, ZERO, ZERO, FULL,

};

ImageAttributes attributes;

attributes.SetColorMatrix(&matrix);

DrawImage(graphics, &myImage, destination2, source, UnitPixel, &attributes); // 绘制转换图像

DrawImage 是自定义函数

C/C++ code

void DrawImage(Graphics& graphics, Image* image, RectF& destination, RectF& source, Unit unit, ImageAttributes* attributes)

{

graphics.DrawImage(image, destination, source.X, source.Y, source.Width, source.Height, unit, attributes);

}

全局的apI 通不过哦

Windows.Forms.ControlPaint.DrawImageDisabled(Graphics.FromImage(图像), 图像, 0, 0, Color.Transparent) 直接使用这段代码就可以的了.

如果希望用代码实现,(可控性比较高) 可以参考我的代码. 可以实现任意灰度,反色颜色修改等.

Dim SImage As Image = Image.FromFile("C:\Users\foxtable1\Desktop\70b70d98-1228-4487-93a5-6f7056628d00.jpg")

Dim Height As Integer = SImage.Height

Dim Width As Integer = SImage.Width

Dim bitmap As Bitmap = new Bitmap(Width, Height)

Dim MyBitmap As Bitmap= SImage

Dim pixel As Color

For x As Integer = 0 To Width-1

For y As Integer = 0 To Height-1

pixel = MyBitmap.GetPixel(x, y)

Dim r As Integer = 0

Dim g As Integer = 0

Dim b As Integer = 0

Dim Result As Integer = 0

r = pixel.R

g = pixel.G

b = pixel.B

Dim iType As Integer = 2

Select Case iType

Case 0 '平均值法

Result = ((r + g + b) / 3)

Case 1 '最大值法

Result = IIF(r > g ,r , g)

Result = IIF(Result > b,Result,b)

Case 2 '加权平均值法

Result = ((0.7 * r) + (0.2 * g) + (0.1 * b))

End Select

bitmap.SetPixel(x, y, Color.FromArgb(Result, Result, Result))

bitmap.Save("C:\Users\foxtable1\Desktop\28d00.jpg")

高手动手了,学习!

Windows.Forms.ControlPaint.DrawImageDisabled(Graphics.FromImage(图像), 图像, 0, 0, Color.Transparent)

完整的语法是怎样的?

同问,不知如何设置保存位置 ,

Dim SImage As Image = Image.FromFile("D:\8d00.jpg")

Dim bcmage As Image = Image.SaveFile("D:\800.jpg") ' Image.SaveFile报错

主题：[讨论] FB如何让头像变灰?