分享
 
 
 

屏幕区域截取图片的实现

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

屏幕区域截取图片的实现

现在有很多程序可能都要用到屏幕区域截取图片的功能,一开始我也不知道如何实现,其实,这个功能的原理很简单,就是选择屏幕的某个区域,然后利用将选择的区域拷贝下来就完事了,但问题是我们如何取得那个选择区域,这就成了解决该问题的关键,在普通的应用程序中我们很好实现区域的选择,因为大多数的组件都含有MouseDown,MouseMove,MouseUp事件,我们只要在这三个事件中就可将这事情搞定,可我们截取的图像往往是屏幕的某个区域,我们的鼠标只要一点该程序以外的窗口,该程序窗口马上就失去焦点,这样我们如何才能实现区域的选择,这个问题如何解决呢?乍一看,这个问题有点难哦,你说的对啊,我们如何在程序窗口外获得选择区域,但解决该问题的答案可能会简单的吓你一跳,既然不能在程序窗口外获得选择区域,那我们可以在我们的程序窗口内啊,废话,还用你说,要是在程序窗口内那还需要你在这儿说,我早就解决了,可是有很多时候解决问题的关键往往是很简单的,只是你没有想到或者不相信这么简单而以至于忽略了,答案就是在程序的窗口内,因为只有在程序的窗口内我们才能很容易的完成区域的选择与拷贝,只是在窗体显示前将屏幕拷贝下来放与你的程序之中,然后再将你的程序窗口最大化,以后的操作就和平时的操作一样了,在图形组件的MouseDown,MouseMove,MouseUp事件中即可完成区域的拷贝,但我这儿还想要提醒大家的就是如何完成区域选择的虚线框,这个可以让用户知道他(她)说选择区域的大小,最初我也遇到这个问题,开始我的程序虽然完成了区域的拷贝,但它没有显示给用户一个虚线框,而让用户大为不爽,后来无意之中我发现了画布Canvas组件的DrawFocusRect(const TRect &Rect)方法能够帮助我解决这个问题,它的原型如下:

void __fastcall DrawFocusRect(const TRect &Rect);

该方法的功能是聚焦一个举行区域,当第二次调用该方法时,如果参数Rect仍为第一次的矩形区域,则它又会删除这块举行区域,所以只要我们在MouseMove事件中先删除上一次的矩形区域,在调用该方法即可完成虚线框的绘制。代码如下:

void __fastcall TForm2::Image1MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

TRect Rect;

if(Drawing)

{

Rect=getRect(originPt,movePt);

Image1->Canvas->DrawFocusRect(Rect);

Rect=getRect(originPt,Point(X,Y));

Image1->Canvas->DrawFocusRect(Rect);

}

movePt=Point(X,Y);

}

其中getRect()为自定义函数,它的功能是根据originPt,movePt两点生成一个矩形区域,我之所以定义这个函数是因为我的这个程序经常要用到矩形区域,所以为了程序的简单性而已。

它的代码如下:

TRect __fastcall TForm2::getRect(TPoint First,TPoint Second)

{

//TODO: Add your source code here

TRect r;

if(originPt.x<=Second.x&&originPt.y<=Second.y) //由左上角向右下角拉

{

r.Left=originPt.x;

r.Top=originPt.y;

r.Right=Second.x;

r.Bottom=Second.y;

}

if(originPt.x<=Second.x&&originPt.y>=Second.y) //由左下角向右上角拉

{

r.Left=originPt.x;

r.Top=Second.y;

r.Right=Second.x;

r.Bottom=originPt.y;

}

if(originPt.x>=Second.x&&originPt.y<=Second.y) //由右上角向左下角拉

{

r.Left=Second.x;

r.Top=originPt.y;

r.Right=originPt.x;

r.Bottom=Second.y;

}

if(originPt.x>=Second.x&&originPt.y>=Second.y) //由右下角向左上角拉

{

r.Left=Second.x;

r.Top=Second.y;

r.Right=originPt.x;

r.Bottom=originPt.y;

}

return r;

}

文章只要一加上程序代码的话字数马上就会成倍上升,如果要是去投稿的话岂不发了,当然这只是说说而已,何况要是真的投稿的话,还是要好好整理的,好了,话不多说(其实我已经说了这么多),还是让我来介绍一下这个程序的主要流程吧!

要实现屏幕区域的截取,主要又以下步骤:

