大家一块研究＇如何通过网络实时传送图像＇？？？

Question

PCANYWHERE 好像有源码的吧~~

Answer 1

能不能发给我看看！谢谢了！[email protected]

Answer 2

我认为若要研究通过网络实视传输图象的最好方法就是看用Delphi编的木马程序，因为他们都实现这个应用。我所知道的一般是用流传输技术。我给一个主页，这个主页收藏了用Delphi编的很多木马程序，全部附带有源代码，希望你能从中得到启发！
地址：http://guanbh.top263.net/trojan.htm

Answer 3

M$不容許第3方發展這方面的軟件, 你只可按com, dcom, .net規格下編程, 除了Citrix的Metaframe外,相信M$不會容許第2個非M$的Terminal Service.

Answer 4

假如你需要類似pcanywhere的功能, 可參考 vnc server/client, 這應是GNU, 有Linux及Windows版.

Answer 5

【转贴】用Delphi实现远程屏幕抓取 　　在网络管理中，有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然，市面上有很多软件可以实现该功能，有些甚至可以进行远程控制，但在使用上缺乏灵活性，如无法指定远程计算机屏幕区域的大小和位置，进而无法在一屏上同时监视多个屏幕。其实，可以用Delphi自行编制一个灵活的远程屏幕抓取工具，简述如下。 　　一、软硬件要求 　　Windows95/98对等网，用来监视的计算机（以下简称主控机）和被监视的计算机（以下简称受控机）都必须装有TCP/IP 协议，并正确配置。如没有网络，也可以在一台计算机上进行调试。 　　二、实现方法 　　编制两个应用程序，一个为VClient.exe，装在受控机上，另一个为VServer.exe，装在主控机上。VServer.exe指定要监视的受控机的IP地址和将要在受控机屏幕上抓取区域的大小和位置，并发出屏幕抓取指令给VClient.exe，VClient.exe得到指令后，在受控机屏幕上选取指定区域，生成数据流，将其发回主控机，并在主控机上显示出抓取区域的BMP图象。由以上过程可以看出，该方法的关键有二：一是如何在受控机上进行屏幕抓取，二是如何通过TCP/IP协议在两台计算机中传输数据。 
　　UDP(User Datagram Protocol，意为用户报文协议)是Internet上广泛采用的通信协议之一。与TCP协议不同，它是一种非连接的传输协议，没有确认机制，可靠性不如TCP，但它的效率却比TCP高，用于远程屏幕监视还是比较适合的。同时，UDP控件不区分服务器端和客户端，只区分发送端和接收端，编程上较为简单，故选用UDP协议，使用Delphi 4.0提供的TNMUDP控件。 　　三、创建演示程序 　　第一步，编制VClient.exe文件。新建Delphi工程，将默认窗体的Name属性设为“Client”。加入TNMUDP控件，Name属性设为“CUDP”；LocalPort属性设为“1111”，让控件CUDP监视受控机的1111端口，当有数据发送到该口时，触发控件CUDP的OnDataReceived事件；RemotePort属性设为“2222”，当控件CUDP发送数据时，将数据发到主控机的2222口。 
　　在implementation后面加入变量定义 const BufSize=2048;{ 发送每一笔数据的缓冲区大小 } 
var 
BmpStream:TMemoryStream; 
LeftSize:Longint;{ 发送每一笔数据后剩余的字节数 } 为Client的OnCreate事件添加代码： 
procedure TClient.FormCreate(Sender: TObject); 
begin 
BmpStream:=TMemoryStream.Create; 
end; 为Client的OnDestroy事件添加代码： 
procedure TClient.FormDestroy(Sender: TObject); 
begin 
BmpStream.Free; 
end; 为控件CUDP的OnDataReceived事件添加代码： 
procedure TClient.CUDPDataReceived(Sender: TComponent; 
NumberBytes: Integer; FromIP: String); 
var 
CtrlCode:array[0..29] of char; 
Buf:array[0..BufSize-1] of char; 
TmpStr:string; 
SendSize,LeftPos,TopPos,RightPos,BottomPos:integer; 
begin 
CUDP.ReadBuffer(CtrlCode,NumberBytes);{ 读取控制码 } 
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]='show' then 
begin { 控制码前4位为“show”表示主控机发出了抓屏指令 } 
if BmpStream.Size=0 then { 没有数据可发，必须截屏生成数据 } 
begin 
TmpStr:=StrPas(CtrlCode); 
TmpStr:=Copy(TmpStr,5,Length(TmpStr)-4); 
LeftPos:=StrToInt(Copy(TmpStr,1,Pos(':',TmpStr)-1)); 
TmpStr:=Copy(TmpStr,Pos(':',TmpStr)+1,Length(TmpStr) 
-Pos(':',TmpStr)); 
TopPos:=StrToInt(Copy(TmpStr,1,Pos(':',TmpStr)-1)); 
TmpStr:=Copy(TmpStr,Pos(':',TmpStr)+1,Length(TmpStr)- 
Pos(':',TmpStr)); 
RightPos:=StrToInt(Copy(TmpStr,1,Pos(':',TmpStr)-1)); 
BottomPos:=StrToInt(Copy(TmpStr,Pos(':',TmpStr 
)+1,Length(TmpStr)-Pos(':',TmpStr))); 
ScreenCap(LeftPos,TopPos,RightPos,BottomPos); { 
截取屏幕 } 
end; 
if LeftSize>BufSize then SendSize:=BufSize 
else SendSize:=LeftSize; 
BmpStream.ReadBuffer(Buf,SendSize); 
LeftSize:=LeftSize-SendSize; 
if LeftSize=0 then BmpStream.Clear;{ 清空流 } 
CUDP.RemoteHost:=FromIP; { FromIP为主控机IP地址 } 
CUDP.SendBuffer(Buf,SendSize); { 将数据发到主控机的2222口 } 
end; 
end; 其中ScreenCap是自定义函数，截取屏幕指定区域， 
代码如下： 
procedure TClient.ScreenCap(LeftPos,TopPos, 
RightPos,BottomPos:integer); 
var 
RectWidth,RectHeight:integer; 
SourceDC,DestDC,Bhandle:integer; 
Bitmap:TBitmap; 
begin 
RectWidth:=RightPos-LeftPos; 
RectHeight:=BottomPos-TopPos; 
SourceDC:=CreateDC('DISPLAY','','',nil); 
DestDC:=CreateCompatibleDC(SourceDC); 
Bhandle:=CreateCompatibleBitmap(SourceDC, 
RectWidth,RectHeight); 
SelectObject(DestDC,Bhandle); 
BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC, 
LeftPos,TopPos,SRCCOPY); 
Bitmap:=TBitmap.Create; 
Bitmap.Handle:=BHandle; 
BitMap.SaveToStream(BmpStream); 
BmpStream.Position:=0; 
LeftSize:=BmpStream.Size; 
Bitmap.Free; 
DeleteDC(DestDC); 
ReleaseDC(Bhandle,SourceDC); 
end; 
存为“C:\VClient\ClnUnit.pas”和“C:\VClient\VClient.dpr”， 
并编译。

