Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=444643&view=findpost&p=3903016 Sun, 14 Apr 2024 08:23:17 +0000 Как получить первый пиксель в формате RGB и альфа канал? https://forum.sources.ru/index.php?showtopic=444643&view=findpost&p=3903016 Быстро, учитывая формат пиксела - через ScanLine]]> MBo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=444643&view=findpost&p=3903013 Sun, 14 Apr 2024 05:09:52 +0000 Как получить первый пиксель в формате RGB и альфа канал? https://forum.sources.ru/index.php?showtopic=444643&view=findpost&p=3903013 Gonarh, а как пройтись по всем пикселям в цикле по рядам. Сначала первый ряд потом второй ряд и т.д. получить RGB и занести цифры(RGB) в одномерный массив.]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=444643&view=findpost&p=3903012 Sun, 14 Apr 2024 02:41:18 +0000 Как получить первый пиксель в формате RGB и альфа канал? https://forum.sources.ru/index.php?showtopic=444643&view=findpost&p=3903012 Без альфы так:
    var
      Color: Longint;
      r, g, b: Byte;
    begin
      Color := ColorToRGB(image1.Canvas.Pixels[0, 0]);
      r     := Color;
      g     := Color shr 8;
      b     := Color shr 16;
      showmessage(Format('RGB: %d, %d, %d',[r, g, b]));
    end;
]]> Gonarh Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=444643&view=findpost&p=3903011 Sun, 14 Apr 2024 02:04:50 +0000 Как получить первый пиксель в формате RGB и альфа канал? https://forum.sources.ru/index.php?showtopic=444643&view=findpost&p=3903011 img1.jpg (, : 11)

Как можно получить эти данные и записать их в массив, кроме того чтобы убедиться в полученных данных вывести через Edit1. Исходники загрузки изображения.
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls;
     
    type
      TForm1 = class(TForm)
        Image1: TImage;
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
      bmp1: TBitmap;
    implementation
     
    {$R *.dfm}
     
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      bmp1 := TBitmap.Create;
      bmp1.LoadFromFile('.\bitmap\img2.bmp');  // chargement du niveau
      Form1.Image1.Canvas.Brush.Color:=clWhite;
      Form1.Image1.Canvas.FillRect(Form1.Image1.ClientRect);
      Image1.Canvas.Draw(0,0,bmp1);
    end;
     
    end.

Example1.zip (, : 6) ]]> Katerina1993 Delphi: Общие вопросы