image1.Canvas.CopyRect
(Rect (10, 10, 160, 130),VideoWindow1.canvas,
Rect (10, 10, 160, 130));----ok
image3.Canvas.Pixels[i,j]:=image1.Canvas.Pixels[i,j];---ok
for i:=13 to 80 do
for j:=13 to 80 do
begin
image3.Canvas.Pixels[i,j]:=VideoWindow1.Canvas.Pixels[i,j];---不行,要如何写
另: image1.Canvas.CopyRect
(Rect (10, 10, 160, 130),VideoWindow1.canvas,
Rect (10, 10, 160, 130));----ok ,也只栲屏,怎能只拷VideoWindow1内容,VideoWindow1是视频显示窗口。---解决可加分
(Rect (10, 10, 160, 130),VideoWindow1.canvas,
Rect (10, 10, 160, 130));----ok
image3.Canvas.Pixels[i,j]:=image1.Canvas.Pixels[i,j];---ok
for i:=13 to 80 do
for j:=13 to 80 do
begin
image3.Canvas.Pixels[i,j]:=VideoWindow1.Canvas.Pixels[i,j];---不行,要如何写
另: image1.Canvas.CopyRect
(Rect (10, 10, 160, 130),VideoWindow1.canvas,
Rect (10, 10, 160, 130));----ok ,也只栲屏,怎能只拷VideoWindow1内容,VideoWindow1是视频显示窗口。---解决可加分
解决方案 »
- 关于向量异常处理
- Delphi 2007 傻瓜安装DevExpress后出错
- 重分求救,为什么我的Delphi IDE不能像这张官方截图那样美?
- 产生注册号及相对应的注册系统代码
- 请高手看看这个ACTIVEX控件的内存释放问题,在网页上用一会就报内存资源不足。
- 请求高手指点delphi7中软件开发问题
- 推荐几本delphi的精典书?
- 有什么方法在TStringGrid中画一幅画,而不是在某个单元中画?
- 到那能找到锁定某列不移动的DBGrid的第三方空件?
- 奇怪的情况,我用delphi7和sql2005写了个程序,长时间放置后,第一次读不出数据,第二次才行,不知道什么情况?
- 如何防止SQL SERVER的事件跟踪器跟踪软件的脚本?
- 紧急求救关于DELPHI和sql的发布问题????
ScanLine会快很多
而且最好用内部Bitmap处理后再用Image显示
要取dx视频显示窗口内容,可参考:
http://topic.csdn.net/t/20051106/11/4374651.html
用我22楼的程序可以.用ly_liuyang的方法也可
Is555:boolean=false;
function GetRed(color:WORD ):byte;
begin
if( Is555 ) then
result:= (color shr 7) and $ff
else
result:= (color shr 8) and $ff;
end;
这里我看不懂。
能不能直接写一行得到VideoWindow1.Canvas.Pixels[10,10]这一点红色值。
我马上加分给你。谢谢。最好在窗口最小化时能取值,我已经可以取屏幕的值了。