🚀 go-pugleaf

Great code, I learned a lot with it :)

>            if( (Buffer->Position + Len) >= Buffer->Size )
>            {
>                Buffer->Seek(-sizeof(int), soFromCurrent);
>                break;
>            }

Are it correct ? I have tryed it but it execute always the Buffer->Seek routine even if the message is complete, i have changed it in :

if( (Buffer->Position + Len) > Buffer->Size )

it work now. It is correct ?

I have tryed a ProcessPacket routine like :
void__fastcall TForm1::ProcessPacket(TCustomWinSocket *Socket, void *Data, int DataLength)
{
        // process Data as needed...
        char *a = new char[DataLength];
        a = (char*)Data;
        Memo->Lines->Add(AnsiString(a,DataLength));
        delete[] a;
}

It dont work.. why not ? Sender program send an example with :
        char *buf=new char[10];
        buf = "1234567890";
        int size=10;

        Socket->SendBuf ( &size, sizeof(int) );
        Socket->SendBuf ( buf , size );

and the receiver write only not ascii chars. What is wrong ?

>> I dont like indy
>
>Why not?
>

I like to program all by myself so I can learn as much as possible. If I used indy my code was already finished but I never knowed a lot of info I am learning right now.
Thank you very much all for the help
Alfred