Передача данных по сети при помощи TcpClient

System::Net::Sockets::TcpListener^ ServerListen;
System::Net::Sockets::TcpClient^ inClient;
 
if( ServerListen->Pending() ){
       inClient = ServerListen->AcceptTcpClient(); // подключаемся к клиенту
}

System::IO::StreamReader^ streamIn;
System::IO::StreamWriter^ streamOut;
 
streamIn = gcnew System::IO::StreamReader( dat->Client->GetStream() );  // получаем входящий поток
streamOut = gcnew System::IO::StreamWriter( dat->Client->GetStream( ) );
streamOut->AutoFlush = true;

static inline void Transfer(System::IO::StreamWriter^stream, System::UInt32 val)
{
    array<unsigned char>^ ubyte_Data = System::BitConverter::GetBytes( val );// переводим в строку байтов
    wchar_t leng = ubyte_Data->Length;//длина строки
    array<wchar_t>^ data = converArray_Char_to_Wchar( ubyte_Data );// конвертируем в массив wchar_t
 
    stream->Write( leng ); // передаём длину строки - 1 символ
    stream->Write( data ); // передаём строку - массив символов
}

static inline System::UInt32 Ressive_UInt32(System::IO::StreamReader^stream )
{
    try{
    wchar_t leng = stream->Read(); // получаем длину строки в одном символе
    array<wchar_t>^ data = gcnew array<wchar_t>(leng); // подготавливаем массив
    stream->Read( data, 0, leng ); // ситаем строку
    array<unsigned char>^ bufferChar = ConverArray_WChar_to_char( data ); // преобразовываем строку
 
    return System::BitConverter::ToUInt32(bufferChar,0); // получаем из строки - число - выход из процедуры
 
    }catch (System::IO::IOException^ ){
        //System::Windows::Forms::MessageBox::Show(L"ошибка связи - клиент отключился");
    }
 
    return 0;
}//void

System::IO::FileStream^ fs = gcnew  System::IO::FileStream( path,System::IO::FileMode::Open, System::IO::FileAccess::Read );
long long size = fs->Length;
 
unsigned int blockSize = 1024;
array<unsigned char>^ bufferChardata = gcnew array<unsigned char>( blockSize );
 
Transfer( streamOut, (unsigned int)size );
Transfer( streamOut, (unsigned int)blockSize );
 
long long bufPos = 0;
long long lengLimit = size - blockSize;
System::IO::BinaryReader^ breader = gcnew System::IO::BinaryReader(fs);
 
bool goRead = true;
bool rez = true;
 
        while(goRead)
        {
            if(bufPos<lengLimit)// передача целых строк
            {
                bufferChardata = breader->ReadBytes( blockSize );//прочитали из файла
                Transfer( streamOut, (unsigned int)blockSize ); // передали длину
                Transfer( streamOut, bufferChardata ); // передали данные
 
            }else{ // передача последней остаточной строки
                unsigned int finalLeng = size - bufPos;
                bufferChardata = breader->ReadBytes( finalLeng );
                Transfer( streamOut, (unsigned int)finalLeng ); // передали длину
                Transfer( streamOut, bufferChardata ); // передали данные
                goRead = false;
            }
            bufPos = bufPos + blockSize;
 
        }///while

cetAddr = System::Net::IPAddress::Parse(L"127.0.0.1")

System::IO::StreamReader^stream
.....
stream->ReadBlock( data, 0, leng );