怎样在本机屏幕实时显示局域网中另一台电脑的屏幕内容（急、急、急、急）

Question

怎样在本机屏幕实时显示局域网中另一台电脑的屏幕内容，不用分屏硬件，用软件实现，数据传输通过网线。

Answer 1

在google中搜delphi,网络编程一大堆，这是个经典例子

Answer 2

把你的程序分成两个，一个服务器，一个客户端，别人运行服务器，使用API函数抓图，每秒12或24幅，转为晕JPG后发回客户端，或者你就在服务器上转为AVI，传回客户端，至于如何实现JPG到AVI网上有专门的帖子，客户端的显示就很好实现了

Answer 3

我的程序以一秒一幅图片的速度传输图片，但客户端程序运行了十几分钟后就出错，怎么也查不出错误。
wang_xiaoni(wxn)能否提供源程序.万分感激！！！！

Answer 4

用CreateCompatibleBitmap（）函数连续进行屏幕捉图，程序运行了十分钟后就不能捉图，初步查找是CreateCompatibleBitmap（）函数在程序运行了十分钟后不能正常执行。本人源代码如下，请指教：
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;