怎样在本机屏幕实时显示局域网中另一台电脑的屏幕内容,不用分屏硬件,用软件实现,数据传输通过网线。
解决方案 »
- 获取窗体外鼠标点击事件,为什么我用钩子也获取不到?
- 调用copymemory()函数时,若传递的第二个参数是string类型,应该怎么办?
- 一个小问题,Unit not found: 'System.pas' or binary equivalents (DCU,DPU)
- 搜索不到了,100分问个老问题:如何读出WORD的DOC文件
- 谁知道《Delphi 6.0 高级程序设计指南》中文下载地止
- 请教大家!last 和 findlast 的区别? 在线等待,马上给分!
- 如何使程序执行第二次时给出提示?
- 实现DBGrid中的数据拷贝、粘贴、剪切的功能。(要支持多行、多列的)。
- 关于EDIT和DBGRID组合之简单问题!
- 小弟是刚来的菜菜鸟!谁能告诉我这里的分数计算到底是怎么回事?我怎么没有专家分?
- 关于DLL的问题!请高手帮忙,高分相送!
- filecreate()函数和fileclose()应该怎么用?
wang_xiaoni(wxn)能否提供源程序.万分感激!!!!
var
RectWidth,RectHeight:integer;
SourceDC,DestDC,Bhandle:integer;
Bitmap:TBitmap;
begin
BmpStream.Clear; RectWidth:=RightPos-LeftPos;
RectHeight:=BottomPos-TopPos;
SourceDC:=CreateDC('DISPLAY','','',nil);
DestDC:=CreateCompatibleDC(SourceDC);
Bhandle:=CreateCompatibleBitmap(SourceDC,RectWidth,RectHeight);
if bhandle=0 then
showmessage('asfweqr3313425235');
SelectObject(DestDC,Bhandle);
BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC,LeftPos,TopPos,SRCCOPY);
Bitmap:=TBitmap.Create;
Bitmap.Handle:=BHandle;
if bitmap.Empty then
showmessage('asdfasfasfasf'); //用于判断函数是否正常执行
BitMap.SaveToStream(BmpStream);
BmpStream.Position:=0;
LeftSize:=BmpStream.Size;
bitmap.ReleaseHandle;
Bitmap.Free;
DeleteDC(DestDC);
ReleaseDC(Bhandle,SourceDC);
end;