ホーム>プログラミング関連>Delphi のソースコード
ダウンロード

ビットマッピクセル

[Eng]

bitmappixels.pas- tbitmapでピクセルに直接アクセスするためのLazarusおよびDelphiモジュール

Windows（Winapi）、Linux（GTK2、QT5）、OSX（Cocoa）で作業しました

非常に人気のある質問は、 TbitMapピクセルに迅速にアクセスする方法です。
ピクセル形式の数が限られているため、スキャンライン[]プロパティを使用して、 Delphiで簡単に行うことができますが、 Lazarusではむしろ困難です。
例：https：//wiki.freepascal.org/fast_direct_pixel_access

tbitmapdata.map（）およびtbitmapdata.unmap（）を呼び出すだけで作業を簡素化する小さな単一ファイル、モジュール「bitmappixels.pas」を提案します。
データプロパティで$ aarrggbbピクセルの配列を取得し、 setpixel（）/getPixel（）を使用してピクセルの色を設定して取得します。 

 var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec; // for easy access to the channels 
begin
  // Reading the colors of the image into map "Data", width mode "ReadWrite", in the "False" alpha channel mode.
  // The alpha channel will be set to 0 on every element of the array. ($00RRGGBB, $00RRGGBB, ...) 
  Data.Map(Bitmap, TAccessMode.ReadWrite, False);
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        // Read color at (X, Y) to Pixel record
        Pixel := Data.GetPixel(X, Y);
        // some changes of Pixel
        Pixel.R := (Pixel.R + Pixel.G + Pixel.B) div 3 ;
        Pixel.G := Pixel.R;
        Pixel.B := Pixel.R;
        // ...
        // Write Pixel record to (X, Y) in map
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    // Writing the map to the image.
    // Since we have abandoned Alpha, the pixel format will be set to pf24bit.
    Data.Unmap();
  end ;
end ;

主な機能：

  • クロスプラットフォーム
  • 読み取りのためにすべてのtbitmapピクセル形式をサポートします
  • Windows/GTK/QT/OSXでの一般的な形式の高速処理
  • 任意の画像をアルファチャネルを持っているかどうかをマッピングできます（24bit/32bit）

例1-反転色（読み取りと書き込み）

例1.png

 procedure InvertColors ( const Bitmap: TBitmap);
var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec;
begin
  Data.Map(Bitmap, TAccessMode.ReadWrite, False); // RGB access
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        Pixel := Data.GetPixel(X, Y);
        Pixel.R := 255 - Pixel.R;
        Pixel.G := 255 - Pixel.G;
        Pixel.B := 255 - Pixel.B;
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    Data.Unmap();
  end ;
end ;

例2-ハーフビットマップの透明性（読み取りと書き込み、アルファ）

例2.png

 procedure HalfAlpha ( const Bitmap: TBitmap);
var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec;
begin
  Data.Map(Bitmap, TAccessMode.ReadWrite, True); // ARGB access
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        Pixel := Data.GetPixel(X, Y);
        Pixel.A := Pixel.A div 2 ;
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    Data.Unmap();
  end ;
end ;

例3-ビットマップにプラスム効果を発揮する（書き込みのみ）

example3.png

 function MakePlasm (): TBitmap;
var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec;
begin
  Result := TBitmap.Create();
  Result.SetSize( 300 , 300 );

  Data.Map(Result, TAccessMode.Write, False);
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        Pixel.R := Byte(Trunc(
          100 + 100 * (Sin(X * Cos(Y * 0.049 ) * 0.01 ) + Cos(X * 0.0123 - Y * 0.09 ))));
        Pixel.G := 0 ;
        Pixel.B := Byte(Trunc(
          Pixel.R + 100 * (Sin(X * Cos(X * 0.039 ) * 0.022 ) + Sin(X * 0.01 - Y * 0.029 ))));
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    Data.Unmap();
  end ;
end ;

例4- 2つのビットマップを1つのビットマップに混ぜます（読み取りのみ、書き込みのみ）

例4.png

 function Mix ( const A, B: TBitmap): TBitmap;
  function Min (A, B: Integer): Integer;
  begin
    if A < B then Exit(A) else Exit(B);
  end ;
var
  DataA, DataB, DataResult: TBitmapData;
  X, Y: Integer;
  PixelA, PixelB, PixelResult: TPixelRec;
begin
  Result := TBitmap.Create();
  Result.SetSize(Min(A.Width, B.Width), Min(A.Height, B.Height));
  // this needed for correct Unmap() on exception
  DataA.Init();
  DataB.Init();
  DataResult.Init();
  try
    DataA.Map(A, TAccessMode.Read, False);
    DataB.Map(B, TAccessMode.Read, False);
    DataResult.Map(Result, TAccessMode.Write, False);
    for Y := 0 to DataResult.Height - 1 do
    begin
      for X := 0 to DataResult.Width - 1 do
      begin
        PixelA := DataA.Pixels[X, Y];
        PixelB := DataB.Pixels[X, Y];
        PixelResult.R := (PixelA.R + PixelB.R) div 2 ;
        PixelResult.G := (PixelA.G + PixelB.G) div 2 ;
        PixelResult.B := (PixelA.B + PixelB.B) div 2 ;
        DataResult[X, Y] := PixelResult;
      end ;
    end ;
  finally
    DataA.Unmap();
    DataB.Unmap();
    DataResult.Unmap();
  end ;
