如题,希望能给个例子.先谢谢了~~~~~~~~~
解决方案 »
- TcxTreeList的节点删除问题
- 关于那个21秒抽奖的,领不到分的到这里...~_~
- 急!!!excel中设置输入数据后按F9进行计算,请问如何在DELPHI中进行控制?
- 普通的DELPHI程序员请进来回答一下我的问题?
- SQL Server 急!
- 在开始web server application程序时,只要加入一个data module,就会出错,提示什么软件异常,怎么回事,谁给解释一下?
- 急! DELPHI执行oracle sql老提示: 非单组分组函数
- 我遇到一个奇怪的问题,在窗体上又个treeview控件,在设计状态我不能改变它的高度,在运行时它使得我的窗口不能resize,为什么??
- 用 TCompressionStream 系统总是报错?
- 有什么工具能把doc文件转成帮助文件?
- delphi7的WebBrowser取消滚动条问题
- 精确的屏幕取词的源码,高分相送,请高手帮忙.
那我就要BS你了:),ScanLines都不用怎么搞图像处理
ScanLines的功能可以用其它办法来实现啊。这个东西不好用,不懂。
iCount:=0;
dY:=0;
for j := 64 to 248 do
begin
P := bmp.ScanLine[j];
for i := 16 to 256 do
begin
//访问像素 RGB
b:=P^.rgbtBlue;
g:=P^.rgbtGreen;
r:=P^.rgbtRed ;
inc(P);//指向下一个像素
dY:=dY+r*30+g*59+b*11;
iCount:=iCount+1;
end;
end;
if iCount>0 then dY:=dy div iCount;
edit1.Text:=IntToStr(DY div 100);
我估计要相差2个数量级,至少一个数量级。
我估计要相差2个数量级,至少一个数量级。
哈哈楼上的同学说的是在忆知的情况下吧
如果按已知来计算Canvas.Pixels[20,100]整度也没法计算
假如Bitmap的数据是按行存储的, ScanLine返回的是某行第一个像素的数据在内存中的地址。楼上所说的
那么请问我要最某行最的的一个呢还不要用FOR或while等,也没发现他真的会快;
var
x,y : Integer;
BitMap : TBitMap;
P : PByteArray;
begin
BitMap := TBitMap.create;
try
// On Windows replace MyBitmap.png with a full pathname such as
// C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp
BitMap.LoadFromFile('MyBitmap.png');
for y := 0 to BitMap.Height -1 do
begin
P := BitMap.ScanLine[y]; for x := 0 to BitMap.Width -1 do
P[x] := y;
end;
Canvas.Draw(0,0,BitMap);
finally
BitMap.Free;
end;
end;
Delphi 自带的例子