🚀 go-pugleaf

The problem is that I always get the condition which gives the close socket,
and it 'never' reaches the following snippet.  And it does this when the
client does the send text, so its not 60s timeout related.

                  // Back again to Client
                  pStream->Write( buffer, sizeof(buffer));

I've even closed down my ZoneAlarm firewall just to make sure its not
causing a problem.  I'm running this test on W98SE, and have got all the
latest windows updates.  Its driving me nuts!  It should be so simple.  Any
ideas?

Paul.


"Hans Galema" <notused@notused.nl> wrote in message
news:4254244a$1@newsgroups.borland.com...
> 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.