Потеря части сообщения

[AndXor]

Вообщем задача такая. Есть клиент и сервер(всё на локалке).
Задача сервера(консоль) получить всех пользователей на компьютере.
Задача клиента(win32 приложение) получить эти данные у сервера.
Всё просто. Реализуется через TCP.
Только возникла проблема. Сообщение не доходит. Доходит лишь 8 символов( Как бы это можно было исправить(
Клиент

private: System::Void btnSend_Click(System::Object^  sender, System::EventArgs^  e) {
				try
				{
				Int32 port = 13000;	//задаем номер порта и IP-адрес сервера
				String^ localAddr =  this->tbIP->Text ; //определяем IP адрес
				TcpClient^ client = gcnew TcpClient( localAddr, port ) ; //создаем TCP-клиент со своим номером порта
				this->tbInfo->Text = L"Подключение произведено.\n";
	NetworkStream^ stream = client->GetStream(); //создаём поток для чтения и записи
	double x=123456789;
	array<Byte>^ data;
	 String^ msg = String::Empty;
	data = BitConverter::GetBytes( x );
				stream->Write( data, 0, data->Length );	//отправляем массив Byte серверу			
				Int32 bytes = stream->Read(data, 0, data->Length);
				msg = Encoding::Default->GetString( data, 0, bytes );
				this->tbInfo->Text += "\n" + msg; //отображаем присланные данные
				}
				//вывод возникшего исключения в поле label
				catch ( Exception^ e ) 
				{
				   this->tbInfo->Text = e->ToString() ;
				}

};
};

Сервер

void main()
{
	try
	{
		Int32 port = 13000;
		IPAddress^ localaddr = IPAddress::Parse("127.0.0.1");

		TcpListener^ server = gcnew TcpListener(localaddr, port);
		server->Start();
		while ( true )
      {
         Console::Write( "Ожидание подключения... " );
         TcpClient^ client = server->AcceptTcpClient();
         Console::WriteLine( "Подключено!" );
		 NetworkStream^ stream = client->GetStream();
			WindowsIdentity^ identity =  WindowsIdentity::GetCurrent();
	//Позволяет проверить членство пользователя Windows в группе
	//Инициализирует новый экземпляр класса WindowsPrincipal указанным объектом WindowsIdentity
			WindowsPrincipal^ principle = gcnew WindowsPrincipal(identity);
			String^ UserInfo = principle->Identity->Name;
...... ОПРЕДЕЛЯЕМ ПОЛЬЗОВАТЕЛЕЙ.
            // Send back a response.
			array<Byte>^msg = Text::Encoding::Default->GetBytes( UserInfo );
			//	 String^ msgg = String::Empty;
				// msgg = Encoding::ASCII->GetString( UserInfo, 0, msg->Length );
            stream->Write( msg, 0, msg->Length );
            Console::WriteLine( "Отправлено: {0}", UserInfo );

         // Заканчиваем и закрываем подлкючение
         client->Close();
      }
   }
	catch ( SocketException^ e ) 
   {
      Console::WriteLine( "SocketException: {0}", e );
   }

   Console::WriteLine( "\nHit enter to continue..." );
   Console::Read();
}

Ну и скрины того что получается...

[Dan_banan]

я писал подобное приложение на шарпе. посмотри внимательно на буфер потоков, на то когда какой очищается, что туда записывается. я вообще передавал файлы по 1 гб таким путем