🚀 go-pugleaf

> Is that in connection with servers' blocking modes?

Hi Remy,

I think I finally discovered the right way to connect to server
and not to think of the common OnRead().

I just do not know yet the best way to inform the server of
the expecting data size. Can I somehow involve TMemoryStream
in this code and so the final TMemoryStream::Size is the size
I expected?

Ig I have to imnform the server of the stream size separately,
how the server knows to whome is the received size addressed?


In this code I explicitely said that I want 44800 bytes.

[code is based on your samples in these ng-s]

void __fastcall TsrvForm::ServerSocketGetThread(TObject *Sender,
      TServerClientWinSocket *ClientSocket,
      TServerClientThread *&SocketThread)
{
   SocketThread = new TLanServerThread( false, ClientSocket );
}

void __fastcall TLanServerThread::ClientExecute()
{
   char *SomeBuffer = new char[44800];
   int BufferSize = 44800;

   TWinSocketStream *Stream = new TWinSocketStream ( ClientSocket,
5000 );

   try
   {
      while( ( !Terminated ) && ( ClientSocket->Connected ) )
      {
         if ( Stream->WaitForData ( 5000 ) )
         {
            if( !ReadData ( Stream, SomeBuffer, BufferSize ) )
               break;

            // use your buffered data as needed...
            FILE *p;
            AnsiString File = ExtractFilePath( ParamStr(0) ) +
"Copy.txt";
            p = fopen( File.c_str(), "wb+" );
            fwrite ( SomeBuffer, 1, 44800, p );
            fclose (p);
         }
      }
   }
   __finally
   {
      delete Stream;
      delete SomeBuffer;
   }

}

bool __fastcall TLanServerThread::ReadData( TWinSocketStream *Stream,
void *Buffer, int BufferSize )
{

   LPBYTE Buf = (LPBYTE)Buffer;
   int NumRead, TotalRead = 0;

   try
   {
      while ( TotalRead < BufferSize )
      {
         NumRead = Stream->Read( &Buf[TotalRead],
BufferSize-TotalRead );
         if( NumRead > 0 )
            TotalRead += NumRead;
         else
            return false;

      }
   }
   catch ( const Exception& )
   {
      return false;
   }

   return true;

}



Best regards,
Vladimir Stefanovic