홈페이지>프로그래밍 관련>델파이 소스 코드
다운로드

비트 모 픽셀

[ENG]

bitmappixels.pas -tbitmap에서 픽셀에 직접 액세스하기위한 나사로 및 델파이 모듈

Windows (Winapi), Linux (GTK2, QT5), OSX (Cocoa)에서 작업했습니다.

상당히 인기있는 질문은 tbitmap 픽셀에 빠르게 액세스하는 방법입니다.
제한된 수의 픽셀 형식으로 인해 Scanline [] 속성이있는 Delphi 에서 쉽게 수행 할 수 있지만 나사로 에서는 어렵습니다.
예 : https://wiki.freepascal.org/fast_direct_pixel_access

TBITMAPDATA.MAP () 및 TBITMAPDATA.UNMAP ()를 호출하는 작업을 단순화하는 작은 단일 파일 "Bitmappixels.pas"를 제안합니다.
데이터 속성에 $ aarrggbb 픽셀의 배열을 얻고 setpixel ()/getpixel ()을 사용하여 abilty set 및 픽셀 색상을 얻습니다. 

 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- 하프 비트 맵 투명도 (읽기 및 쓰기, 알파)

example2.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- 비트 맵에 플라스 효과를 만듭니다 (쓰기 만)

예제 3.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- 두 비트 맵을 하나의 비트 맵에 섞습니다 (읽기 만 읽기, 쓰기 만)

example4.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 и delphi дающий прямой доступ к пикселам tbitmap.

초 Windows (Winapi), Linux (GTK2, QT5), OSX (Cocoa)

есть довольно попопу막 ярр람, В сообществе lazarus разрабаботчиков, Вопрос : как получить 갑격 갑격 갑격 갑격한 r th hпелселселселселселсеmap ?
Delphi бо 래프리 미치는 благко срелать в delphi благодаря свойству scanline [] 염색-뇨 довольно ограниченого 갑골 갑새 b h봉핵 b vее орататата혁. довольно сложно в Lazarus .
примери сложностей, wolltps://wiki.freepascal.org/fast_direct_pixel_access.

я предлагаю неболь 착취는, В виде одного ф램, модуль "bitmappixels.pas" , который упр거나 работу до просого 갑골 이 tbitmatata. tbitmapdata.unmap () .
Вч получаете массив пикселей В формате $ 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 ;

основнне ф술 팩트 :

  • кроссплатформенность
  • подеререререререререререререререререіивает bе форматы пикселей TBITMAP для чтения
  • ускоренная обработка популярных форматов в Windows/gtk/qt/osx
  • можно обработать любое и и и인지 염 ayer rак имеюще альфа-канал, так и нет (24бит/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 -сосдание полупро 착취는 иного 염조 초

example2.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 -сосдание эфекта пла 착취 (쓰기 만 쓰기)

예제 3.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 -см 제공

example4.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 -модуль для lazarus і delphi, що дає прямий доступ до пікселів tbitmap.

пран на Windows (Winapi), Linux (GTK2, QT5), OSX (Cocoa)

є досить популяррне, у спільноті lazarus розробників, питання : як отримати швидкий доступ до пікселів tvitmap?
delphi delphi delphi з hipi завдяки властивості scanline [] через досить обмежену 관어  сесть ожливих фемата 감폐 Â handісекісе엽. складно в Lazarus .
приклади складнощів, які можуть виникнути : https://wiki.freepascal.org/fast_direct_pixel_access.

я пропоную невевееликил, у вигляді одного фа냥 틴, модуль "bitmappixels.pas" , сппр거나 роту до просого в태하기 () Tbitmapdatat. tbitmapdata.unmap () .
Ви отримуєте масив пікселів у форматі $ 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 ;

основні фііі :

  • кросплатформеність
  • підтримує Всі формати пікселі 기 для читання
  • порискорена обробка популярних форматів у windows/gtk/qt/osx
  • можна обробити будь- яке зображення, як таке, що має альфа-канал, Â і і ні (24іт/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 -створення напівпрозорого зображення (읽기 및 쓰기, 알파)

example2.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 -створення ефекту плаззз거나 (쓰기 만 쓰기)

예제 3.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 -ш мізування двох зображень (읽기 만 읽기, 쓰기 만하면)

example4.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 ;
확장하다
추가 정보
관련 애플리케이션
추천
관련 정보 전체