자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

안녕하세요.

현재 델파이 10 seattle로 안드로이드 어플 개발중입니다.

어플 내에서 생성한 PNG이미지를 TBitmap에 불러와 픽셀을 추출하는 프로그램을 구현중입니다만 잘 되지 않네요.

아래는 제가 코딩한 소스입니다.


var
  ABitmap: TBitmap;
  a: TStringlist;
  sPixelData : string;
  x,y:integer;
  vBitMapData: TBitmapData;

begin

  TThread.queue(nil,
   procedure
   begin
     //PNG이미지 Load.
     ABitmap := TBitmap.CreateFromFile(GetImagePath + '/' + lboxMessageList.Selected.Text);
   end);

  if ABitmap.Map(TMapAccess.ReadWrite, vBitMapData) then
  begin
    for x := 0 to ABitmap.Width - 1 do
    begin
      for y := 0 to ABitmap.Height - 1 do
      begin
        //(x,y)의 Pixel Color가 하얀색이 아닐경우 sPixelData에 '1'을 저장
        if vBitMapData.GetPixel(x, y) <> TAlphaColors.White then
          sPixelData := sPixelData + '1'
        //(x,y)의 Pixel Color가 하얀색일 경우 sPixelData에 '0'을 저장
        else
          sPixelData := sPixelData + '0';
      end;
      //한 줄 추출이 끝나면 띄어쓰기
      sPixelData := sPixelData+ chr(13) + chr(10);
    end;
  end;
end;

저장한 png이미지를 보면 재대로 그려져 있습니다만, 위의 루틴이 끝나고 sPixelData를 보면 모두 '1'만 저장되있더군요.


문제 해결법을 아신다면 답변 부탁드립니다.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20072
공지 유용한 관련 사이트 관리자2 2014.03.20 58976
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102602
3279 rad studio xe2 설치 프로그램 실행시 설치프로그램 강제 종료 secret 마구 2013.04.30 0
3278 paserver오류 [1] secret 최종호 2013.05.02 1
3277 DB 관련 질문 입니다! [1] secret 탄돌이 2013.06.17 1
3276 JVL이라는 라이브러리 관련에러 [1] secret 관리자 2015.02.25 1
3275 제품관련 질문입니다. [1] secret 우와 2014.07.17 2
3274 델파이 프로그래밍언어 책 구입했는데요 [1] secret 나본좌 2012.04.10 2
3273 책 19쪽에 맨처음 하는 예제에서요 secret 나본좌 2012.04.11 2
3272 DB Query 문의 드립니다. [1] secret memc 2012.05.16 2
3271 html5 buider 문의 드립니다. secret 2012.12.14 2
3270 Component들이 보이지 않습니다. secret 변보언 2013.01.22 2
3269 기본 bpl (rtl160.bpl등) 배포시 jdbg파일도 같이 배포해야 하나요? [1] secret 한림대의료원정보기술센터 2013.06.11 2
3268 string.format 함수의 한글 자리수 문제 secret kidb 2014.03.04 2
3267 비콘 안드로이스 샘플소스로 실행했는데 안됩니다. [2] secret kim 2015.12.04 2
3266 비콘신호 수신간격 조정을 어디서 해야하나요? [2] secret kim 2015.12.04 2
3265 MessageDlg 관련 질문입니다. [1] secret 신산 2013.06.20 3
3264 [한미반도체] 64BIT PACKGE관련문의 secret 키루루 2014.08.20 3
3263 위험감지앱이 감지를 했을때만 화면표시를 할 수 있나요? [2] secret kim 2015.12.02 3
3262 ChannelManager을 이용한 콜백 문의 secret lespaul06 2015.02.04 3
3261 WebBrowser1 익스플로러 버젼 secret fanta 2015.01.31 3
3260 아래 질문에 대한 스크린샷 첨부입니다. [2] secret 조우상 2012.05.02 4