//下面的程序用于将图片中的蓝色擦除（过滤）
type
PColorArray = ^TColorArray;
TColorArray = array[0..32767] of TColor;
procedure TForm1.Button1Click(Sender: TObject);
var
x,y : Integer;
BitMap : TBitMap;
P : PColorArray;
begin
BitMap := TBitMap.create;
BitMap.PixelFormat:=pf32bit;
try
BitMap.LoadFromFile('未命名.BMP');
for y := 0 to BitMap.Height -1 do
begin
P := BitMap.ScanLine[y];
Edit1.Text := IntToStr(P[0]);
for x := 0 to BitMap.Width -1 do
P[x] := (P[x] or clBlue) xor clBlue;
end;
Canvas.Draw(0,0,BitMap);
finally
BitMap.Free;
end;
end;
