Delphi基本图像处理方法汇总

//浮雕procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;var i, j, Gray, Azimuthvalue, R, G, B: integer; SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple;begin for i := 0 to SrcBmp.Height - 1 do begin  SrcRGB := SrcBmp.ScanLine[i];  DestRGB := DestBmp.ScanLine[i];  if (AzimuthChange >= -180) and (AzimuthChange < -135) then  begin   if i > 0 then    SrcRGB1 := SrcBmp.ScanLine[i-1]   else    SrcRGB1 := SrcRGB;   Inc(SrcRGB1);   SrcRGB2 := SrcRGB;   Inc(SrcRGB2);  end  else if (AzimuthChange >= -135) and (AzimuthChange < -90) then  begin   if i > 0 then    SrcRGB1 := SrcBmp.ScanLine[i-1]   else    SrcRGB1 := SrcRGB;   SrcRGB2 := SrcRGB1;   Inc(SrcRGB2);  end  else if (AzimuthChange >= -90) and (AzimuthChange < -45) then  begin   if i > 0 then    SrcRGB1 := SrcBmp.ScanLine[i-1]   else    SrcRGB1 := SrcRGB;   SrcRGB2 := SrcRGB1;  end  else if (AzimuthChange >= -45) and (AzimuthChange < 0) then  begin   SrcRGB1 := SrcRGB;   if i > 0 then    SrcRGB2 := SrcBmp.ScanLine[i-1]   else    SrcRGB2 := SrcRGB;  end  else if (AzimuthChange >= 0) and (AzimuthChange < 45) then  begin   SrcRGB2 := SrcRGB;   if (i < SrcBmp.Height - 1) then    SrcRGB1 := SrcBmp.ScanLine[i+1]   else    SrcRGB1 := SrcRGB;  end  else if (AzimuthChange >= 45) and (AzimuthChange < 90) then  begin   if (i < SrcBmp.Height - 1) then    SrcRGB1 := SrcBmp.ScanLine[i+1]   else    SrcRGB1 := SrcRGB;   SrcRGB2 := SrcRGB1;  end  else if (AzimuthChange >= 90) and (AzimuthChange < 135) then  begin   if (i < SrcBmp.Height - 1) then    SrcRGB1 := SrcBmp.ScanLine[i+1]   else    SrcRGB1 := SrcRGB;   SrcRGB2 := SrcRGB1;   Inc(SrcRGB1);  end  else if (AzimuthChange >= 135) and (AzimuthChange <= 180) then  begin   if (i < SrcBmp.Height - 1) then    SrcRGB2 := SrcBmp.ScanLine[i+1]   else    SrcRGB2 := SrcRGB;   Inc(SrcRGB2);   SrcRGB1 := SrcRGB;   Inc(SrcRGB1);  end;  for j := 0 to SrcBmp.Width - 1 do  begin   if (AzimuthChange >= -180) and (AzimuthChange < -135) then   begin    Azimuthvalue := AzimuthChange + 180;    R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;    G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;    B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;   end   else if (AzimuthChange >= -135) and (AzimuthChange < -90) then   begin    Azimuthvalue := AzimuthChange + 135;    R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;    G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;    B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;   end   else if (AzimuthChange >= -90) and (AzimuthChange < -45) then   begin    if j=1 then Inc(SrcRGB1,-1);    Azimuthvalue := AzimuthChange + 90;    R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;    G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;    B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;   end   else if (AzimuthChange >= -45) and (AzimuthChange < 0) then   begin    if j=1 then    begin     Inc(SrcRGB1,-1);     Inc(SrcRGB2,-1);    end;    Azimuthvalue := AzimuthChange + 45;    R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;    G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;    B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;   end   else if (AzimuthChange >= 0) and (AzimuthChange < 45) then   begin    if j=1 then    begin     Inc(SrcRGB1,-1);     Inc(SrcRGB2,-1);    end;    Azimuthvalue := AzimuthChange;    R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;    G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;    B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;   end   else if (AzimuthChange >= 45) and (AzimuthChange < 90) then   begin    if j=1 then Inc(SrcRGB2,-1);    Azimuthvalue := AzimuthChange - 45;    R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;    G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;    B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;   end   else if (AzimuthChange >= 90) and (AzimuthChange < 135) then   begin    Azimuthvalue := AzimuthChange - 90;    R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;    G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;    B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;   end   else if (AzimuthChange >= 135) and (AzimuthChange <= 180) then   begin    Azimuthvalue := AzimuthChange - 135;    R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;    G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;    B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;   end;   R:=Min(R,255);   R:=Max(R,0);   G:=Min(G,255);   G:=Max(G,0);   B:=Min(B,255);   B:=Max(B,0);   Gray := (R shr 2) + (R shr 4) + (G shr 1) + (G shr 4) + (B shr 3);   DestRGB.rgbtRed:=Gray;   DestRGB.rgbtGreen:=Gray;   DestRGB.rgbtBlue:=Gray;   if (j=-180) and (AzimuthChange<-135)) or ((AzimuthChange>=90) and (AzimuthChange<=180))) then   begin    Inc(SrcRGB1);   end;   if (j=135) and (AzimuthChange<180)) or ((AzimuthChange>=-180) and (AzimuthChange<=-90))) then   begin    Inc(SrcRGB2);   end;   Inc(SrcRGB);   Inc(DestRGB);  end; end;end;procedure Emboss(Bmp:TBitmap;AzimuthChange:integer;ElevationChange:integer;WeightChange:integer);overload;var DestBmp:TBitmap;begin　　DestBmp:=TBitmap.Create;　　DestBmp.Assign(Bmp);　　Emboss(Bmp,DestBmp,AzimuthChange,ElevationChange,WeightChange);　　Bmp.Assign(DestBmp);end;//反色procedure Negative(Bmp:TBitmap);var i, j: Integer; PRGB: pRGBTriple;begin Bmp.PixelFormat:=pf24Bit; for i := 0 to Bmp.Height - 1 do begin  PRGB := Bmp.ScanLine[i];  for j := 0 to Bmp.Width - 1 do  begin   PRGB^.rgbtRed :=not PRGB^.rgbtRed ;   PRGB^.rgbtGreen :=not PRGB^.rgbtGreen;   PRGB^.rgbtBlue :=not PRGB^.rgbtBlue;   Inc(PRGB);  end; end;end;//曝光procedure Exposure(Bmp:TBitmap);var i, j: integer; PRGB: pRGBTriple;begin Bmp.PixelFormat:=pf24Bit; for i := 0 to Bmp.Height - 1 do begin  PRGB := Bmp.ScanLine[i];  for j := 0 to Bmp.Width - 1 do  begin   if PRGB^.rgbtRed<128 then    PRGB^.rgbtRed :=not PRGB^.rgbtRed ;   if PRGB^.rgbtGreen<128 then    PRGB^.rgbtGreen :=not PRGB^.rgbtGreen;   if PRGB^.rgbtBlue<128 then    PRGB^.rgbtBlue :=not PRGB^.rgbtBlue;   Inc(PRGB);  end; end;end;//模糊procedure Blur(SrcBmp:TBitmap);var i, j:Integer; SrcRGB:pRGBTriple; SrcNextRGB:pRGBTriple; SrcPreRGB:pRGBTriple; Value:Integer; procedure IncRGB; begin  Inc(SrcPreRGB);  Inc(SrcRGB);  Inc(SrcNextRGB); end; procedure DecRGB; begin  Inc(SrcPreRGB,-1);  Inc(SrcRGB,-1);  Inc(SrcNextRGB,-1); end;begin SrcBmp.PixelFormat:=pf24Bit; for i := 0 to SrcBmp.Height - 1 do begin  if i > 0 then   SrcPreRGB:=SrcBmp.ScanLine[i-1]  else   SrcPreRGB := SrcBmp.ScanLine[i];  SrcRGB := SrcBmp.ScanLine[i];  if i < SrcBmp.Height - 1 then   SrcNextRGB:=SrcBmp.ScanLine[i+1]  else   SrcNextRGB:=SrcBmp.ScanLine[i];  for j := 0 to SrcBmp.Width - 1 do  begin   if j > 0 then DecRGB;   Value:=SrcPreRGB.rgbtRed+SrcRGB.rgbtRed+SrcNextRGB.rgbtRed;   if j > 0 then IncRGB;   Value:=Value+SrcPreRGB.rgbtRed+SrcRGB.rgbtRed+SrcNextRGB.rgbtRed;   if j < SrcBmp.Width - 1 then IncRGB;   Value:=(Value+SrcPreRGB.rgbtRed+SrcRGB.rgbtRed+SrcNextRGB.rgbtRed) div 9;   DecRGB;   SrcRGB.rgbtRed:=value;   if j > 0 then DecRGB;   Value:=SrcPreRGB.rgbtGreen+SrcRGB.rgbtGreen+SrcNextRGB.rgbtGreen;   if j > 0 then IncRGB;   Value:=Value+SrcPreRGB.rgbtGreen+SrcRGB.rgbtGreen+SrcNextRGB.rgbtGreen;   if j < SrcBmp.Width - 1 then IncRGB;   Value:=(Value+SrcPreRGB.rgbtGreen+SrcRGB.rgbtGreen+SrcNextRGB.rgbtGreen) div 9;   DecRGB;   SrcRGB.rgbtGreen:=value;   if j > 0 then DecRGB;   Value:=SrcPreRGB.rgbtBlue+SrcRGB.rgbtBlue+SrcNextRGB.rgbtBlue;   if j > 0 then IncRGB;   Value:=Value+SrcPreRGB.rgbtBlue+SrcRGB.rgbtBlue+SrcNextRGB.rgbtBlue;   if j < SrcBmp.Width - 1 then IncRGB;   Value:=(Value+SrcPreRGB.rgbtBlue+SrcRGB.rgbtBlue+SrcNextRGB.rgbtBlue) div 9;   DecRGB;   SrcRGB.rgbtBlue:=value;   IncRGB;  end; end;end;//锐化procedure Sharpen(SrcBmp:TBitmap);var i, j: integer; SrcRGB: pRGBTriple; SrcPreRGB: pRGBTriple; Value: integer;begin SrcBmp.PixelFormat:=pf24Bit; for i := 0 to SrcBmp.Height - 1 do begin  SrcRGB := SrcBmp.ScanLine[i];  if i > 0 then   SrcPreRGB:=SrcBmp.ScanLine[i-1]  else   SrcPreRGB:=SrcBmp.ScanLine[i];  for j := 0 to SrcBmp.Width - 1 do  begin   if j = 1 then Dec(SrcPreRGB);   Value:=SrcRGB.rgbtRed+(SrcRGB.rgbtRed-SrcPreRGB.rgbtRed) div 2;   Value:=Max(0,Value);   Value:=Min(255,Value);   SrcRGB.rgbtRed:=value;   Value:=SrcRGB.rgbtGreen+(SrcRGB.rgbtGreen-SrcPreRGB.rgbtGreen) div 2;   Value:=Max(0,Value);   Value:=Min(255,Value);   SrcRGB.rgbtGreen:=value;   Value:=SrcRGB.rgbtBlue+(SrcRGB.rgbtBlue-SrcPreRGB.rgbtBlue) div 2;   Value:=Max(0,Value);   Value:=Min(255,Value);   SrcRGB.rgbtBlue:=value;   Inc(SrcRGB);   Inc(SrcPreRGB);  end; end;end; [图像的旋转和翻转]以下代码用ScanLine配合指针移动实现，用于24位色！//旋转90度procedure Rotate90(const Bitmap:TBitmap);var i,j:Integer; rowIn,rowOut:pRGBTriple; Bmp:TBitmap; Width,Height:Integer;begin Bmp:=TBitmap.Create; Bmp.Width := Bitmap.Height; Bmp.Height := Bitmap.Width; Bmp.PixelFormat := pf24bit; Width:=Bitmap.Width-1; Height:=Bitmap.Height-1; for j := 0 to Height do begin  rowIn := Bitmap.ScanLine[j];  for i := 0 to Width do  begin   rowOut := Bmp.ScanLine[i];   Inc(rowOut,Height - j);   rowOut^ := rowIn^;   Inc(rowIn);  end; end; Bitmap.Assign(Bmp);end;//旋转180度procedure Rotate180(const Bitmap:TBitmap);var i,j:Integer; rowIn,rowOut:pRGBTriple; Bmp:TBitmap; Width,Height:Integer;begin Bmp:=TBitmap.Create; Bmp.Width := Bitmap.Width; Bmp.Height := Bitmap.Height; Bmp.PixelFormat := pf24bit; Width:=Bitmap.Width-1; Height:=Bitmap.Height-1; for j := 0 to Height do begin  rowIn := Bitmap.ScanLine[j];  for i := 0 to Width do  begin   rowOut := Bmp.ScanLine[Height - j];   Inc(rowOut,Width - i);   rowOut^ := rowIn^;   Inc(rowIn);  end; end; Bitmap.Assign(Bmp);end;//旋转270度procedure Rotate270(const Bitmap:TBitmap);var i,j:Integer; rowIn,rowOut:pRGBTriple; Bmp:TBitmap; Width,Height:Integer;begin Bmp:=TBitmap.Create; Bmp.Width := Bitmap.Height; Bmp.Height := Bitmap.Width; Bmp.PixelFormat := pf24bit; Width:=Bitmap.Width-1; Height:=Bitmap.Height-1; for j := 0 to Height do begin  rowIn := Bitmap.ScanLine[j];  for i := 0 to Width do  begin   rowOut := Bmp.ScanLine[Width - i];   Inc(rowOut,j);   rowOut^ := rowIn^;   Inc(rowIn);  end; end; Bitmap.Assign(Bmp);end;//任意角度function RotateBitmap(Bitmap:TBitmap;Angle:Integer;BackColor:TColor):TBitmap;var i,j,iOriginal,jOriginal,CosPoint,SinPoint : integer; RowOriginal,RowRotated : pRGBTriple; SinTheta,CosTheta : Extended; AngleAdd : integer;begin Result:=TBitmap.Create; Result.PixelFormat := pf24bit; Result.Canvas.Brush.Color:=BackColor; Angle:=Angle Mod 360; if Angle<0 then Angle:=360-Abs(Angle); if Angle=0 then  Result.Assign(Bitmap) else if Angle=90 then begin  Result.Assign(Bitmap);  Rotate90(Result);//如果是旋转90度，直接调用上面的代码 end else if (Angle>90) and (Angle<180) then begin  AngleAdd:=90;  Angle:=Angle-AngleAdd; end else if Angle=180 then begin  Result.Assign(Bitmap);  Rotate180(Result);//如果是旋转180度，直接调用上面的过程 end else if (Angle>180) and (Angle<270) then begin  AngleAdd:=180;  Angle:=Angle-AngleAdd; end else if Angle=270 then begin  Result.Assign(Bitmap);  Rotate270(Result);//如果是旋转270度，直接调用上面的过程 end else if (Angle>270) and (Angle<360) then begin  AngleAdd:=270;  Angle:=Angle-AngleAdd; end else  AngleAdd:=0; if (Angle>0) and (Angle<90) then begin SinCos((Angle + AngleAdd) * Pi / 180, SinTheta, CosTheta); if (SinTheta * CosTheta) < 0 then begin  Result.Width := Round(Abs(Bitmap.Width * CosTheta - Bitmap.Height * SinTheta));  Result.Height := Round(Abs(Bitmap.Width * SinTheta - Bitmap.Height * CosTheta)); end else begin  Result.Width := Round(Abs(Bitmap.Width * CosTheta + Bitmap.Height * SinTheta));  Result.Height := Round(Abs(Bitmap.Width * SinTheta + Bitmap.Height * CosTheta)); end; CosTheta:=Abs(CosTheta); SinTheta:=Abs(SinTheta); if (AngleAdd=0) or (AngleAdd=180) then begin  CosPoint:=Round(Bitmap.Height*CosTheta);  SinPoint:=Round(Bitmap.Height*SinTheta); end else begin  SinPoint:=Round(Bitmap.Width*CosTheta);  CosPoint:=Round(Bitmap.Width*SinTheta); end; for j := 0 to Result.Height-1 do begin  RowRotated := Result.Scanline[j];  for i := 0 to Result.Width-1 do  begin   Case AngleAdd of    0:    begin     jOriginal := Round((j+1)*CosTheta-(i+1-SinPoint)*SinTheta)-1;     iOriginal := Round((i+1)*CosTheta-(CosPoint-j-1)*SinTheta)-1;    end;    90:    begin     iOriginal := Round((j+1)*SinTheta-(i+1-SinPoint)*CosTheta)-1;     jOriginal := Bitmap.Height-Round((i+1)*SinTheta-(CosPoint-j-1)*CosTheta);    end;    180:    begin     jOriginal := Bitmap.Height-Round((j+1)*CosTheta-(i+1-SinPoint)*SinTheta);     iOriginal := Bitmap.Width-Round((i+1)*CosTheta-(CosPoint-j-1)*SinTheta);    end;    270:    begin     iOriginal := Bitmap.Width-Round((j+1)*SinTheta-(i+1-SinPoint)*CosTheta);     jOriginal := Round((i+1)*SinTheta-(CosPoint-j-1)*CosTheta)-1;    end;   end;   if (iOriginal >= 0) and (iOriginal <= Bitmap.Width-1)and     (jOriginal >= 0) and (jOriginal <= Bitmap.Height-1)   then   begin    RowOriginal := Bitmap.Scanline[jOriginal];    Inc(RowOriginal,iOriginal);    RowRotated^ := RowOriginal^;    Inc(RowRotated);   end   else   begin    Inc(RowRotated);   end;  end; end; end;end;//水平翻转procedure FlipHorz(const Bitmap:TBitmap);var i,j:Integer; rowIn,rowOut:pRGBTriple; Bmp:TBitmap; Width,Height:Integer;begin Bmp:=TBitmap.Create; Bmp.Width := Bitmap.Width; Bmp.Height := Bitmap.Height; Bmp.PixelFormat := pf24bit; Width:=Bitmap.Width-1; Height:=Bitmap.Height-1; for j := 0 to Height do begin  rowIn := Bitmap.ScanLine[j];  for i := 0 to Width do  begin   rowOut := Bmp.ScanLine[j];   Inc(rowOut,Width - i);   rowOut^ := rowIn^;   Inc(rowIn);  end; end; Bitmap.Assign(Bmp);end;//垂直翻转procedure FlipVert(const Bitmap:TBitmap);var i,j:Integer; rowIn,rowOut:pRGBTriple; Bmp:TBitmap; Width,Height:Integer;begin Bmp:=TBitmap.Create; Bmp.Width := Bitmap.Height; Bmp.Height := Bitmap.Width; Bmp.PixelFormat := pf24bit; Width:=Bitmap.Width-1; Height:=Bitmap.Height-1; for j := 0 to Height do begin  rowIn := Bitmap.ScanLine[j];  for i := 0 to Width do  begin   rowOut := Bmp.ScanLine[Height - j];   Inc(rowOut,i);   rowOut^ := rowIn^;   Inc(rowIn);  end; end; Bitmap.Assign(Bmp);end;[亮度、对比度、饱和度的调整]以下代码用ScanLine配合指针移动实现！function Min(a, b: integer): integer;begin if a < b then  result := a else  result := b;end;function Max(a, b: integer): integer;begin if a > b then  result := a else  result := b;end;//亮度调整procedure BrightnessChange(const SrcBmp,DestBmp:TBitmap;ValueChange:integer);var i, j: integer; SrcRGB, DestRGB: pRGBTriple;begin for i := 0 to SrcBmp.Height - 1 do begin  SrcRGB := SrcBmp.ScanLine[i];  DestRGB := DestBmp.ScanLine[i];  for j := 0 to SrcBmp.Width - 1 do  begin   if ValueChange > 0 then   begin    DestRGB.rgbtRed := Min(255, SrcRGB.rgbtRed + ValueChange);    DestRGB.rgbtGreen := Min(255, SrcRGB.rgbtGreen + ValueChange);    DestRGB.rgbtBlue := Min(255, SrcRGB.rgbtBlue + ValueChange);   end else begin    DestRGB.rgbtRed := Max(0, SrcRGB.rgbtRed + ValueChange);    DestRGB.rgbtGreen := Max(0, SrcRGB.rgbtGreen + ValueChange);    DestRGB.rgbtBlue := Max(0, SrcRGB.rgbtBlue + ValueChange);   end;   Inc(SrcRGB);   Inc(DestRGB);  end; end;end;//对比度调整procedure ContrastChange(const SrcBmp,DestBmp:TBitmap;ValueChange:integer);var i, j: integer; SrcRGB, DestRGB: pRGBTriple;begin for i := 0 to SrcBmp.Height - 1 do begin  SrcRGB := SrcBmp.ScanLine[i];  DestRGB := DestBmp.ScanLine[i];  for j := 0 to SrcBmp.Width - 1 do  begin   if ValueChange>=0 then   begin   if SrcRGB.rgbtRed >= 128 then    DestRGB.rgbtRed := Min(255, SrcRGB.rgbtRed + ValueChange)   else    DestRGB.rgbtRed := Max(0, SrcRGB.rgbtRed - ValueChange);   if SrcRGB.rgbtGreen >= 128 then    DestRGB.rgbtGreen := Min(255, SrcRGB.rgbtGreen + ValueChange)   else    DestRGB.rgbtGreen := Max(0, SrcRGB.rgbtGreen - ValueChange);   if SrcRGB.rgbtBlue >= 128 then    DestRGB.rgbtBlue := Min(255, SrcRGB.rgbtBlue + ValueChange)   else    DestRGB.rgbtBlue := Max(0, SrcRGB.rgbtBlue - ValueChange);   end   else   begin   if SrcRGB.rgbtRed >= 128 then    DestRGB.rgbtRed := Max(128, SrcRGB.rgbtRed + ValueChange)   else    DestRGB.rgbtRed := Min(128, SrcRGB.rgbtRed - ValueChange);   if SrcRGB.rgbtGreen >= 128 then    DestRGB.rgbtGreen := Max(128, SrcRGB.rgbtGreen + ValueChange)   else    DestRGB.rgbtGreen := Min(128, SrcRGB.rgbtGreen - ValueChange);   if SrcRGB.rgbtBlue >= 128 then    DestRGB.rgbtBlue := Max(128, SrcRGB.rgbtBlue + ValueChange)   else    DestRGB.rgbtBlue := Min(128, SrcRGB.rgbtBlue - ValueChange);   end;   Inc(SrcRGB);   Inc(DestRGB);  end; end;end;//饱和度调整procedure SaturationChange(const SrcBmp,DestBmp:TBitmap;ValueChange:integer);var  Grays: array[0..767] of Integer; Alpha: array[0..255] of Word; Gray, x, y: Integer; SrcRGB,DestRGB: pRGBTriple; i: Byte;beginValueChange:=ValueChange+255;for i := 0 to 255 do Alpha[i] := (i * ValueChange) Shr 8;x := 0;for i := 0 to 255 dobegin  Gray := i - Alpha[i]; Grays[x] := Gray; Inc(x); Grays[x] := Gray; Inc(x); Grays[x] := Gray; Inc(x);end; for y := 0 to SrcBmp.Height - 1 dobegin SrcRGB := SrcBmp.ScanLine[Y]; DestRGB := DestBmp.ScanLine[Y]; for x := 0 to SrcBmp.Width - 1 do begin  Gray := Grays[SrcRGB.rgbtRed + SrcRGB.rgbtGreen + SrcRGB.rgbtBlue];  if Gray + Alpha[SrcRGB.rgbtRed]>0 then   DestRGB.rgbtRed := Min(255,Gray + Alpha[SrcRGB.rgbtRed])  else   DestRGB.rgbtRed := 0;  if Gray + Alpha[SrcRGB.rgbtGreen]>0 then   DestRGB.rgbtGreen := Min(255,Gray + Alpha[SrcRGB.rgbtGreen])  else   DestRGB.rgbtGreen := 0;  if Gray + Alpha[SrcRGB.rgbtBlue]>0 then   DestRGB.rgbtBlue := Min(255,Gray + Alpha[SrcRGB.rgbtBlue])  else   DestRGB.rgbtBlue := 0;  Inc(SrcRGB);  Inc(DestRGB); end;end; end;//RGB调整procedure RGBChange(SrcBmp,DestBmp:TBitmap;RedChange,GreenChange,BlueChange:integer);var SrcRGB, DestRGB: pRGBTriple; i,j:integer;begin for i := 0 to SrcBmp.Height- 1 do begin  SrcRGB := SrcBmp.ScanLine[i];  DestRGB :=DestBmp.ScanLine[i];  for j := 0 to SrcBmp.Width - 1 do  begin   if RedChange> 0 then    DestRGB.rgbtRed := Min(255, SrcRGB.rgbtRed + RedChange)   else    DestRGB.rgbtRed := Max(0, SrcRGB.rgbtRed + RedChange);   if GreenChange> 0 then    DestRGB.rgbtGreen := Min(255, SrcRGB.rgbtGreen + GreenChange)   else    DestRGB.rgbtGreen := Max(0, SrcRGB.rgbtGreen + GreenChange);   if BlueChange> 0 then    DestRGB.rgbtBlue := Min(255, SrcRGB.rgbtBlue + BlueChange)   else    DestRGB.rgbtBlue := Max(0, SrcRGB.rgbtBlue + BlueChange);   Inc(SrcRGB);   Inc(DestRGB);  end; end;end;[颜色调整]//RGB<=>BGRprocedure RGB2BGR(const Bitmap:TBitmap);var  X: Integer;  Y: Integer; PRGB: pRGBTriple; Color: Byte;begin for Y := 0 to (Bitmap.Height - 1) do begin  for X := 0 to (Bitmap.Width - 1) do  begin   Color := PRGB^.rgbtRed;   PRGB^.rgbtRed := PRGB^.rgbtBlue;   PRGB^.rgbtBlue := Color;   Inc(PRGB);  end;  end end;end;//灰度化(加权)procedure Grayscale(const Bitmap:TBitmap);var  X: Integer;  Y: Integer;  PRGB: pRGBTriple; Gray: Byte;begin for Y := 0 to (Bitmap.Height - 1) do begin  PRGB := Bitmap.ScanLine[Y];  for X := 0 to (Bitmap.Width - 1) do  begin   Gray := (77 * Red + 151 * Green + 28 * Blue) shr 8;   PRGB^.rgbtRed:=Gray;   PRGB^.rgbtGreen:=Gray;   PRGB^.rgbtBlue:=Gray;   Inc(PRGB);  end; end;end;

