二つの画像の引き算をして再び画像化するには？ (ID:34527)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

とりあえず

type

TRGB = packed record //ScanLine用
    Red      : Byte;
    Green    : Byte;
    Blue     : Byte;
  end;

PRGBArray    = ^TRGBarray;
  TRGBArray    = array[0..0] of TRGB;

procedure TForm1.Button1Click(Sender: TObject);
var
   X,Y: Integer;
   RGB1,RGB2,RGB3 : pRGBArray;
begin

//24bit にする
   Image1.Picture.Bitmap.PixelFormat := pf24bit;
   Image2.Picture.Bitmap.PixelFormat := pf24bit;
   Image3.Picture.Bitmap.PixelFormat := pf24bit;

//Image2 と Image3 を Image1 と同じサイズにする
   Image2.Picture.Bitmap.SetSize(Image1.Picture.Bitmap.Width,Image1.Picture.Bitmap.Height);
   Image3.Picture.Bitmap.SetSize(Image1.Picture.Bitmap.Width,Image1.Picture.Bitmap.Height);

for Y:=0 to Image1.Picture.Bitmap.Height -1 do
   begin
     RGB1 := Image1.Picture.Bitmap.ScanLine[Y];
     RGB2 := Image2.Picture.Bitmap.ScanLine[Y];
     RGB3 := Image3.Picture.Bitmap.ScanLine[Y];
     for X:=0 to Image1.Picture.Bitmap.Width - 1 do
     begin
       RGB3[X].Red   := ABS(RGB1[X].Red   - RGB2[X].Red  );
       RGB3[X].Green := ABS(RGB1[X].Green - RGB2[X].Green);
       RGB3[X].Blue  := ABS(RGB1[X].Blue  - RGB2[X].Blue );
     end;
   end;

end;

←解決時は質問者本人がここをチェックしてください。

戻る