求一个有名的源代码

[knock]

“冰河”大家都知道吧 ：） ，，，好象公开了源代码，但我找不到，谁能给我发一份？
我主要要学习里面抓取屏幕图象的方法。 为这个烦恼好多天了，谢谢了！

[2Bird]

^_^ ！～

[我来看看CB]

不错！

[yuanque]

up

[xiaodongisme]

mark!!

[favorit]

收藏！

[pscj]

去www.8421.org

[knock]

我的email：[e-mail]

[invalid]

抓图，给你个超简版。
//---------------------------------------------------------------------------
bool __fastcall TMainForm::GetScreen(Graphics::TBitmap * mybmp, bool DrawCur)
{
int curx,cury;
HDC dc;
TCanvas * mycan;
TRect r;
TPoint drawpos;
TIcon * mycursor;
HWND hld;
DWORD threadid;
TPoint mp;
TIconInfo *pIconinfo;
// mybmp=new Graphics::TBitmap();
mycan=new TCanvas();
dc=GetWindowDC(0);
try
{
mycan->Handle=dc;
r=Rect(0,0,Screen->Width,Screen->Height);
mybmp->Width=r.Right;
mybmp->Height=r.Bottom;
mybmp->Canvas->CopyRect(r,mycan,r);
}
catch(...)
{
ReleaseDC(0,dc);
return false;
}
ReleaseDC(0,dc);
mycan->Handle=0;
delete mycan;
return true;
}
void __fastcall TMainForm::StartBtnClick(TObject *Sender)
{
if(!connected)
{
SSocket->Port=PortEdit->Text.ToIntDef(8887);
SSocket->Active=true;
connected=true;
StartBtn->Caption="停止";
}
else
{
SSocket->Active=false;
connected=false;
StartBtn->Caption="启动";
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ExitBtnClick(TObject *Sender)
{
if(connect)
SSocket->Active=false;
Close();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::SSocketClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString s,s1;
Graphics::TBitmap * mybmp;
// TJPEGImage *jp = new TJPEGImage();
TJPEGImage * myjpg;
s=Socket->ReceiveText();
if(s=="cap")
{
try{
MyStream=new TMemoryStream();
mybmp=new Graphics::TBitmap();
myjpg=new TJPEGImage();
GetScreen(mybmp,false);
myjpg->Assign(mybmp);
myjpg->CompressionQuality=QualityEdit->Text.ToIntDef(10);
myjpg->SaveToStream(MyStream);
myjpg->SaveToFile("c:\\123.jpg");
}
__finally
{
delete myjpg;
delete mybmp;
}
MyStream->Position=0;
s1=IntToStr(MyStream->Size);
Socket->SendText(s1);
}
if(s=="ready")
{
MyStream->Position=0;
Socket->SendStream(MyStream);
}
}
//---------------------------------------------------------------------------

[大大怪老张]

楼上给的挺全。

抓图加传送。。。

bcb自带了一个文件传送的例子。在demo/fastnet/目录下。

[Behard]

收藏！

[knock]

我有点怀疑啊，用canvas的copyrect能抓下像realplayer,东方影都,超级解霸等的图象吗???? 我也用delphi试过copyrect,抓下来黑忽忽的......

[knock]

总是没人回答。。。

[dszsun]

收藏