如何将bmp 格式的图片中的黑色底色替换成白色并保存到文件？

[Demogodyou]

如何将bmp 格式的图片中的黑色底色替换成白色并保存到文件？

[阿发伯]

忘了增加p的地址，修改：

var
x, y: Integer;
p: PInteger;
bmp: TBitmap;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile('你的图像.bmp');
bmp.PixelFormat:=pf24bit;
for y := 0 to bmp.Height - 1 do
begin
p := bmp.ScanLine[y];
for x := 0 to bmp.Width - 1 do
begin
if P^ and $FFFFFF = 0 then
P^ := P^ or $FFFFFF;
Inc(p);
end;
end;
bmp.SaveToFile('另存为图像.bmp');
bmp.Free;
end;

[阿发伯]

晕，测试了一下，居然错误，再次修改：

var
  x, y: Integer;
  p: PInteger;
  bmp: TBitmap;
  pixelFormat: TPixelFormat;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('你的图像.bmp');
  pixelFormat := bmp.PixelFormat;
  bmp.PixelFormat := pf32bit;
  for y := 0 to bmp.Height - 1 do
  begin
    p := bmp.ScanLine[y];
    for x := 0 to bmp.Width - 1 do
    begin
      if (P^ and $FFFFFF) = 0 then
        P^ := P^ or $FFFFFF;
      Inc(p);
    end;
  end;
  bmp.PixelFormat := pixelFormat;
  bmp.SaveToFile('另存为图像.bmp');
  bmp.Free;
end;

[jacknes009]

楼上正解。。。。

var
x, y: Integer;
p: PInteger;
bmp: TBitmap;
pixelFormat: TPixelFormat;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile('你的图像.bmp');
pixelFormat := bmp.PixelFormat;
bmp.PixelFormat := pf32bit;
for y := 0 to bmp.Height - 1 do
begin
p := bmp.ScanLine[y];
for x := 0 to bmp.Width - 1 do
begin
if (P^ and $FFFFFF) = 0 then
P^ := P^ or $FFFFFF;
Inc(p);
end;
end;
bmp.PixelFormat := pixelFormat;
bmp.SaveToFile('另存为图像.bmp');
bmp.Free;
end;

[阿发伯]

用bmp.ScanLine逐点判断后修改，保存

[阿发伯]

没测试，供参考：

var
  x, y: Integer;
  p: PInteger;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('你的图像.bmp');
  bmp.PixelFormat := pf24bit;
  for y := 0 to bmp.Height - 1 do
  begin
    p := bmp.ScanLine[y];
    for x := 0 to bmp.Width - 1 do
      if P^ and $FFFFFF = 0 then
        P^ := P^ or $FFFFFF;
  end;
  bmp.SaveToFile('另存为图像.bmp');
  bmp.Free;
end;

[Demogodyou]

多谢多谢！