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 order by排序问题:请各位帮检查一写法有何错误,谢谢
- 用Delphi开发的ActiveX Form,发布是以OCX形式,关于下载的问题
- 请问:如何用最简单的方法!把两个数据库内的表进行比较然后把不同的插入即可!
- 窗体中有10个动态数组的label,edit,如何寻其进行数据更新,其中的label与数据库中的字段名称相同,分不足可以再加
- 再一个问题 oracle高手请进
- 我和曾經的同事新成立電腦公司需幫忙(對某些人絕對的容易)
- 难题请教:如何根据FORM的Name属性动态建FORM
- 如何uninstall XPMenu?
- 请穷鬼来领分啊◎!尤其是slyer,老雷!!
- 请家帮忙!
- 如何防止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]这一点红色值。
我马上加分给你。谢谢。最好在窗口最小化时能取值,我已经可以取屏幕的值了。