delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
用scanline取BMP上某点的颜色,代码如下,为什么可以编译,运行时却出错呢? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20060923102511298.html
procedure   TForm1.Image1Click(Sender:   TObject);  
  var  
    x,y:Integer;  
    Pixs:array   of   TColor;  
  begin  
   
    image1.Picture.loadfromfile('d:\001.bmp');  
    Pixs:=image1.Picture.Bitmap.ScanLine[0];  
    if   Pixs[0]=clwhite   then   showmessage('www');  
   
  end.  
   
  请路过的朋友不吝赐教啊。。

p:ByteArray;  
  p:=image1.Picture.Bitmap.ScanLine[0];

多谢,但是为什么tcolor数组不行?

类型不同

请问能不能将scanline出来的值经过转换后输入到tcolor数组,我想它们都是表示颜色的,应该可以做到吧?

 
  看下ScanLine的   使用  
 

"为什么可以编译,运行时却出错呢?"  
   
  要写一个编译不出错,而运行出错的程序真的太容易了。

var  
  a:TBitMap  
  begin  
          form1.canves.Draw(x,y,a);  
  end;  
   
  这样应该就编译得过但运行出错!

posted on 2009-03-13 10:29 delphi2007 阅读(283) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。