Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[1460] >질문< 이미지의 각 픽셀에 대한 RGB값을 추출하려면?
baiksk [ ] 2618 읽음    1998-02-19 09:39
백승관입니다.
이미지에서 각 픽셀에 대한 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;

이 방법에서 수정을 하든지, 아니면 더 좋은 방법을 소개해주시기 바랍니다.
감사합니다.


+ -

관련 글 리스트
1460 >질문< 이미지의 각 픽셀에 대한 RGB값을 추출하려면? baiksk 2618 1998/02/19
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.