yashar666
چهارشنبه 21 دی 1390, 02:16 صبح
با سلام
این کد رو ببینید :
procedure TForm1.Button1Click(Sender: TObject);
var
x:PByteArray;
i:Integer;
begin
x:=Image1.Picture.Bitmap.ScanLine[160];
for I := 0 to Image1.Picture.Bitmap.Width - 1 do
begin
Memo1.Lines.Add(IntToStr(x[i]));
end;
end;
لاین 160 .. تمام پیکسل ها شو به صورت B R G gray (چهار عدد پشت هم ) برمیگرداند ..
می خوام در 4 تا memo به صورت جدا B R G gray رو ببینم
این کد رو ببینید :
procedure TForm1.Button1Click(Sender: TObject);
var
x:PByteArray;
i:Integer;
begin
x:=Image1.Picture.Bitmap.ScanLine[160];
for I := 0 to Image1.Picture.Bitmap.Width - 1 do
begin
Memo1.Lines.Add(IntToStr(x[i]));
end;
end;
لاین 160 .. تمام پیکسل ها شو به صورت B R G gray (چهار عدد پشت هم ) برمیگرداند ..
می خوام در 4 تا memo به صورت جدا B R G gray رو ببینم