如標題所述,我想從不同機器中取固定區塊存成BMP格式去比對是否相同.
源碼如下:有高手可以幫我看看或指引一下方向我是那裡搞錯了,為何在不同電腦取同同一程式的固定區塊圖去比對,兩個圖確不相同!
有什麼解決方法嗎?感謝!


Function GetBmpFromDC(H:THandle;PicBitNum,X1,Y1,X2,Y2:Integer;Out fDcBmp:Tbitmap);
{创建一个空的Bitmap}
function CreateDibBMP(Dc: HDC;width,height: Integer): HBITMAP;
type
DibRec = record
bi: BITMAPINFOHEADER;
ct: array[0..255] of DWORD;
end;
var
Dib: DibRec;
lpBits: pointer;
temp: TBitmapInfo;
begin
dib.bi.biSize := sizeof(BITMAPINFOHEADER);
dib.bi.biWidth := width;
dib.bi.biHeight := height;
dib.bi.biBitCount := PicBitNum;
dib.bi.biPlanes := 1;
dib.bi.biCompression := 0;
dib.bi.biSizeImage := 0;
dib.bi.biClrUsed := 0;
if PicBitNum = 15 then
Dib.bi.biBitCount := 16
else if PicBitNum = 16 then
begin
Dib.bi.biCompression := BI_BITFIELDS;
dib.ct[0] := $F800;
dib.ct[1] := $07E0;
dib.ct[2] := $001F;
end;
Move(dib,temp,SizeOf(dib));
result := CreateDIBSection(Dc,temp,DIB_RGB_COLORS,lpBits,0,0);
end;
var
rc: TRect;
nScreenWidth,nScreenHeight,cx,cy: integer;
hdcScreen,hdcMemory: HDC;
TmpBmp:TBitmap;
begin
TmpBmp:=TBitMap.Create;
GetWindowRect(H, rc);
TmpBmp.Width := rc.Right - rc.Left;
TmpBmp.Height := rc.Bottom - rc.Top;
PrintWindow(H,TmpBmp.Canvas.Handle, 0);
hdcScreen :=TmpBmp.Canvas.Handle;
hdcMemory := CreateCompatibleDC(hdcScreen);
fDcBmp.Handle := CreateDibBMP(hdcScreen, x2-x1, y2-y1);
SelectObject(hdcMemory, fDcBmp.Handle);
BitBlt(hdcMemory,0,0,x2-x1,y2-y1,hdcScreen,x1,y1,SRCCOPY or $400000000 );
DeleteDC(hdcMemory);
ReleaseDC(0, hdcScreen);
TmpBmp.Free;
end;

自行解決了~

请教一下怎么设定为24位真彩色？

我用您写的函数 抓图可以 但是颜色值变了，跟直接用PrintScreen 按键的不一样。


===================引 用 jenpeter 文 章===================
自行解決了~

------
The empty vessels make the greatest sound.