请教：如何取出图片中N个坐标点颜色！

Question

从一组图片（300张以上）中取N个坐标点（2000左右）的颜色！-------------------------------------------
| .  .   .   .   .   .    .    .   .    .  |
|  .   .  .  .  .   .   .  .   .  .   .  . |
| . .  .  .  .  .  .  . .  .  .  .   .  .  |
|  . .  . .   . .  .   .    .   .  . .   . |
|. .  .    . . ...   .  .   .   .   .  .  .|
| ..... ... ...... .. ....  .  .  .  .  .  |
| .  .  . .  .  .  .  .  .  . .  .  .  .  .| 
-------------------------------------------坐标位置没有规则！谢谢

Answer 1

你都得到坐标点了还取不了颜色?
ScreenDC := GetDC(0);
ScreenColor := GetPixel(ScreenDC, Pos.X, Pos.Y);
//Shape.Brush.Color := TColor(ScreenColor);
edit1.Text := '红: ' + IntToStr(GetRValue(ScreenColor)) +
'  绿: ' + IntToStr(GetGValue(ScreenColor)) + '  蓝: ' +
IntToStr(GetBValue(ScreenColor));
ReleaseDC(0, ScreenDC);
edit2.Text := Format('Delphi中颜色值：$00%2.2x%2.2x%2.2x', [GetBValue(ScreenColor),
GetGValue(ScreenColor), GetRValue(ScreenColor)]);

Answer 2

bmp 的话可以直接从文件里面读出来吧