读书人

刚学习Delphi指教

发布时间: 2012-03-03 15:33:03 作者: rapoo

刚学习Delphi,大虾指教
var
TPixels: Array of Array of TRGBTriple;

procedure ReadPixel(LocalBmp:TBitmap);
var
PixPtr: PbyteArray;
i,j,m: Integer;
begin
SetLength(TPixels,LocalBmp.Width,LocalBmp.Height);
LocalBmp.PixelFormat:=pf24bit;
LocalBmp.HandleType:=bmDIB;
for i:=0 to LocalBmp.Height-1 do
begin
PixPtr:=LocalBmp.ScanLine[i];
for j:=0 to LocalBmp.Width-1 do
begin
m:=j*3;
TPixels[j,i].rgbtBlue:=PixPtr[m];
TPixels[j,i].rgbtGreen:=PixPtr[m+1];
TPixels[j,i].rgbtRed:=PixPtr[m+2];
form1.Memo1.Lines.Add(TPixels[j,i]);
end;
end;
end;

我想把一个图片的像素存在一个二维数组中,上面的代码对吗?

[解决办法]
memo怎么能添加TRGBTriple类型呢,它需要字符串
[解决办法]

Delphi(Pascal) code
  tagRGBTRIPLE = packed ses  W
[解决办法]
Delphi(Pascal) code
type  tagRGBTRIPLE = packed record    rgbtBlue: Byte;    rgbtGreen: Byte;    rgbtRed: Byte;end;.....Var Form1:TForm; 

读书人网 >.NET

热点推荐