tidtcpserver控件的问题

                            
常常都在传输文本文件时,从server转输到client,client端的文件总面总是多了几个空格,这是什么原因   
  client端  
  procedure   TForm1.btnconnectClick(Sender:   TObject);  
  begin  
      if   client.Connected   then  
      else  
      begin  
          client.Host:=edthost.Text;  
          client.Port:=8080;  
          client.Connect();  
          if   client.Connected   and   recivefile   then  
              showmessage('ok');  
      end;  
  end;  
   
  function   TForm1.recivefile:   boolean;  
  var  
      fs:tfilestream;  
      lintsize:int64;  
  begin  
      try   try  
          fs:=tfilestream.Create('D:\新建   文本文档.txt',fmcreate);  
          lintsize:=fs.Size;  
          client.ReadStream(fs,lintsize,true);  
          result:=true;  
      except   on   ex:exception   do  
      begin  
          messagedlg(ex.Message,mtwarning,[mbyes],1);  
          showmessage(inttostr(fs.Size));  
      end;  
      end;  
      finally  
          fs.Free;  
      end;  
  end;  
  server端  
  rocedure   TForm1.serverConnect(AThread:   TIdPeerThread);  
  begin  
      showmessage(athread.Connection.Socket.Binding.PeerIP);    
  end;  
   
  procedure   TForm1.serverExecute(AThread:   TIdPeerThread);  
  var  
      fs:tfilestream;  
  begin  
      try   try  
          if   fileexists(edtpath.Text   )   then  
              fs:=tfilestream.Create(edtpath.Text   ,fmopenread)  
          else  
              exit;  
          athread.Connection.WriteStream(fs,false,true,fs.Size);  
      except   on   ex:exception   do  
      begin  
          messagedlg(ex.Message,mtwarning,[mbyes],1);  
      end;  
      end;  
      finally  
          if   fs.Position=fs.Size   then  
          begin  
              fs.Free;  
              athread.Connection.Disconnect;  
          end;  
      end;  
  end;

查看回复