end ;

[rus]

bitmappixels.pas-する - ラーサルスLazarus ddelphiдающийпрямо託するまするげするまみするま。

陶芸Windows（Winapi）、Linux（GTK2、QT5）、OSX（cocoa）、windows（winapi）、windows（winapi）、

eстбовольнопопопо富o、≥-oオタイトルラザロス豚。
э羊αheθделатジェDELPHIするまみます。 доволここラザロ。ラザロ。
примерысло艦、賛美、謝人、賛成派。

ul un°предла左atнебольшой 、Â、видеодまたの妖精、「bitmappixels.pas " 、賛成するまつtbitmapdata.unmap（） 。
≥полоっとするげするまで。 помощなるsetpixel（）/getPixel（） 。 

 var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec; // for easy access to the channels 
begin
  // Reading the colors of the image into map "Data", width mode "ReadWrite", in the "False" alpha channel mode.
  // The alpha channel will be set to 0 on every element of the array. ($00RRGGBB, $00RRGGBB, ...) 
  Data.Map(Bitmap, TAccessMode.ReadWrite, False);
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        // Read color at (X, Y) to Pixel record
        Pixel := Data.GetPixel(X, Y);
        // some changes of Pixel
        Pixel.R := (Pixel.R + Pixel.G + Pixel.B) div 3 ;
        Pixel.G := Pixel.R;
        Pixel.B := Pixel.R;
        // ...
        // Write Pixel record to (X, Y) in map
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    // Writing the map to the image.
    // Since we have abandoned Alpha, the pixel format will be set to pf24bit.
    Data.Unmap();
  end ;
end ;

祈り

  • 賛成派
  • подジェートマン
  • aqoкореннаяобрабоここ間попо離限り
  • するまでするまでするまみoce辱。

例1-инвертироかっと

例1.png

 procedure InvertColors ( const Bitmap: TBitmap);
var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec;
begin
  Data.Map(Bitmap, TAccessMode.ReadWrite, False); // RGB access
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        Pixel := Data.GetPixel(X, Y);
        Pixel.R := 255 - Pixel.R;
        Pixel.G := 255 - Pixel.G;
        Pixel.B := 255 - Pixel.B;
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    Data.Unmap();
  end ;
end ;

例2-созданиеполぬ€陶芸att。

例2.png

 procedure HalfAlpha ( const Bitmap: TBitmap);
var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec;
begin
  Data.Map(Bitmap, TAccessMode.ReadWrite, True); // ARGB access
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        Pixel := Data.GetPixel(X, Y);
        Pixel.A := Pixel.A div 2 ;
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    Data.Unmap();
  end ;
end ;

例3-созданиеэ写真（書き込みのみ）

example3.png

 function MakePlasm (): TBitmap;
var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec;
begin
  Result := TBitmap.Create();
  Result.SetSize( 300 , 300 );

  Data.Map(Result, TAccessMode.Write, False);
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        Pixel.R := Byte(Trunc(
          100 + 100 * (Sin(X * Cos(Y * 0.049 ) * 0.01 ) + Cos(X * 0.0123 - Y * 0.09 ))));
        Pixel.G := 0 ;
        Pixel.B := Byte(Trunc(
          Pixel.R + 100 * (Sin(X * Cos(X * 0.039 ) * 0.022 ) + Sin(X * 0.01 - Y * 0.029 ))));
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    Data.Unmap();
  end ;
end ;

例4-消去

例4.png

 function Mix ( const A, B: TBitmap): TBitmap;
  function Min (A, B: Integer): Integer;
  begin
    if A < B then Exit(A) else Exit(B);
  end ;
var
  DataA, DataB, DataResult: TBitmapData;
  X, Y: Integer;
  PixelA, PixelB, PixelResult: TPixelRec;
begin
  Result := TBitmap.Create();
  Result.SetSize(Min(A.Width, B.Width), Min(A.Height, B.Height));
  // this needed for correct Unmap() on exception
  DataA.Init();
  DataB.Init();
  DataResult.Init();
  try
    DataA.Map(A, TAccessMode.Read, False);
    DataB.Map(B, TAccessMode.Read, False);
    DataResult.Map(Result, TAccessMode.Write, False);
    for Y := 0 to DataResult.Height - 1 do
    begin
      for X := 0 to DataResult.Width - 1 do
      begin
        PixelA := DataA.Pixels[X, Y];
        PixelB := DataB.Pixels[X, Y];
        PixelResult.R := (PixelA.R + PixelB.R) div 2 ;
        PixelResult.G := (PixelA.G + PixelB.G) div 2 ;
        PixelResult.B := (PixelA.B + PixelB.B) div 2 ;
        DataResult[X, Y] := PixelResult;
      end ;
    end ;
  finally
    DataA.Unmap();
    DataB.Unmap();
    DataResult.Unmap();
  end ;
end ;

[ua]

