首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

刚学习Delphi,指教

2012-03-03 
刚学习Delphi,大虾指教varTPixels: Array of Array of TRGBTripleprocedure ReadPixel(LocalBmp:TBitmap)

刚学习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; 

热点排行