Answer 6

第二步，编制VServer.exe文件。新建Delphi工程，将窗体的Name属性设为“Server”。加入TNMUDP控件，Name属性设为“SUDP”；LocalPort属性设为“2222”，让控件SUDP监视主控机的2222端口，当有数据发送到该口时，触发控件SUDP的OnDataReceived事件；RemotePort属性设为“1111”，当控件SUDP发送数据时，将数据发到受控机的1111口。加入控件Image1，Align属性设为“alClient”；加入控件Button1，Caption属性设为“截屏”；加入控件Label1，Caption属性设为“左：上：右：下”；加入控件Edit1，Text属性设为“0:0:100:100”；加入控件Label2，Caption属性设为“受控机IP地址”；加入控件Edit2，Text属性设为“127.0.0.1”； 
在implementation后面加入变量定义 
const BufSize=2048; 
var 
RsltStream,TmpStream:TMemoryStream; 为Server的OnCreate事件添加代码： 
procedure TServer.FormCreate(Sender: TObject); 
begin 
RsltStream:=TMemoryStream.Create; 
TmpStream:=TMemoryStream.Create; 
end; 为Client的OnDestroy事件添加代码： 
procedure TServer.FormDestroy(Sender: TObject); 
begin 
RsltStream.Free; 
TmpStream.Free; 
end; 为控件Button1的OnClick事件添加代码： 
procedure TServer.Button1Click(Sender: TObject); 
var ReqCode:array[0..29] of char;ReqCodeStr:string; 
begin 
ReqCodeStr:='show'+Edit1.Text; 
StrpCopy(ReqCode,ReqCodeStr); 
TmpStream.Clear; 
RsltStream.Clear; 
SUDP.RemoteHost:=Edit2.Text; 
SUDP.SendBuffer(ReqCode,30); 
end; 为控件SUDP的OnDataReceived事件添加代码： 
procedure TServer.SUDPDataReceived(Sender: TComponent; 
NumberBytes: Integer; FromIP: String); 
var ReqCode:array[0..29] of char;ReqCodeStr:string; 
begin 
ReqCodeStr:='show'+Edit1.text; 
StrpCopy(ReqCode,ReqCodeStr); 
SUDP.ReadStream(TmpStream); 
RsltStream.CopyFrom(TmpStream,NumberBytes); 
if NumberBytes< BufSize then { 数据已读完 } 
begin 
RsltStream.Position:=0; 
Image1.Picture.Bitmap.LoadFromStream(RsltStream); 
TmpStream.Clear; 
RsltStream.Clear; 
end 
else 
begin 
TmpStream.Clear; 
ReqCode:='show'; 
SUDP.RemoteHost:=Edit2.Text; 
SUDP.SendBuffer(ReqCode,30); 
end; 
end; 存为“C:\VServer\SvrUnit.pas”和 
“C:\VServer\VServer.dpr”，并编译。 　　四、测试。 
　　1、本地机测试：在本地机同时运行Vserver.exe和VClient.exe，利用程序的默认设置，即可实现截屏。查看“控制面板”-“网络”-“TCP/IP”-“IP地址”，将程序的“客户IP地址”设为该地址 ，同样正常运行。 
　　2、远程测试：选一台受控机，运行VClient.exe；另选一台主控机，运行VServer.exe，将“受控机IP地址”即Edit2的内容设为受控机的IP地址，“截屏”即可。以上简要介绍了远程屏幕抓取的实现方法，至于在主控机上一屏同时监视多个受控机，读者可自行完善。

