Delphi DLL

Receive Bytes into a BinData

Demonstrates Socket.ReceiveBd, which receives one delivery of binary data and appends it to a BinData. It returns whatever is immediately available.

Background. The BinData receive methods accumulate raw bytes in a BinData object. A single receive returns only what is currently available, whereas the counted receive waits for an exact number of bytes.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
socket: HCkSocket;
bTls: Boolean;
maxWaitMs: Integer;
bd: HCkBinData;

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;

//  Receive one delivery of binary data and append it to a BinData.  ReceiveBd returns whatever is
//  immediately available; it does not loop to drain everything that may follow.
bd := CkBinData_Create();
success := CkSocket_ReceiveBd(socket,bd);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSocket__lastErrorText(socket));
    Exit;
  end;
Memo1.Lines.Add('Received ' + IntToStr(CkBinData_getNumBytes(bd)) + ' bytes.');

CkSocket_Dispose(socket);
CkBinData_Dispose(bd);