用scanline取BMP上某点的颜色,代码如下,为什么可以编译,运行时却出错呢? Delphi / Windows SDK/APIhttp://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;
这样应该就编译得过但运行出错!