🚀 go-pugleaf

Vladimir Stefanovic wrote:

> How can I send data with TClientSocket in ctNonBlocking
> to Server. I have the sending code which only works when
> the mode is ctBlocking. What can I do to modify the code
> to work in ctNonBlocking mode?

As far as I see it the code will do in non-blocking mode.

What makes you say that it does not work for non-blocking ?

I have some remarks:

	- Even if you try to send 4 bytes with SendBuf() then you
have to check that all 4 bytes have been sent. At the moment
you only check for -1.

	- I'm not quite sure if -1 means an error. It means that
nothing was written. So you could continue the loop.

	- For every portion that you transfer to your buffer
you send the size to the server to. That is no good. The server
will only be interested in the size of the file. So the
client should only once send a 4 bytes size.


Hans.

> const int BUFFER_SIZE = 100;

Much to small: take 5000 or more.

I copied this from a filesendclient I regularly use:

   Socket->SendBuf(&size, sizeof(size));

I now see that I never check for these 4 bytes!! <g>

   while(strm->Position < strm->Size)
              {
              int nbytes = strm->Read(buffer, MAX_BUFFER); // 5000

              int n_sended = 0;

               while ( n_sended < nbytes )
                 {
                 int n_sent = Socket->SendBuf(buffer + n_sended, nbytes - 
n_sended );

                 if ( n_sent > 0 )
                  {
                  n_sended += n_sent;

                  ProgressBar1->StepBy ( n_sent );
                  }
                 }

               Label4->Caption = "strm->Position " + IntToStr (strm->Position );
               Label4->Update();
              }


Hans.