文/jorge 不得不说，捕获“扫雷”窗口以及取得它的数据，是本程序的一个难点。现在这个难点已经解决，接下来，完成接口层已经不是问题了。那么，来看接口层的两个核心过程： ================================================================= //取得整个雷区每个方块的状态，填入Cells中供分析。
procedure FetchCells;
var
i, j: Integer;
begin
//扫描每个方块，根据指定像素的颜色判断该方块的性质。
//特定像素的颜色与方块性质的对应关系归纳自“扫雷”程序本身的资源。
for i:=0 to AreaWidth-1 do
for j:=0 to AreaHeight-1 do
//首先判断(0, 0)点的像素
case TColor(GetPixel(MineDC, LEFT_MARGIN + i*CELL_WIDTH, TOP_MARGIN + j*CELL_HEIGHT)) of
clWhite:
//是未挖开的方块，再判断(5, 4)点的像素
case TColor(GetPixel(MineDC, LEFT_MARGIN + i*CELL_WIDTH + 5, TOP_MARGIN + j*CELL_HEIGHT + 4)) of
clSilver: Cells[i, j] := csUnknown; //未翻开的方块
clRed: Cells[i, j] := csMarked; //已标记为雷的方块
clBlack: Cells[i, j] := csPossible; //标问号的方块
end;
clGray:
//是已挖开的方块，再判断(7, 4)点的像素
case TColor(GetPixel(MineDC, LEFT_MARGIN + i*CELL_WIDTH + 7, TOP_MARGIN + j*CELL_HEIGHT + 4)) of
clSilver: Cells[i, j] := cs0; //空白，相当于数字0
clBlue: Cells[i, j] := cs1; //数字1
clGreen: Cells[i, j] := cs2; //数字2
clRed: Cells[i, j] := cs3; //数字3
clNavy: Cells[i, j] := cs4; //数字4
clMaroon: Cells[i, j] := cs5; //数字5
clTeal: Cells[i, j] := cs6; //数字6
clBlack: Cells[i, j] := cs7; //数字7
clGray: Cells[i, j] := cs8; //数字8
end;
end;
end; ================================================================= 以上程序中，三个包含 case...of 的行，都用到了前面实测到的数据。执行完之后，扫雷窗口所有方块的状态就原原本本地在输入缓冲区里了。 ================================================================= //将Operations中所记载的对每个方块的操作真正作用于扫雷窗口。
procedure OperateCells;
var
i, j: Integer;
downMsg, upMsg: Cardinal; //按下和抬起鼠标按钮时分别发送的消息
wparam, lparam: Integer; //消息参数
clickCount: Integer; //按键次数，只有取值1或2
begin
//扫描每个方块
for i:=0 to AreaWidth-1 do
for j:=0 to AreaHeight-1 do
begin
if Operations[i, j] = opNone then
Continue;
//根据操作种类，设定发送的消息及其参数
lparam := ((TOP_MARGIN + j*CELL_HEIGHT) shl 16) + (LEFT_MARGIN + i*CELL_WIDTH);
wparam := IfThen(Operations[i, j] = opBothClick, MK_RBUTTON, 0);
downMsg := IfThen(Operations[i, j] in [opRightClick, opRightDoubleClick], WM_RBUTTONDOWN, WM_LBUTTONDOWN);
upMsg := IfThen(Operations[i, j] in [opRightClick, opRightDoubleClick], WM_RBUTTONUP, WM_LBUTTONUP);
//设定发送消息次数，即单击还是双击
clickCount := IfThen(Operations[i, j] = opRightDoubleClick, 2, 1);
//发送消息
repeat
PostMessage(MineWnd, downMsg, wparam, lparam);
PostMessage(MineWnd, upMsg, wparam, lparam);
Dec(clickCount);
until clickCount = 0;
end;
end; ================================================================= 这里需要说的是WM_LBUTTONDOWN、WM_LBUTTONUP、WM_RBUTTONDOWN和WM_RBUTTONUP四个消息。它们是在一个窗口客户区内按下或抬起鼠标左或右按钮时，发给这个窗口的消息。所以，手动地发送这些消息，其实就是模拟鼠标的点击。发送消息用到了WinAPI函数PostMessage，它和大家所熟悉的SendMessage函数的参数是相同的，作用也几乎相同，主要区别是不等待消息的返回，详见MSDN。上述四个消息的WParam和LParam都具有同样的意义：WParam用来指定按下该键的时候，还有哪些其它特定的键（其它鼠标键，或Ctrl，Shift等）被按下。0表示没有其它键被按下，在这里还用到了值MK_RBUTTON，即按下左键时指定右键同时也被按下，用来模拟同时按下左右键的情况。当然，发送RBUTTONDOWN和RBUTTONUP时指定MK_LBUTTON也是同样的效果。而LParam则指定了按下或抬起键时鼠标指针的坐标，它的高16位为Y坐标，低16位为X坐标。给lparam赋值的那一行，就是把X，Y两个值组装成了一个lparam。 另外提一下IfThen函数，这个函数平时并不见有多人使用，但它真的很方便，至少它解决了对于“Delphi中没有C的 ? : 运算符”的抱怨^_^。不错，这就是Delphi的问号运算符，三个参数中第一个是Boolean型，若为真，返回值就是第二个参数，否则是第三个参数。第二、第三个参数类型相同，并且有多个重载版本。数值版本需要包含Math库，而字符串版本需要StrUtils库。显然，编译上述代码是需要包含Math库的。若不愿，当然你也可以使用 if...then。 至此，接口层全部实现完毕，接下来就可以安心的实现“数学模型”了。
|
