🚀 go-pugleaf

Paul wrote:
> Right.  I've tried the tutorial and I get the same problem. 

Which problem ?

> Every time the
> server gets data it drops into the client socket close(), snippet below,
> which is in the TMyServerThread.
> 
>                if (pStream->Read(buffer, sizeof(buffer)) == 0)
>                   // (if can't read in 60 seconds) than close the connection
>                   ClientSocket->Close();

Well it should only close after 60 seconds. Can you confirm that ?
And .. If you do not want to close then don't.

> Can I confirm:
> The client app component (drag + drop onto the form) is "ctNonBlocking"?

Pleas use the right names. You mean: The TClientSocket in this example
if of type ctNonBlocking ? yes.

> The server app component (drag + drop onto the form) is "stThreadBlocking"
> and has an event handler for get thread.

TServerSocket was the name. stThreadBlocking yes.

> 
> //--------------------------------------------------------------------------
> -
> void __fastcall TForm1::ServerSocket1GetThread(TObject *Sender,
>       TServerClientWinSocket *ClientSocket, TServerClientThread
> *&SocketThread)
> {
>    SocketThread = new TMyServerThread(false, ClientSocket);
> }

> void __fastcall TForm1::SocketOpenClick(TObject *Sender)

If that is an eventhandler for a TButton then please let the name
as such when seeking help.

> void __fastcall TForm1::SocketCloseClick(TObject *Sender)
> {
>     // close thread blocking socket
>     ServerSocket1->Active = false;
  that is not enough I think.
> }

Hans.