aw=Round(PZoom*sw/100);ah=Round(PZoom*sh/100);p1=aw/pwp2=ah/ph// 注：Round 用于取整，如其他语言的Int(),Fix()等if p1>1 then w=Round(sw/p1) else w=swif p2>1 then h=Round(sh/p2) else h=sh// 注：shr 为右移运算符，可以使用“>>1”、“div 2”、“/2”或“Round(w/2)”代替x=a-w shr 1y=b-h shr 1// 注：div 为整除运算符ptx=(w*PZoom) div 100pty=(h*PZoom) div 100// 以下计算在绘图区显示的图像大小和位置

  Pencent:double; // 缩放比  wx:double;    // 宽缩放比  hx:double;    // 高缩放比  // 获得缩放比  wx:=pw/ptx  hx:=ph/pty  if wx>hx then Pencent:=hx  else     Pencent:=wx;  // 获得图片最后的大小  vw:=Round(Pencent*ptx);  vh:=Round(Pencent*pty);  // 计算出图片的位置  vx:=(pw-vw) div 2;  vy:=(ph-vh) div 2;// ------------------------------------

sDC 为原始图片的设备句柄(DC)tDC 为临时设备句柄dDC 最终设备句柄BitBlt(tDC,0,0,w,h,sDC,0,0,SRCCOPY);SetStretchBltMode(dDC,STRETCH_DELETESCANS);StretchBlt(dDC,0,0,vw,vh,tDC,0,0,w,h,SRCCOPY);