Answer 7

我自已想PCANYWHERE应该是将本地MOUSE的动态情况能过网络传到远程，再将远程的被控图像用的STREAM技术将远程图像传过来．看了一下MSDN，好像DIRECTX能完成吧？？　对这方面不熟，记的有DIRECTX FOR DELPHI，谁知道哪里有下载？？最好有文档．

Answer 8

其实我现在想得到的笑果是用流传送远程系统的动态图像就可以了，不是传远程的一个或是一个个静态画面．
如果能做到流传送这步，然后再做控制应该不难了．
TO erickleung() 
vnc server/client是什么东东？？在哪？

Answer 9

http://www.delphibbs.com/delphibbs/dispq.asp?lid=835570
DelphiX     http://www.yks.ne.jp/~hori/DelphiX-e.html
   JEDI_VCL    http://www.delphi-jedi.org/DelphiGraphics/jedi-index.htm

Answer 10

可能是用Hook，记录Mouse/KeyBoard的状态，如果是mouse move那只是将它的位置传输，其它情况才传图象吧。
以前看过上面的程式，但很慢，一点点的在动。

Answer 11

对不起,刚才一位要程序的朋友,你的EMAIL忘了~~~~~~~~~~

Answer 12

絕大部份linux都有收藏 vnc server, 下面只是給你參考.http://www.defcon1.org/About_Us/News/Upcoming_Articles/VNC-Server/vnc-server.html

Answer 13

torble(阿裕)你的办法实在不高，UDP容易掉包，不适合稳定的数据传输，他要得到图象，UDP根本不行，你的哪段代码更本没有任何用， 连多线都没有用，而且你捕获鼠标位置也没有任何用，呵呵，其实只要刷新桌面的无效区域就可以了，还要压缩，协议用TCP才是上选~

Answer 14

GIF 256 格式比较适合传输

Answer 15

多谢各位．我们继续我现在的思路如下：
１在机器上连续取图，存到内存中．
２将上面内存中连续的一组图像压缩生成一段影像数据，比如AVI或是MPEG（但只在内存中并不生成　文件）,然后建立一个 MEMORYSTREAM，再把它们放到MEMORYSTREAM里．
 3 然后将刚才压缩在MEMORYSTREAM中的一段数据能过SOCKET发到目标机器．
４目标机器接到后用上面反应的方法再还原出来．另外我想用IGMP来传送，这样应该可以减少网络流量．只有运行相应客户端程序的机器才会接收．现在将BMP变成MPEG或是AVI的压缩算法，是一个问题，正在找资料，哪位知道？或是有控件也行，不过不是能存成文件那种，只放在内存中就行了，压一段传一段．另外如果应用IGMP以前从没做过？？哪位指明一下？？　
多谢！！

Answer 16

你的思路很对.现在最大的问题是一:采集的速率无法很快.每秒10帧就很不错了(我没试过,我见过很多类似的帖子,都是死在这个上)
二是压缩,这个比较容易,可以自己写,www.avsuper.com
三是传输用udp比较好,压缩过的图像相当小的,10m的网络根本感觉不到

Answer 17

抓屏很慢而且及其占用CPU . 这个关大家恐怕都过不了啊.后面的就不要谈了.

Answer 18

今天试过了用CANVAS来抓图真是很慢．
下一步试试尝试用DIRECTX．