🚀 go-pugleaf

The timeout in blocking mode, is set by the parameter to the stream socket
creation function. For example :-

    char bf[999999];
    csstream=new TWinSocketStream(ClientSocket1->Socket,60000);
    if (!csstream->WaitForData(5000)) Memo1->Lines->Append("Nothing to read in 5
seconds");
    else { memset(bf,0,999998); csstream->Read(bf,999998);
Memo1->SetSelTextBuf(bf);}
...
    Memo1->Lines->Append(AnsiString(csstream->Write(bf,strlen(bf)))+" bytes
sent\r\n"); Memo1->Update();
    if (!csstream->WaitForData(10000)) Memo1->Lines->Append("Not ready to read
after 10 seconds\r\n");
    else { memset(bf,0,999998); csstream->Read(bf,999998);
Memo1->SetSelTextBuf(bf);}
...
    delete csstream;

The key line is csstream=new TWinSocketStream(ClientSocket1->Socket,60000);
because it is this 60000 parameter that sets how long it will wait before the
connection times out (60 seconds in this case). The WaitForData call will wait
for 5000 msecs for data to be received by the ClientSocket component when called
as above. If nothing is received in this time, it returns false. Otherwise, you
can use the Read function to read what it's got. The TWinSocketStream object
also has a TimeOut property that can be set at any time to change the timeout on
blocking sockets. None of this works with non-blocking sockets (my favourite :-)

HTH,
-- 
Mark Jacobs

"Vladimir Stefanovic" <spam@not.needed> wrote in message
news:416bede7@newsgroups.borland.com...
| I have TClientSocket in ctBlocking mode.
|
| How can I reduce the time for waiting for the
| connection to be established.
|
| In ctNonBlocking mode I use something like this:
|
|    ClientSocket->Active = true;
|    int ms_start = GetTickCount();
|    while ( GetTickCount() - ms_start < 1000 )
|    {
|       Forms::Application->ProcessMessages();
|       if ( ClientSocket->Active )
|          break; // Speed-up if the connection is establ.
|    }
|
|    if ( !ClientSocket->Active )
|    {
|       // Not connected during one second ...
|       // etc, ...
|
|
| In ctBlocking mode this (of course) does not work
| nor the TTimer (?!). It seems that timer is also 'dead'
| while ...
|
|    ClientSocket->Active = true;
|
| ...is not finished. What can I do? Maybe some real thread...
|
| Also, when I decide to abandon the process of connecting,
| how can I really stop it. Should I use
|
|    ClientSocket->OnError( this,0,0,0 );
|
| or just
|
|    ClientSocket->Active = false;