关于TIdTCPServer与TIdTCPClient文件传输问题

                            
服务器端的代码:   
  在IdTCPServer1的OnExcute事件中  
                            MyMemStream   :=   TMemoryStream.Create;  
                            try  
                                AThread.connection.ReadStream(MyMemStream,-1,false);  
                                ....  
                                ....  
                            finally  
                                MyMemStream   .free;  
                            end;  
   
  遇到的问题是:  
          每次客户端一连接,代码如下:  
                IdTCPClient1.Connect(10000);  
        服务器端的代码就停留在readstream(streamimg,-1,false);这里,关闭客户端程序后,服务器端报错,并跳到finally   里执行MyMemStream   .free;  
   
  请问如何解决呢?  
   
  大虾们帮帮忙,小弟在线等待,谢谢!

查看回复