Попиксельный доступ к TJPEGImage

[Serge_Bliznykov]

Просьба указать ссылку или привести рабочий код, который даст возможность получить доступ к JPEG изображению попиксельно.

если это важно, то мой JPEG - grayscale (8 bit)

p.s. впервые пытаюсь работать с графикой в Дельфи.
что-то ничего не выходит... ;(

[Alex Cones]

http://www.programmersforum.ru/showt...ht=JPEG+Pixels

[Serge_Bliznykov]

Alex,
если Вы имеете в виду такой код:

procedure TForm1.Image1Click(Sender: TObject);
var
  b:TBitmap;
  Null_color:TColor;
  i, j : Integer;
begin
  b:=TBitmap.Create;
  b.Assign(image1.Picture.Graphic);
  for i:=0 to b.Height - 1 do begin
    for j:=0 to b.Width - 1 do begin
      null_color:=b.Canvas.Pixels[i,j];
      memoPixel.Lines.Add('p['+IntToStr(i)+','+IntToStr(j)+'] = '
            +InttoStr(Null_color));
    end;
  end;
  b.Free;
end;

то он работает, но выводит какую-то фигню... помоему, даже никак не связанную с изображением ;(

[Alex Cones]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, JPEG, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  JP:TJPEGImage;
  BT:TBitMap;
  Color:TColor;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 JP:=TJPEGImage.Create;
 JP.LoadFromFile('1.jpg');
 BT:=TBitMap.Create;
 BT.Assign(JP);
 Color:=BT.Canvas.Pixels[X,Y]
end;

end.

О!

[Serge_Bliznykov]

Alex Cones, Спасибо!
"поигрался" с Вашим кодом. убедился, что всё работает.
Начал разбираться, что не так в моём...
Блин, оказалось местами координаты X и Y перепутаны.
т.е. в Pixels(x,y) сначала нужно передавать координату по горизонтали (то бишь Width ), а потом — по вертикали (соответственно Height)
заменил в своём коде кусок на

  for i:=0 to b.Height - 1 do begin
    for j:=0 to b.Width - 1 do begin
      null_color:=b.Canvas.Pixels[j,i];
      ...
    end;

и всё пошло как надо!

Но всё равно, СПАСИБО ВАМ БОЛЬШОЕ! иначе я бы ещё долго бродил в дебрях канвасов и имеджей