Цитата(UniBomb @ 14.9.2010, 20:22  ) | | Тогда здесь RowProcessed[i].rgbtRed содержится 256 оттенков красного?Нет, тут содержится красная составляющая i-того пикселя j-той строки. |
А каждая красная составляющая как раз и может принимать одно из 256 значений взависимости от оттенка красного?
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
CONST
PixelCountMax = 32768;
TYPE
pRGBArray = ^TRGBArray;
TRGBArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
OriginalBitmap:TBitmap;
ProcessedBitmap:TBitmap;
i,j:integer;
RowOriginal:pRGBArray;
RowProcessed:pRGBArray;
implementation
{$R *.dfm}
procedure CreateBMP;
begin
if OriginalBitmap.PixelFormat <> pf24bit then
begin
ShowMessage('Изображение должно быть 24-х битным');
Exit;
end;
{Шаг через каждую строчку изображения.}
for j:=OriginalBitmap.Height-1 downto 0 do
begin
RowOriginal:=pRGBArray(OriginalBitmap.Scanline[j]);
RowProcessed:=pRGBArray(ProcessedBitmap.Scanline[j]);
for i:=OriginalBitmap.Width-1 downto 0 do
begin
//Доступ к RGB-цветам отдельных пикселей должен осуществляться следующим образом:
RowProcessed[i].rgbtRed:=RowOriginal[i].rgbtRed;
RowProcessed[i].rgbtGreen:=RowOriginal[i].rgbtGreen;
RowProcessed[i].rgbtBlue:=RowOriginal[i].rgbtBlue;
end;
end;
Form1.Canvas.Pixels[i,j]:=(RowProcessed[i].rgbtRed shl 16)+
(RowProcessed[i].rgbtGreen shl 8) +
RowProcessed[i].rgbtBlue;
end;
|
Если допустим использую
| Код |
procedure TForm1.Button1Click(Sender: TObject);
begin
OriginalBitmap.LoadFromFile('a.bmp');
createbmp;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OriginalBitmap:=TBitmap.Create;
end;
|
пишет ошибку, в чем проблема? Изображение 'a.bmp' 800x600 |
