🚀 go-pugleaf

Mark Jacobs wrote:

> void __fastcall TForm1::ClientSocket1Read(TObject *Sender,TCustomWinSocket *Socket)
> {
>   int ii,jj=Socket->ReceiveLength();
>   while (jj>0)
>   {

You do not need a loop here as for sure ReceiveBuf will get
all the bytes indicated by ReceiveLength.

>     ii=Socket->ReceiveBuf(&bf[wh],jj);
>     wh+=ii; bf[wh]='\0'; Sleep(200); jj=Socket->ReceiveLength();
>   }
>   dun=true;
> }

For the rest the use of this loop with a Sleep and then checking
ReceiveLEngth() again is against the idea of the OnRead event.
Just exit the the OnRead handler and wait for the next event. Indeed
then you have to buffer the incoming data. Using a TMemoryStream makes
this simple.

> How do you detect when the server has finished sending data to 
 > the client in a non-blocking environment?

That you have to determine on the server. The server migth
well have send all long time ago. Winsocks buffers incoming
data and TClientSocket gives it in small amounts in the
OnRead event.

If you want to determine on the receiving side if all data belonging
to a message has come in then you need a protocol that
for instance sends the size of the message in an 4 byte integer first.

Hans.