BitBlt(GetDC(0),vx,vy,vx+vw,xy+vh,dDC,0,0,SRCCOPY);

FBeginDragPoint  :TPoint;     // 记录鼠标开始拖动的位置FBeginDragSBPoint :TPoint;     // 记录“中心点”位置FBeginDrag    :boolean;    // 是否已经开始“拖动”a,b        :integer;    // “中心点”位置

a=FBeginDragPoint.X-((X-FBeginDragPoint.X)*100) div PZoomb=FBeginDragPoint.Y-((Y-FBeginDragPoint.Y)*100) div PZoom

  bitImage:=TBitmap.Create;  bitImage.PixelFormat:=pf24bit;  bitImage.ReleaseHandle;

var  p1,p2    :double;begin  p1:=pw/sw;  p2:=ph/sw;  if p1>p2 then PZoom:=Round(p2*100)  else     PZoom:=Round(p1*100);  if PZoom=0 then PZoom:=100;end;

　　unit untBitmapProc;　　interface　　uses Graphics, SysUtils;　　type　　TVczhBitmap=class(TBitmap)　　private　　Data:PByteArray;　　Line:Integer;　　procedure SetFormat;　　function GetBytePointer(X,Y:Integer):PByte;　　procedure SetBytes(X,Y:Integer;Value:Byte);　　function GetBytes(X,Y:Integer):Byte;　　protected　　published　　constructor Create;　　public　　property Bytes[X,Y:Integer]:Byte read GetBytes write SetBytes;　　procedure LoadFromFile(FileName:String);　　procedure ToGray;　　end;　　implementation　　procedure TVczhBitmap.SetFormat;　　begin　　HandleType:=bmDIB;　　PixelFormat:=pf24bit;　　end;　　function TVczhBitmap.GetBytePointer(X,Y:Integer):PByte;　　begin　　if Line<>Y then　　begin　　Line:=Y;　　Data:=ScanLine[Y];　　end;　　Longint(result):=Longint(Data)+X;　　end;　　procedure TVczhBitmap.SetBytes(X,Y:Integer;Value:Byte);　　begin　　GetBytePointer(X,Y)^:=Value;　　end;　　function TVczhBitmap.GetBytes(X,Y:Integer):Byte;　　begin　　result:=GetBytePointer(X,Y)^;　　end;　　constructor TVczhBitmap.Create;　　begin　　inherited Create;　　SetFormat;　　Line:=-1;　　end;　　procedure TVczhBitmap.LoadFromFile(FileName:String);　　begin　　inherited LoadFromFile(FileName);　　SetFormat;　　Line:=-1;　　end;　　procedure TVczhBitmap.ToGray;　　var X,Y,R:Integer;　　B:Byte;　　begin　　for Y:=0 to Height-1 do　　for X:=0 to Width-1 do　　begin　　R:=0;　　for B:=0 to 2 do　　R:=R+GetBytes(X*3+B,Y);　　for B:=0 to 2 do　　SetBytes(X*3+B,Y,R div 3);　　end;　　end;　　end.

