用IdTCPServer和IdTCPClient传输大文件时出问题了,怎么办?

                            
IdTCPServer和IdTCPClient都在同一台机时传输十多M的文件就不动,CPU占用100%。   
   
  IdTCPServer和IdTCPClient在局域网时传输几M的文件就不动,两台机CPU都占用100%。  
   
  我用的语句很简单,服务端是:  
                  MStream   :=   TMemoryStream.Create();  
                  MStream.LoadFromFile(path);  
                  AThread.Connection.OpenWriteBuffer;  
                  AThread.Connection.WriteStream(MStream);  
                  AThread.Connection.CloseWriteBuffer;  
                  AThread.Connection.Disconnect;  
  客户端是:  
          MtmpStream   :=   TMemoryStream.Create();  
          IdTCPClient1.ReadStream(MTmpStream,-1,true);//这里停了  
          IdTCPClient1.DisConnect;  
   
   
  问题在哪里?

查看回复