請大佬們幫幫小弟吧！
uj5u.com熱心網友回復：
問題沒說清楚，
uj5u.com熱心網友回復：
像大漠插件的找圖，找色，找字。這種原始碼，uj5u.com熱心網友回復：
網上搜索BitmapData，看看是不是你要的。//
//位圖資料處理，主要用于位圖的找圖找色
//作者：yeye55 2009年5月29日
//
//本檔案著作權由 yeye55 擁有，保留所有權利。
//本檔案中的代碼是免費程式，無需任何授權或許可即可用于個人和商業目的。使用者一切后果自負。
//
//如果你轉載了本檔案中的代碼，請注明代碼出處和代碼作者；
//如果你修改了本檔案中的代碼，請注明修改位置和修改作者。
//
//本檔案最早在http://www.programbbs.com/bbs/上發布
//
// 2009年5月31日更新：
//
// 有個小BGU，主要是截取滑鼠指標的圖片時沒有考慮當前的背景顏色，始終為黑色。
//更新后截取滑鼠當前指標的圖片時會使用當前背景顏色填充背景，如果沒有指定背景顏色
//則使用白色（RGB(255,255,255)）填充。
//
// 2011年7月10日更新：
//
// 在TBDBitmapData類中增加一個CopyFormBitmap成員。這個函式可以從TBitmap物件中
//拷貝圖片。可以指定拷貝圖片的位置、大小。
//
function LoadFromStream(Stream : TStream; ABackColor : TBDColor = BD_COLORLESS): Boolean;
function SaveToStream(Stream : TStream):Boolean;
function LoadFromFile(const FileName : string; ABackColor : TBDColor = BD_COLORLESS): Boolean;
function SaveToFile(const FileName : string): Boolean;
function LoadFromBitmap(Bitmap : TBitmap): Boolean;
function SaveToBitmap(Bitmap : TBitmap): Boolean;
function CopyFormBitmap(SrcBitmap : TBitmap; Left : Integer = -1; Top : Integer = -1; AWidth : Integer = -1; AHeight : Integer = -1): Boolean;
function CopyFormScreen(Left : Integer = -1; Top : Integer = -1; AWidth : Integer = -1; AHeight : Integer = -1): Boolean;
function CopyFormCursor: Boolean;
function Compare(Bmp : TBDBitmapData; Left : Integer = 0; Top : Integer = 0): Boolean; overload;
function Compare(Bmp : TBDBitmapData; const Range : TBDColorRange; Left : Integer = 0; Top : Integer = 0): Boolean; overload;
function FindImage(Bmp : TBDBitmapData; var Left,Top : Integer): Boolean; overload;
function FindImage(Bmp : TBDBitmapData; const Range : TBDColorRange; var Left,Top : Integer): Boolean; overload;
function FindCenterImage(Bmp : TBDBitmapData; var Left,Top : Integer): Boolean; overload;
function FindCenterImage(Bmp : TBDBitmapData; const Range : TBDColorRange; var Left,Top : Integer): Boolean; overload;
function EnumImage(Bmp : TBDBitmapData; EnumImageProc : TBDEnumImageProc; lParam : Integer = 0): Boolean; overload;
function EnumImage(Bmp : TBDBitmapData; const Range : TBDColorRange; EnumImageProc : TBDEnumImageProc; lParam : Integer = 0): Boolean; overload;
function FindColor(Color : TBDColor; var Left,Top : Integer): Boolean; overload;
function FindColor(Color : TBDColor; const Range : TBDColorRange; var Left,Top : Integer): Boolean; overload;
function FindCenterColor(Color : TBDColor; var Left,Top : Integer): Boolean; overload;
function FindCenterColor(Color : TBDColor; const Range : TBDColorRange; var Left,Top : Integer): Boolean; overload;
function EnumColor(Color : TBDColor; EnumColorProc : TBDEnumColorProc; lParam : Integer = 0): Boolean; overload;
function EnumColor(Color : TBDColor; const Range : TBDColorRange; EnumColorProc : TBDEnumColorProc; lParam : Integer = 0): Boolean; overload;
property Name : String read FName write FName; //位圖名稱
property Width : Integer read FWidth; //位圖寬度（象素）
property Height : Integer read FHeight; //位圖高度（象素）
property BackColor : TBDColor read FBackColor write FBackColor; //背景顏色（BGR格式）
property LineWidth : Integer read FLineWidth; //對齊后每行資料寬度（位元組）
property SpareWidth : Integer read FSpareWidth; //對齊后每行資料多余寬度（位元組）
property Size : Integer read FSize; //位圖資料長度
property Bits : PByteAry read FBits; //位圖資料緩沖區
property Pixels[Left,Top : Integer] : TBDColor read GetPixels write SetPixels; default;
uj5u.com熱心網友回復：
網上搜了一個使用方法，https://blog.csdn.net/weixin_34211761/article/details/86039578 看看是否有用轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/17662.html
上一篇：交通控制電路設計