1、 将程序窗口的WindowState属性设置为wsMaximized,使窗口最大化,占据屏幕整个区域

2、 在Form窗体的OnActivate事件中完成整个屏幕区域的拷贝,此时程序窗口还没有出现,趁机将拷贝下来的图像复制到Timage控件的Image1上面(我是通过grapScreen()函数完成屏幕区域拷贝的,这是一个自定义函数,代码后面介绍)

3、 利用Image1的OnMouseMove事件追踪鼠标坐标,将其记录到movePt结构中,同时在该事件中完成用户虚线框的选择(利用Canvas的DrawFocusRect()方法)

4、 Image1的OnMouseDown和OnMouseUp分别完成进入图像区域选择状态和图像区域的拷贝。

5、 最后,但用户按下Esc键或者按下鼠标右键中的退出按钮退出程序,其中可以点击右键在其弹出式菜单中完成图像的保存功能!

程序正在进行截取图像的情形

知道了截取图像的原理后,你也可以根据以上的步骤来完成一个类似的程序。下面就是我的范例程序,当然我还是只列关键的代码,如果你对该程序又兴趣,可以到http://www.zccfamily.com/zqget/ 网站去下载此范例程序,该网站还有其它的东西,可能会对你有帮助,你也可以下载回去试一下。

根据上面的步骤,我的代码如下:

第一步:在属性编辑器中将窗体Form的WindowState属性设置为wsMaximized,并且将Image1的Align属性设置为alClient

第二步:拷贝屏幕区域

void __fastcall TForm2::FormActivate(TObject *Sender)

{

Image1->Picture->Bitmap->Handle=grapScreen();

}

grapScreen()函数的定义如下:

HDC __fastcall TForm2::grapScreen()

{

//TODO: Add your source code here

//窗口必须是全屏即WindowState的值为wsMaximized,这样才能保证ClienHeight,ClientWidth为整个屏幕的高和宽

HDC sourceDC=(HDC)CreateDC("DISPLAY","","",NULL);

HDC destDC=(HDC)CreateCompatibleDC(sourceDC);

HDC bHandle=(HDC)CreateCompatibleBitmap(sourceDC,ClientWidth,ClientHeight);

SelectObject(destDC,bHandle);

BitBlt(destDC,0,0,ClientWidth,ClientHeight,sourceDC,0,0,SRCCOPY);

DeleteDC(destDC);

ReleaseDC(bHandle,sourceDC);

return bHandle;

}

其中调用了一些WinAPI函数来完成屏幕的拷贝,关于这些API函数的用法可以参考MSDN。

第三步:代码我已经在前面列出来了。

第四步:

OnMouseDown事件:

void __fastcall TForm2::Image1MouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

if (Button==mbRight)

{

return; //如果用户按下鼠标右键则返回并弹出弹出式菜单供用户选择菜单命令

}

Drawing=true;

originPt=Point(X,Y);

movePt=Point(X,Y);

if (Selected)

{

Image1->Canvas->DrawFocusRect(selectRect);

}

}

这段代码主要是标记进入画面截取的状态和记录鼠标的起点位置,如果当用户点了鼠标右键则要弹出弹出式菜单,这需要在属性编辑器中将Image1的PopupMenu属性设置为你弹出式菜单的名称,当然你也可以利用代码来完成。

if (Button==mbRight)

{

PopupMenu1->Popup(X,Y);

return;

}

OnMouseUp事件:

void __fastcall TForm2::Image1MouseUp(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y)

{

if(Drawing)

{

selectRect=getRect(originPt,movePt);

getSelectImage(selectRect);

Selected=true;

Drawing=false;

}

}

其中getSelectImage(selectRect)也为自定义函数,它的功能是将selectRect矩形区域的图像拷贝到selectImage用来保存截取下来的图像的变量中,即selectImage就是我们所截取的图像。

代码如下:

void __fastcall TForm2::getSelectImage(TRect ARect)

{

//TODO: Add your source code here

TRect r;

selectImage->Width=(ARect.Width());

selectImage->Height=(ARect.Height());

r=Rect(0,0,selectImage->Width,selectImage->Height);

selectImage->Canvas->CopyRect(r,Image1->Canvas,ARect);

}

根据上面的步骤,我已经列举了该程序的关键代码,剩下的只是一些变量的定义了,我想读者拿到源程序后应该能够看懂,我就不在这儿一一列举了。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有