　　unit untProc;　　interface　　uses　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, ExtCtrls, untBitmapProc, StdCtrls, ComCtrls;　　type　　TfrmProcessor = class(TForm)　　pbBar: TPaintBox;　　gpProc: TGroupBox;　　Button1: TButton;　　procedure FormCreate(Sender: TObject);　　procedure FormDestroy(Sender: TObject);　　procedure FormShow(Sender: TObject);　　procedure pbBarPaint(Sender: TObject);　　procedure Button1Click(Sender: TObject);　　private　　{ Private declarations }　　public　　{ Public declarations }　　BarData:array[0..255]of Byte;　　Bar:TVczhBitmap;　　procedure DrawBar;　　end;　　var　　frmProcessor: TfrmProcessor;　　implementation　　{$R *.dfm}　　uses untViewer;　　procedure TfrmProcessor.DrawBar;　　var I:Integer;　　begin　　Bar.Canvas.FillRect(Bar.Canvas.ClipRect);　　Bar.Canvas.MoveTo(0,255-BarData[0]);　　for I:=1 to 255 do　　Bar.Canvas.LineTo(I,255-BarData[I]);　　end;　　procedure TfrmProcessor.FormCreate(Sender: TObject);　　begin　　Bar:=TVczhBitmap.Create;　　Bar.Width:=256;　　Bar.Height:=256;　　Bar.Canvas.Brush.Color:=clWhite;　　Bar.Canvas.Brush.Style:=bsSolid;　　end;　　procedure TfrmProcessor.FormDestroy(Sender: TObject);　　begin　　Bar.Free;　　end;　　procedure TfrmProcessor.FormShow(Sender: TObject);　　var I:Integer;　　begin　　for I:=0 to 255 do　　BarData[I]:=I;　　DrawBar;　　end;　　procedure TfrmProcessor.pbBarPaint(Sender: TObject);　　begin　　pbBar.Canvas.Draw(0,0,Bar);　　end;　　procedure TfrmProcessor.Button1Click(Sender: TObject);　　var X,Y:Integer;　　begin　　for Y:=0 to Buffer.Height-1 do　　for X:=0 to Buffer.Width*3-1 do　　Played.Bytes[X,Y]:=BarData[Buffer.Bytes[X,Y]];　　frmViewer.FormPaint(frmViewer);　　end;　　end.

