Receive a 4-byte Length Prefix from a Socket

See more Socket/SSL/TLS Examples

Demonstrates Socket.ReceiveCount, which reads a four-byte length prefix as a signed 32-bit integer. A return value of -1 indicates failure.

var
success: Boolean;
socket: HCkSocket;
bTls: Boolean;
maxWaitMs: Integer;
messageLength: Integer;

begin
success := False;

socket := CkSocket_Create();

//  Connect to the server using TLS.
bTls := True;
maxWaitMs := 5000;
success := CkSocket_Connect(socket,'example.com',5000,bTls,maxWaitMs);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSocket__lastErrorText(socket));
    Exit;
  end;

//  Read a four-byte length prefix as a signed 32-bit integer (network byte order by default).  A
//  return value of -1 indicates failure.
messageLength := CkSocket_ReceiveCount(socket);
if (messageLength < 0) then
  begin
    Memo1.Lines.Add(CkSocket__lastErrorText(socket));
    Exit;
  end;
Memo1.Lines.Add('The peer will send ' + IntToStr(messageLength) + ' bytes.');

CkSocket_Dispose(socket);