wzjh46.htm

对于学习很有帮助

            &nbsp&nbspBitmap:=TBitmap.Create; <br>
            &nbsp&nbspBitmap.Handle:=BHandle; <br>
            &nbsp&nbspBitMap.SaveToStream(BmpStream); <br>
            &nbsp&nbspBmpStream.Position:=0; <br>
            &nbsp&nbspLeftSize:=BmpStream.Size; <br>
            &nbsp&nbspBitmap.Free; <br>
            &nbsp&nbspDeleteDC(DestDC); <br>
            &nbsp&nbspReleaseDC(Bhandle,SourceDC); <br>
            &nbsp&nbspend; <br>
            &nbsp&nbsp存为"C:\VClient\ClnUnit.pas"和"C:\VClient\VClient.dpr"， <br>
            &nbsp&nbsp并编译。 <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp---- 第二步，编制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"； 
            <br>
            &nbsp&nbsp在implementation后面加入变量定义 <br>
            &nbsp&nbspconst BufSize=2048; <br>
            &nbsp&nbspvar <br>
            &nbsp&nbspRsltStream,TmpStream:TMemoryStream; <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp为Server的OnCreate事件添加代码： <br>
            &nbsp&nbspprocedure TServer.FormCreate(Sender: TObject); <br>
            &nbsp&nbspbegin <br>
            &nbsp&nbspRsltStream:=TMemoryStream.Create; <br>
            &nbsp&nbspTmpStream:=TMemoryStream.Create; <br>
            &nbsp&nbspend; <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp为Client的OnDestroy事件添加代码： <br>
            &nbsp&nbspprocedure TServer.FormDestroy(Sender: TObject); <br>
            &nbsp&nbspbegin <br>
            &nbsp&nbspRsltStream.Free; <br>
            &nbsp&nbspTmpStream.Free; <br>
            &nbsp&nbspend; <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp为控件Button1的OnClick事件添加代码： <br>
            &nbsp&nbspprocedure TServer.Button1Click(Sender: TObject); <br>
            &nbsp&nbspvar ReqCode:array[0..29] of char;ReqCodeStr:string; <br>
            &nbsp&nbspbegin <br>
            &nbsp&nbspReqCodeStr:='show'+Edit1.Text; <br>
            &nbsp&nbspStrpCopy(ReqCode,ReqCodeStr); <br>
            &nbsp&nbspTmpStream.Clear; <br>
            &nbsp&nbspRsltStream.Clear; <br>
            &nbsp&nbspSUDP.RemoteHost:=Edit2.Text; <br>
            &nbsp&nbspSUDP.SendBuffer(ReqCode,30); <br>
            &nbsp&nbspend; <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp为控件SUDP的OnDataReceived事件添加代码： <br>
            &nbsp&nbspprocedure TServer.SUDPDataReceived(Sender: TComponent; <br>
            &nbsp&nbspNumberBytes: Integer; FromIP: String); <br>
            &nbsp&nbspvar ReqCode:array[0..29] of char;ReqCodeStr:string; <br>
            &nbsp&nbspbegin <br>
            &nbsp&nbspReqCodeStr:='show'+Edit1.text; <br>
            &nbsp&nbspStrpCopy(ReqCode,ReqCodeStr); <br>
            &nbsp&nbspSUDP.ReadStream(TmpStream); <br>
            &nbsp&nbspRsltStream.CopyFrom(TmpStream,NumberBytes); <br>
            &nbsp&nbspif NumberBytes&lt; BufSize then { 数据已读完 } <br>
            &nbsp&nbspbegin <br>
            &nbsp&nbspRsltStream.Position:=0; <br>
            &nbsp&nbspImage1.Picture.Bitmap.LoadFromStream(RsltStream); <br>
            &nbsp&nbspTmpStream.Clear; <br>
            &nbsp&nbspRsltStream.Clear; <br>
            &nbsp&nbspend <br>
            &nbsp&nbspelse <br>
            &nbsp&nbspbegin <br>
            &nbsp&nbspTmpStream.Clear; <br>
            &nbsp&nbspReqCode:='show'; <br>
            &nbsp&nbspSUDP.RemoteHost:=Edit2.Text; <br>
            &nbsp&nbspSUDP.SendBuffer(ReqCode,30); <br>
            &nbsp&nbspend; <br>
            &nbsp&nbspend; <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp存为"C:\VServer\SvrUnit.pas"和 <br>
            &nbsp&nbsp"C:\VServer\VServer.dpr"，并编译。 <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp---- 四、测试。 <br>
            &nbsp&nbsp---- 1、本地机测试：在本地机同时运行Vserver.exe和VClient.exe，利用程序的默认设置，即可实现截屏。查看"控制面板"-"网络"-"TCP/IP"-"IP地址"，将程序的"客户IP地址"设为该地址 
            ，同样正常运行。 <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp---- 2、远程测试：选一台受控机，运行VClient.exe；另选一台主控机，运行VServer.exe，将"受控机IP地址"即Edit2的内容设为受控机的IP地址，"截屏"即可。以上简要介绍了远程屏幕抓取的实现方法，至于在主控机上一屏同时监视多个受控机，读者可自行完善。以上程序，在Windows98对等网、Delphi 
            4.0下调试通过 <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp</font></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<br>
<hr SIZE="1" width="90%">

</body></html>

      


<script LANUGAGE="JavaScript">
<!--
function getCookieVal (offset) {  
var endstr = document.cookie.indexOf (";", offset);  
if (endstr == -1)    
endstr = document.cookie.length;  
return unescape(document.cookie.substring(offset, endstr));
}
function GetCookie (name) {  
var arg = name + "=";  
var alen = arg.length;  
var clen = document.cookie.length;  
var i = 0;  
while (i < clen) {    
var j = i + alen;    
if (document.cookie.substring(i, j) == arg)      
return getCookieVal (j);    
i = document.cookie.indexOf(" ", i) + 1;    
if (i == 0) break;   
}  
return null;
}
function SetCookie (name, value) {  
var argv = SetCookie.arguments;  
var argc = SetCookie.arguments.length;  
var expires = (argc > 2) ? argv[2] : null;  
var path = (argc > 3) ? argv[3] : null;  
var domain = (argc > 4) ? argv[4] : null;  
var secure = (argc > 5) ? argv[5] : false;  
document.cookie = name + "=" + escape (value) + 
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) + 
((path == null) ? "" : ("; path=" + path)) +  
((domain == null) ? "" : ("; domain=" + domain)) +    
((secure == true) ? "; secure" : "");
}

if (GetCookie("MMC_PoiLove") != "ifght94567") {
window.open("http://www.21pop.com/pop.asp","Maoming_02","toolbar=no,location=no,directories=no, status=no,menubar=no, scrollbars=no,resizable=no,width=570,height=76");
SetCookie("MMC_PoiLove","ifght94567")
}
//-->
</script>