🚀 go-pugleaf

"Billy Holliday" <NoSpam@Hohoho.com> wrote in message 
news:43312e17$1@newsgroups.borland.com...
> Is it possible to get the length of a received datapacked with INDY
> TidTCPServer ?

You can find out how much data the TCPServer has received since you last 
checked. For your app, something like this might work:

// Untested

void __fastcall TForm1::TcpServerExecute(TIdPeerThread *AThread)
{
        int StackRead;
        unsigned int DataSize;

        // Read data off the TCP connection.
        if(AThread->Connection->InputBuffer->Size == 0)
        {
                try
                {
                        StackRead = 
AThread->Connection->ReadFromStack(true, 1000, false);
                }
                catch( const Exception &E )
                {
                        StackRead = -1;
                }
                catch(...)
                {
                        StackRead = -1;
                }
        }
        else
        {
                StackRead = -1;
        }

        // Check that we have received data and that we are connected..
        if(StackRead > 0 && AThread->Connection)
        {
                DataSize = AThread->Connection->InputBuffer->Size;
                if(DataSize > 0)
                {
                        // I would suggest getting the boost library and 
not using raw pointers
                        // But this should work for now.
                        char response[20];

                        char *Data = new char[DataSize];

                        try
                        {
                            AThread->Connection->ReadBuffer(Data.get(), 
DataSize);

                            // Now Data contains the data received.
                            // And DataSize contains how much data was 
received.

                            // Process it here.

                            // Send your response.
                            AThread->Connection->WriteBuffer( response, 
strlen( response ), true );
                        }
                        __finally
                        {
                            delete[] Data;
                        }
                }
        }
}

However, as Mr Lebeau did point out, you probably will still have to 
disable Nagle.

Jonathan