bitmappixels.pas-модоляrazarusd delphi、щодаかりпряactйдостかtbitmap。

працюєнаWindows（Winapi）、Linux（GTK2、QT5）、OSX（cocoa）

єдоситьпопо離限りでは、ラザルスラザロッセルク脚。
ц長者робитивdelphiラザロ。
прикладискладнощオオンタ、wiki.freepascal.org/fast_direct_pixel_access。

uルース・ア・出楽しみ、皆さん、挨拶します。 tbitmapdata.unmap（） 。
Виотриートギーするきするまみзадопомоб光つsetpixel（）/getPixel（） 。 

 var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec; // for easy access to the channels 
begin
  // Reading the colors of the image into map "Data", width mode "ReadWrite", in the "False" alpha channel mode.
  // The alpha channel will be set to 0 on every element of the array. ($00RRGGBB, $00RRGGBB, ...) 
  Data.Map(Bitmap, TAccessMode.ReadWrite, False);
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        // Read color at (X, Y) to Pixel record
        Pixel := Data.GetPixel(X, Y);
        // some changes of Pixel
        Pixel.R := (Pixel.R + Pixel.G + Pixel.B) div 3 ;
        Pixel.G := Pixel.R;
        Pixel.B := Pixel.R;
        // ...
        // Write Pixel record to (X, Y) in map
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    // Writing the map to the image.
    // Since we have abandoned Alpha, the pixel format will be set to pf24bit.
    Data.Unmap();
  end ;
end ;

祈り

  • 賛成派時代
  • пおよびпショウ”するまみするまで
  • прискоренаобробкапопо措ため、windows/gtk/qt/osx
  • "するまっています - ā-≥8-зображення、＆atщомає™™漫画 - 陶器/32円）

例1- `ƒертовання賛例（読み取りと書き込み）

例1.png

 procedure InvertColors ( const Bitmap: TBitmap);
var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec;
begin
  Data.Map(Bitmap, TAccessMode.ReadWrite, False); // RGB access
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        Pixel := Data.GetPixel(X, Y);
        Pixel.R := 255 - Pixel.R;
        Pixel.G := 255 - Pixel.G;
        Pixel.B := 255 - Pixel.B;
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    Data.Unmap();
  end ;
end ;

例2-створення1安定

例2.png

 procedure HalfAlpha ( const Bitmap: TBitmap);
var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec;
begin
  Data.Map(Bitmap, TAccessMode.ReadWrite, True); // ARGB access
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        Pixel := Data.GetPixel(X, Y);
        Pixel.A := Pixel.A div 2 ;
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    Data.Unmap();
  end ;
end ;

例3-створフラット

example3.png

 function MakePlasm (): TBitmap;
var
  Data: TBitmapData;
  X, Y: Integer;
  Pixel: TPixelRec;
begin
  Result := TBitmap.Create();
  Result.SetSize( 300 , 300 );

  Data.Map(Result, TAccessMode.Write, False);
  try
    for Y := 0 to Data.Height - 1 do
    begin
      for X := 0 to Data.Width - 1 do
      begin
        Pixel.R := Byte(Trunc(
          100 + 100 * (Sin(X * Cos(Y * 0.049 ) * 0.01 ) + Cos(X * 0.0123 - Y * 0.09 ))));
        Pixel.G := 0 ;
        Pixel.B := Byte(Trunc(
          Pixel.R + 100 * (Sin(X * Cos(X * 0.039 ) * 0.022 ) + Sin(X * 0.01 - Y * 0.029 ))));
        Data.SetPixel(X, Y, Pixel);
      end ;
    end ;
  finally
    Data.Unmap();
  end ;
end ;

例4-зз皮。

例4.png

 function Mix ( const A, B: TBitmap): TBitmap;
  function Min (A, B: Integer): Integer;
  begin
    if A < B then Exit(A) else Exit(B);
  end ;
var
  DataA, DataB, DataResult: TBitmapData;
  X, Y: Integer;
  PixelA, PixelB, PixelResult: TPixelRec;
begin
  Result := TBitmap.Create();
  Result.SetSize(Min(A.Width, B.Width), Min(A.Height, B.Height));
  // this needed for correct Unmap() on exception
  DataA.Init();
  DataB.Init();
  DataResult.Init();
  try
    DataA.Map(A, TAccessMode.Read, False);
    DataB.Map(B, TAccessMode.Read, False);
    DataResult.Map(Result, TAccessMode.Write, False);
    for Y := 0 to DataResult.Height - 1 do
    begin
      for X := 0 to DataResult.Width - 1 do
      begin
        PixelA := DataA.Pixels[X, Y];
        PixelB := DataB.Pixels[X, Y];
        PixelResult.R := (PixelA.R + PixelB.R) div 2 ;
        PixelResult.G := (PixelA.G + PixelB.G) div 2 ;
        PixelResult.B := (PixelA.B + PixelB.B) div 2 ;
        DataResult[X, Y] := PixelResult;
      end ;
    end ;
  finally
    DataA.Unmap();
    DataB.Unmap();
    DataResult.Unmap();
  end ;
end ;
拡大する
追加情報
関連アプリ
おすすめ
関連情報 すべて