🚀 go-pugleaf

Thank you very much for this help.

-- 
Jonathan

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message 
news:42111797$1@newsgroups.borland.com...
>
> "Jonathan Benedicto" <incorrect@no.server> wrote in message
> news:42110245$1@newsgroups.borland.com...
>
>> Eg. If I read data like this :
>
> You should not be looping like that.  The OnExecute event is already 
> looped
> by TIdTCPServer.  Your code should only be processing a single iteration 
> of
> that internal loop, not running your own loop at all:
>
>    void __fastcall TForm1::IdTCPServer1Connect(TIdPeerThread *AThread)
>    {
>        AThread->Connection->ReadTimeout = 1000;
>    }
>
>    void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
>    {
>        char buffer[200];
>
>        if( AThread->Connection->InputBuffer->Size == 0 )
>        {
>            int read = AThread->Connection->ReadFromStack(true,
> IdTimeoutDefault, false);
>            if( read == -1 ) // timeout
>                return;
>        }
>
>        do
>        {
>            int bufsize = min(AThread->Connection->InputBuffer->Size, 200);
>            AThread->Connection->ReadBuffer(buffer, bufsize);
>            // use buffer as needed...
>        }
>        while( bufsize > 0 );
>    }
>
>> Then the app can only work with 200 bytes chucks of data. Even if the
>> sending app sent a 100 byte chunk and then a 300 byte chunk.
>
> I would strongly recommend that you prefix your packets with the actual 
> size
> of the packets.  Then you don't have to limit your buffer size during
> reading, and can send small and large packets alike:
>
>    void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
>    {
>        int size = AThread->Connection->ReadInteger(true);
>        if( size > 0 )
>        {
>            char *buffer = new char[size];
>            AThread->Connection->ReadBuffer(buffer, size);
>            // use buffer as needed...
>            delete[] buffer;
>        }
>    }
>
>
> Gambit
>
>