　　var I:Integer;　　begin　　inherited;　　for I:=0 to 255 do　　BarData[I]:=255-I;//用255减去该颜色值　　DrawBar;　　pbBarPaint(pbBar);　　end;

　　var I:Integer;　　begin　　for I:=0 to 255 do　　BarData[I]:=(255-sbMin.Position)+Round((sbMin.Position-sbMax.Position)/255*I);　　DrawBar;　　pbBarPaint(pbBar);　　Button1Click(Button1);　　end;

　　var I:Integer;　　begin　　for I:=0 to 255 do　　begin　　if I<=sbMin.Position then　　BarData[I]:=0　　else if I>=sbMax.Position then　　BarData[I]:=255　　else　　BarData[I]:=Round(255/(sbMax.Position-sbMin.Position)*(I-sbMin.Position));　　end;　　DrawBar;　　pbBarPaint(pbBar);　　Button1Click(Button1);　　end;

　　New=(Old/255)^c*255=exp(ln(old/255)*c)*255　　var ea,eb,ec:Extended;　　I:Integer;　　begin　　ea:=A/255;　　eb:=B/255;　　ec:=Ln(eb)/Ln(ea);　　for I:=1 to 255 do　　BarData[I]:=Round(Exp(Ln((I/255))*ec)*255);　　DrawBar;　　pbBarPaint(pbBar);　　Button1Click(Button1);　　end;

