Delphi（ FMX）で TImageのビットマップのRGB値のスキャン

VCLの ScanLine は FMX でどうする的な話

TBitmapData の GetScanline を使う

TBitmapData の GetScanline を使う

例としてTImageにこの画像のpngファイルを読み込み、画像をスキャンします。
画像のスキャンには、TBitmapData の GetScanline を使います。

TBitmap の Mapメソッドで TBitmapData にマッピング

まず、TBitmap の Map メソッドで TBitmap のビットマップデータを TBitmapData にマップします。

TBitmapData の GetScanline メソッドを使い画像を横方向にスキャンして、TAlphaColor の配列を指すポインタを取得します。得られた TAlphaColor を TAlphaColorRec に入れると、TAlphaColorRec の機能を利用してRGB値を取得することができます。

最後に TBitmap の Unmap メソッドでビットマップのカスタマイズセッションをファイナライズします。

MemoにRGB値を書き込む例

以下の例では、Memoに、画像と同じ向きのRGB値を書き込んでいます。
この例では、値を読むだけなので、Mapメソッドでアクセスのタイプを TMapAccess.Read にしています。書き込む場合は、TMapAccess.Write または TMapAccess.ReadWrite を使います。

procedure TForm1.CornerButton1Click(Sender: TObject);
var
  FileName: String;
  bd1: TBitmapData;
  x, y, w, h: Integer;
  p1: FMX.Utils.PAlphaColorArray;
  AC: TAlphaColor;
  rec : TAlphaColorRec;
  S:String;
  Blue:byte;
begin
  FileName:= System.IOUtils.TPath.Combine(FTestPath, 'Paste1.png');
  try
    Image2.Bitmap.LoadFromFile(FileName);
    w := Image2.Bitmap.Width;
    h := Image2.Bitmap.Height;
    try
      Image2.Bitmap.Map(TMapAccess.Read, bd1);
      for y := 0 to h -1 do
      begin
        p1 := PAlphaColorArray(bd1.GetScanline(y));
        S:='';
        for x := 0 to w -1 do
        begin
          AC:= TAlphaColor(p1[x]);
          rec.Color:=  AC;
          Blue:= rec.B; {　RとGは省略  }
          S:= S + IntToStr(Blue) + #9;
        end;
        Memo1.Lines.Add(S);
      end;
    finally
      Image2.Bitmap.Unmap(bd1);  
    end;
  except
  end;
end;

結果をエクセルのカラースケールで見る

Memoの内容をエクセルにコピーし、カラースケールを適用するとこうなりました。

画像の（x,y）と出力の（x,y）が一致しています。

RGB値を右側から縦方向に書き込む例

procedure TForm1.CornerButton2Click(Sender: TObject);
var
  FileName: String;
  bd1: TBitmapData;
  x, y, w, h: Integer;
  p1: FMX.Utils.PAlphaColorArray;
  AC: TAlphaColor;
  rec : TAlphaColorRec;
  S:String;
  Blue:byte;
begin
  FileName:= System.IOUtils.TPath.Combine(FTestPath, 'Paste1.png');
  try
    Image2.Bitmap.LoadFromFile(FileName);
    w := Image2.Bitmap.Width;
    h := Image2.Bitmap.Height;
    try
      Image2.Bitmap.Map(TMapAccess.Read, bd1);
      S:= '';
      for y := 0 to h -1 do
      begin
        p1 := PAlphaColorArray(bd1.GetScanline(y));
        for x := 0 to w -1 do
        begin
          if y = 0 then
            Memo1.Lines.Add(S);
          AC:= TAlphaColor(p1[x]);
          rec.Color:=  AC;
          Blue:= rec.B;   {　RとGは省略  }
          S:= IntToStr(Blue) + #9;
          Memo1.Lines[x]:= Memo1.Lines[x] + S;
        end;
      end;
    finally
      Image2.Bitmap.Unmap(bd1);
    end;
  except
  end;
end;

Memoの内容をエクセルにコピーし、カラースケールを適用するとこうなります。