“流”的利用--网络传输屏幕图像.htm

delphi环境下关于“流”的使用,很透彻

      上面是服务端，下面我们来写客户端程序。新建一个工程，添加Socket控件ClientSocket、图像显示控件Image、一个 Panel 
      、一个Edit、两个 Button和一个状态栏控件StatusBar1。注意：把Edit1和两个 
      Button放在Panel1上面。ClientSocket的属性跟ServerSocket差不多，不过多了一个Address属性，表示要连接的服务端IP地址。填上IP地址后点“连接”将与服务端程序建立连接，如果成功就可以进行通讯了。点击“抓屏”将发送字符给服务端。因为程序用到了JPEG图像单元，所以要在Uses中添加Jpeg.<BR>全部代码如下：<BR>unit 
      Unit2{客户端};<BR>interface<BR>uses<BR>Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ScktComp,ExtCtrls,Jpeg, 
      ComCtrls;<BR>type<BR>TForm1 = class(TForm)<BR>ClientSocket1: 
      TClientSocket;<BR>Image1: TImage;<BR>StatusBar1: TStatusBar;<BR>Panel1: 
      TPanel;<BR>Edit1: TEdit;<BR>Button1: TButton;<BR>Button2: 
      TButton;<BR>procedure Button1Click(Sender: TObject);<BR>procedure 
      ClientSocket1Connect(Sender: TObject;<BR>Socket: 
      TCustomWinSocket);<BR>procedure Button2Click(Sender: 
      TObject);<BR>procedure ClientSocket1Error(Sender: TObject; Socket: 
      TCustomWinSocket;<BR>ErrorEvent: TErrorEvent; var ErrorCode: 
      Integer);<BR>procedure ClientSocket1Read(Sender: TObject; Socket: 
      TCustomWinSocket);<BR>procedure FormCreate(Sender: TObject);<BR>procedure 
      FormClose(Sender: TObject; var Action: TCloseAction);<BR>procedure 
      ClientSocket1Disconnect(Sender: TObject;<BR>Socket: 
      TCustomWinSocket);<BR>private<BR>{ Private declarations }<BR>public<BR>{ 
      Public declarations }<BR>end;<BR>var<BR>Form1: TForm1;<BR>MySize: 
      Longint;<BR>MyStream: TMemorystream;{内存流对象}<BR>implementation<BR>{$R 
      *.DFM}<BR>procedure TForm1.FormCreate(Sender: 
      TObject);<BR>begin<BR>{-------- 下面为设置窗口控件的外观属性 ------------- 
      }<BR>{注意:把Button1、Button2和Edit1放在Panel1上面}<BR>Edit1.Text := 
      '127.0.0.1';<BR>Button1.Caption := '连接主机';<BR>Button2.Caption := 
      '抓屏幕';<BR>Button2.Enabled := false;<BR>Panel1.Align := 
      alTop;<BR>Image1.Align := alClient;<BR>Image1.Stretch := 
      True;<BR>StatusBar1.Align:=alBottom;<BR>StatusBar1.SimplePanel := 
      True;<BR>{----------------------------------------------- }<BR>MyStream := 
      TMemorystream.Create; {建立内存流对象}<BR>MySize := 0; {初始化}<BR>end;<BR>procedure 
      TForm1.Button1Click(Sender: TObject);<BR>begin<BR>if not 
      ClientSocket1.Active then<BR>begin<BR>ClientSocket1.Address := Edit1.Text; 
      {远程IP地址}<BR>ClientSocket1.Port := 3000; {Socket端口}<BR>ClientSocket1.Open; 
      {建立连接}<BR>end;<BR>end;<BR>procedure TForm1.Button2Click(Sender: 
      TObject);<BR>begin<BR>Clientsocket1.Socket.SendText('cap'); 
      {发送指令通知服务端抓取屏幕图象}<BR>Button2.Enabled := False;<BR>end;<BR>procedure 
      TForm1.ClientSocket1Connect(Sender: TObject;<BR>Socket: 
      TCustomWinSocket);<BR>begin<BR>StatusBar1.SimpleText := '与主机' + 
      ClientSocket1.Address + '成功建立连接!';<BR>Button2.Enabled := 
      True;<BR>end;<BR>procedure TForm1.ClientSocket1Error(Sender: 
      TObject;<BR>Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;<BR>var 
      ErrorCode: Integer);<BR>begin<BR>Errorcode := 0; 
      {不弹出出错窗口}<BR>StatusBar1.SimpleText := '无法与主机' + ClientSocket1.Address + 
      '建立连接!';<BR>end;<BR>procedure TForm1.ClientSocket1Disconnect(Sender: 
      TObject;<BR>Socket: TCustomWinSocket);<BR>begin<BR>StatusBar1.SimpleText 
      := '与主机' + ClientSocket1.Address + '断开连接!';<BR>Button2.Enabled := 
      False;<BR>end;<BR>procedure TForm1.ClientSocket1Read(Sender: 
      TObject;<BR>Socket: TCustomWinSocket);<BR>var<BR>MyBuffer: array[0..10000] 
      of byte; {设置接收缓冲区}<BR>MyReceviceLength: integer;<BR>S: string;<BR>MyBmp: 
      TBitmap;<BR>MyJpg: TJpegimage;<BR>begin<BR>StatusBar1.SimpleText := 
      '正在接收数据......';<BR>if MySize = 0 then 
      {MySize为服务端发送的字节数，如果为0表示为尚未开始图象接收}<BR>begin<BR>S := 
      Socket.ReceiveText;<BR>MySize := Strtoint(S); 
      {设置需接收的字节数}<BR>Clientsocket1.Socket.SendText('ready'); 
      {发指令通知服务端开始发送图象}<BR>end<BR>else<BR>begin {以下为图象数据接收部分}<BR>MyReceviceLength 
      := socket.ReceiveLength; {读出包长度}<BR>StatusBar1.SimpleText := 
      '正在接收数据,数据大小为:' + inttostr(MySize);<BR>Socket.ReceiveBuf(MyBuffer, 
      MyReceviceLength); {接收数据包并读入缓冲区内}<BR>MyStream.Write(MyBuffer, 
      MyReceviceLength); {将数据写入流中}<BR>if MyStream.Size &gt;= MySize then 
      {如果流长度大于需接收的字节数，则接收完毕}<BR>begin<BR>MyStream.Position := 0;<BR>MyBmp := 
      tbitmap.Create;<BR>MyJpg := 
      tjpegimage.Create;<BR>try<BR>MyJpg.LoadFromStream(MyStream); 
      {将流中的数据读至JPG图像对象中}<BR>MyBmp.Assign(MyJpg); 
      {将JPG转为BMP}<BR>StatusBar1.SimpleText := 
      '正在显示图像';<BR>Image1.Picture.Bitmap.Assign(MyBmp); {分配给image1元件 
      }<BR>finally {以下为清除工作 }<BR>MyBmp.free;<BR>MyJpg.free;<BR>Button2.Enabled 
      := true;<BR>{ Socket.SendText('cap');添加此句即可连续抓屏 
      }<BR>MyStream.Clear;<BR>MySize := 
      0;<BR>end;<BR>end;<BR>end;<BR>end;<BR>procedure TForm1.FormClose(Sender: 
      TObject; var Action: TCloseAction);<BR>begin<BR>MyStream.Free; 
      {释放内存流对象}<BR>if ClientSocket1.Active then ClientSocket1.Close; 
      {关闭Socket连接}<BR>end;<BR>end.<BR><BR>&nbsp; 
      程序原理：运行服务端开始侦听，再运行客户端，输入服务端IP地址建立连接，然后发一个字符通知服务端抓屏幕。服务端调用自定义函数Cjt_GetScreen抓取屏幕存为BMP，把BMP转换成JPG，把JPG写入内存流中，然后把流发送给客户端。客户端接收到流后做相反操作，将流转换为JPG再转换为BMP然后显示出来。<BR>&nbsp; 
      注意：因为Socket的限制，不能一次发送过大的数据，只能分几次发。所以程序中服务端抓屏转换为流后先发送流的大小，通知客户端这个流共有多大，客户端根据这个数字大小来判断是否已经接收完流，如果接收完才转换并显示。<BR>&nbsp; 
      这个程序跟前面的自制OICQ都是利用了内存流对象TMemoryStream。其实，这个流对象是程序设计中用得最普遍的，它可以提高I/O的读写能力，而且如果你要同时操作几个不同类型的流，互相交换数据的话，用它作“中间人”是最好不过的了。比如说你把一个流压缩或者解压缩，就先建立一个TMemoryStream对象，然后把别的数据拷贝进去，再执行相应操作就可以了。因为它是直接在内存中工作，所以效率是非常高的。有时侯甚至你感觉不到有任何的延迟。<BR>&nbsp; 
      程序有待改进的地方：当然可以加一个压缩单元，发送前先压缩再发送。注意：这里也是有技巧的，就是直接把BMP压缩而不要转换成JPG再压。实验证明：上面程序一幅图像大小大概为40-50KB，如果用LAH压缩算法处理一下便只有8-12KB，这样传输起来就比较快。如果想更快的话，可以采用这样的方法：先抓第一幅图像发送，然后从第二幅开始只发跟前一幅不同区域的图像。外国有一个程序叫Remote 
      Administrator，就是采用这样的方法。他们测试的数据如下：局部网一秒钟100-500幅，互联网上，在网速极低的情况下，一秒钟传输5-10幅。说这些题外话只想说明一个道理：想问题，特别是写程序，特别是看起来很复杂的程序，千万不要钻牛角尖，有时侯不妨换个角度来想。程序是死的，人才是活的。当然，这些只能靠经验的积累。但是一开始就养成好习惯是终身受益的！<BR><BR>★作者:<BR><BR>陈经韬<BR>
          <BR>
          Http:Lovejingtao.126.com&nbsp;<BR>
          E-Mail: [e-mail] &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
        </TD>
      </TR>
  <TR>
        <TD bgColor=#d0ffd0 borderColor=#f0fff0 height=2 vAlign=top 
      width=593>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &copy;CopyRight 2000</TD>
      </TR></TBODY></TABLE></CENTER></DIV></BODY></HTML>