procedure tform1.button1click(sender: tobject); var newbmp: tbitmap; i,bmpheight,bmpwidth:integer; begin newbmp:= tbitmap.create; newbmp.width:=image1.width; newbmp.height:=image1.height; bmpheight:=image1.height; bmpwidth:=image1.width; for i:=0 to bmpheight do begin newbmp.canvas.copyrect(rect (0,bmpheight-i,bmpwidth,bmpheight), image1.canvas, rect(0,0,bmpwidth,i)); form1.canvas.draw(120,100,newbmp); end; newbmp.free; end; 

procedure tform1.button4click(sender: tobject); var newbmp:tbitmap; i,j,bmpheight,bmpwidth:integer; begin newbmp:= tbitmap.create; newbmp.width:=image1.width; newbmp.height:=image1.height; bmpheight:=image1.height; bmpwidth:=image1.width; i:=0; while i< =bmpheight do begin j:=i; while j >0 do begin newbmp.canvas.copyrect(rect(0,j-1,bmpwidth,j), image1.canvas, rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j)); newbmp.canvas.copyrect(rect (0,bmpheight-j,bmpwidth,bmpheight-j+1), image1.canvas, rect(0,i-j,bmpwidth,i-j+1)); j:=j-2; end; form1.canvas.draw(120,100,newbmp); i:=i+2; end; newbmp.free; end; 

