🚀 go-pugleaf

Hello all...
here is my problem. I'm upgrading a bunch of products from Borland C++ Builder V5.0 to CodeGear C++ Builder 2007. All components used the old socket interface. I'm rewriting it to use TIdTCPServer component.

The code in the main module (not a form, it's actually a TService) is as follows:

iln_rcv_socket->DefaultPort=2020;
iln_rcv_socket->Active = true;

The onExecute handler does a few things, but basically it reads a TCP header like that:

pStream = new TIdTCPStream(AContext->Connection);
msg = pStream->Read(imageData->rcv_buffer, 20);

discards it, then reads two bytes to see how long the remaining transmission is:
msg = pStream->Read(imageData->rcv_buffer, 2);

calculates the length, and reads the rest:
msg = pStream->Read(imageData->rcv_buffer, calculated_length);

Now, the first two reads come back ok, but then the calculated length is different on each connection (and it's the same client, so I assume it should be the same), and the last read never comes back (that length is usually very large, like 40k+)

Any ideas on what's wrong??? and how to do it right???

P.S.
I have no control over the client connecting to the server, as we are communication with an IBM mainframe imaging system (ImagePlus), which is never fun :-)