백승관입니다.
이미지에서 각 픽셀에 대한 RGB값을 추출해야 하는데요...
다음과 같이 해 보았습니다만 RGB가 모두 0,0,0으로만 나오는군요.
생각컨대, 이미지의 DC를 잡아야 하는데 그게 잘못된 것 같습니다.
도아주십시오.
도와주십시오....->위의 오타!!!
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var aa : HDC;
Rgb : Colorref;
ss : byte;
st : string;
begin
GetDC(aa);
rgb :=GetPixel(aa,100,100);
ss := Getbvalue(rgb);
ShowMessage(Format('RGB(%d,%d,%d)', [GetRValue(rgb),GetGValue(rgb),GetBValue(rgb)]));
end;
이 방법에서 수정을 하든지, 아니면 더 좋은 방법을 소개해주시기 바랍니다.
감사합니다.
|