procedure tform1.button5click(sender: tobject); var newbmp:tbitmap; i,j,bmpheight,bmpwidth:integer; begin newbmp:= tbitmap.create; newbmp.width:=image1.width; newbmp.height:=image1.height; bmpheight:=image1.height; bmpwidth:=image1.width; i:=0; while i< =bmpwidth do begin j:=i; while j >0 do begin newbmp.canvas.copyrect(rect(j-1,0,j,bmpheight), image1.canvas, rect(bmpwidth-i+j-1,0,bmpwidth-i+j,bmpheight)); newbmp.canvas.copyrect(rect (bmpwidth-j,0,bmpwidth-j+1,bmpheight), image1.canvas, rect(i-j,0,i-j+1,bmpheight)); j:=j-2; end; form1.canvas.draw(120,100,newbmp); i:=i+2; end; newbmp.free; end;

procedure tform1.button3click(sender: tobject); var newbmp:tbitmap; i,j,bmpheight,bmpwidth:integer; begin newbmp:= tbitmap.create; newbmp.width:=image1.width; newbmp.height:=image1.height; bmpheight:=image1.height; bmpwidth:=image1.width; for i:=bmpheight downto 1 do for j:=1 to i do begin newbmp.canvas.copyrect(rect(0,j-1,bmpwidth,j), image1.canvas, rect(0,i-1,bmpwidth,i)); form1.canvas.draw(120,100,newbmp); end; newbmp.free; end; 

