13,872
社区成员
发帖
与我相关
我的任务
分享http://www.csdn.net/Expert/topic/491/491272.shtm .
http://www.csdn.net/Expert/topic/491/491272.shtm
...全文
请发表友善的回复…
发表回复
superaf 2002-01-22
- 打赏
- 举报
void ComGetScreenServ::SnapScreen()
{
RECT r;
GetWindowRect(GetDesktopWindow( ),&r);
TCanvas *Canvas0=new TCanvas;
Canvas0->Handle=GetDC(0);
Graphics::TBitmap *bitmap=new Graphics::TBitmap( );
bitmap->Height=r.bottom;
bitmap->Width=r.right;
bitmap->Canvas->CopyRect(r,Canvas0,r);
delete Canvas0;
TJPEGImage* Screen = new TJPEGImage();
Screen->CompressionQuality=50; // 失真度
Screen->Assign(bitmap);
delete bitmap;
Screen->SaveToStream(JpegStream);
JpegStream->Position = 0;
delete Screen;
}
{
RECT r;
GetWindowRect(GetDesktopWindow( ),&r);
TCanvas *Canvas0=new TCanvas;
Canvas0->Handle=GetDC(0);
Graphics::TBitmap *bitmap=new Graphics::TBitmap( );
bitmap->Height=r.bottom;
bitmap->Width=r.right;
bitmap->Canvas->CopyRect(r,Canvas0,r);
delete Canvas0;
TJPEGImage* Screen = new TJPEGImage();
Screen->CompressionQuality=50; // 失真度
Screen->Assign(bitmap);
delete bitmap;
Screen->SaveToStream(JpegStream);
JpegStream->Position = 0;
delete Screen;
}
