새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 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'만 저장되있더군요.


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

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2019.2~2019.6 관리자 2015.01.22 6275
공지 유용한 관련 사이트 관리자2 2014.03.20 43536
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84981
1447 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 8 - Exercise 2 [2] 관리자 2016.05.02 107
1446 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 8 - Exercise 1 [2] 관리자 2016.05.02 103
1445 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 6 - Exercise 3 [2] 관리자 2016.05.02 103
1444 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 6 - Exercise 2 [2] 관리자 2016.05.02 99
1443 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 6 - Exercise 1 [2] 관리자 2016.05.02 115
1442 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 5 - Exercise 4 [2] 관리자 2016.05.02 75
1441 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 5 - Exercise 3 [2] 관리자 2016.05.02 71
1440 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 5 - Exercise 2 [2] 관리자 2016.05.02 75
1439 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 5 - Exercise 1 [2] 관리자 2016.05.02 229
1438 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 4 - Exercise 5 [2] 관리자 2016.04.29 127
1437 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 4 - Exercise 4 [2] 관리자 2016.04.29 92
1436 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 4 - Exercise 3 [2] 관리자 2016.04.29 66
1435 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 4 - Exercise 2 [2] 관리자 2016.04.29 202
1434 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 4 - Exercise 1 [2] 관리자 2016.04.29 116
1433 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 3 - Exercise 3 [2] 관리자 2016.04.29 126
1432 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 3 - Exercise 2 [2] 관리자 2016.04.29 99
1431 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 3 - Exercise 1 [2] 관리자 2016.04.29 144
1430 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 2 - Exercise 4 [2] 관리자 2016.04.15 179
1429 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 2 - Exercise 3 [2] 관리자 2016.04.15 131
1428 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 2 - Exercise 2 [2] 관리자 2016.04.15 121



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..