procedure tform1.button6click(sender: tobject); var newbmp:tbitmap; i,j,bmpheight,bmpwidth:integer; xgroup,xcount:integer; begin newbmp:= tbitmap.create; newbmp.width:=image1.width; newbmp.height:=image1.height; bmpheight:=image1.height; bmpwidth:=image1.width; xgroup:=16; xcount:=bmpheight div xgroup; for i:=0 to xcount do for j:=0 to xgroup do begin newbmp.canvas.copyrect(rect (0,xcount*j+i-1,bmpwidth,xcount*j+i), image1.canvas, rect(0,xcount*j+i-1,bmpwidth,xcount*j+i)); form1.canvas.draw(120,100,newbmp); end; newbmp.free; end; 

procedure tform1.button7click(sender: tobject); var newbmp:tbitmap; i,j,bmpheight,bmpwidth:integer; begin newbmp:= tbitmap.create; newbmp.width:=image1.width; newbmp.height:=image1.height; bmpheight:=image1.height; bmpwidth:=image1.width; i:=bmpheight; while i>0 do begin for j:=10 to i do begin newbmp.canvas.copyrect(rect(0,j-10,bmpwidth,j), image1.canvas, rect(0,i-10,bmpwidth,i)); form1.canvas.draw(120,100,newbmp); end; i:=i-10; end; newbmp.free; end; 

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin　StretchBlt(Image2.Canvas.Handle,0,0,Image2.Width,Image2.Height,　Image1.Canvas.Handle, X-20,Y-20,40,40,SRCCOPY);　Image2.Refresh;　Screen.Cursors[1]:=LoadCursorFromFile('MAGNIFY.CUR');　Self.Cursor:=1;end;

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;type　TForm1 = class(TForm)　Image1: TImage;　Image2: TImage;　procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);　procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);private　{ Private declarations }public　{ Public declarations }end;var　Form1: TForm1;　implementation　{$R *.dfm}　procedure TForm1.Image1MouseMove(Sender:TObject;Shift:TShiftState;X,Y: Integer);　beginStretchBlt(Image2.Canvas.Handle,0,0,Image2.Width,Image2.Height,Image1.Canvas.Handle, X-20,Y-20,40,40,SRCCOPY);　　Image2.Refresh;　　Screen.Cursors[1]:=LoadCursorFromFile('MAGNIFY.CUR');　　Self.Cursor:=1;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);begin　Screen.Cursors[1]:=crDefault;　Self.Cursor:=1;end;end.