Delphi 比较两个位图是否相同


本文整理自网络,侵删。

 
function IsBmpSame(bmp1,bmp2: TBitmap): Boolean;   
var  
  i,j: Integer;   
  ScanLine1,ScanLine2: PByteArray;   
  Count: Integer;   
begin  
  Result := (bmp1.Height = bmp2.Height) and  
            (bmp1.Width = bmp2.Width) and  
            (bmp1.PixelFormat = bmp2.PixelFormat);   
  if Result then  
  begin  
    i := Integer(bmp1.PixelFormat);   
    if i < 4 then  
      i := 4  
    else if i = 4 then  
      inc(i);   
    Count := (i - 3) * bmp1.Width - 1;   
    for i:=0 to bmp1.Height-1 do  
    begin  
      ScanLine1 := bmp1.ScanLine[i];   
      ScanLine2 := bmp2.ScanLine[i];
      for j := 0 to Count do  
        if ScanLine1[j] <> ScanLine2[j] then  
        begin  
          Result := False;   
          Exit;   
        end;   
    end;   
  end;   

end

 

来源:http://www.coder163.com/language/delphi/

相关阅读 >>

Delphi2007 读取得unicode文本

Delphi 清空文件夹

Delphi 的 tstringbuilder 可以完美实现jave ,c#的tstringbuilder功能

Delphi 在内存中直接运行exe类型的资源文件

Delphi 掌控pagecontrol中的右上方的左右箭头事件

Delphi image 直接加载资源文件

Delphi 字符串转换ascii码10进制

Delphi 如何通过代码控制打开键盘数字锁定numlock

Delphi 7 中的随机函数

Delphi三层开发小技巧:tclientdataset的delta妙用

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...