Delphi DLL

Socket Send/Receive 16-bit Integers

Demonstrates sending and receiving 16-bit integers over a socket connection using either big-endian or little-endian byte ordering. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Socket;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
sock: HCkSocket;
useTls: Boolean;
port: Integer;
maxWaitMs: Integer;
value: Integer;
bigEndian: Boolean;
hexStr: PWideChar;

begin
success := False;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

sock := CkSocket_Create();

// --------------------------------------------------------------------
// This example uses the public TCP echo service at https://tcpbin.com/
// --------------------------------------------------------------------

useTls := False;
port := 4242;
maxWaitMs := 5000;
success := CkSocket_Connect(sock,'tcpbin.com',port,useTls,maxWaitMs);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSocket__lastErrorText(sock));
    Exit;
  end;

// Wait a max of 2 seconds for a response..
CkSocket_putMaxReadIdleMs(sock,2000);

// Send a 16-bit integer using big-endian byte ordering (also called network byte order)
// 12022 decimal = 2EF6 hex
value := 12022;
bigEndian := True;
CkSocket_SendInt16(sock,value,bigEndian);
// Send it again, because we'll read it two different ways..
CkSocket_SendInt16(sock,value,bigEndian);

// The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
CkSocket_SendByte(sock,10);

// Let's see hex values of the 2 bytes sent in network byte order (big-endian)
// (The echo server sends back exactly the bytes received.)
hexStr := CkSocket__receiveNBytesENC(sock,2,'hex');

// In the big-ending byte order, the byte order is most significant byte to least significant,
// therefore we should see the bytes in the order 0x2E 0xF6.
Memo1.Lines.Add('Expecting big-endian 2EF6');
Memo1.Lines.Add(hexStr);

// Let's read directly to an integer..
success := CkSocket_ReceiveInt16(sock,bigEndian,True);
Memo1.Lines.Add('Expecting 12022');
Memo1.Lines.Add('Received: ' + IntToStr(CkSocket_getReceivedInt(sock)));

// Consume the LF that gets echoed back..
CkSocket_ReceiveByte(sock,True);

// --------------------------------------------------------------------
// Let's do the same thing, but with little-endian byte ordering.

Memo1.Lines.Add('----');

// 12022 decimal = 2EF6 hex, but little-endian byte ordering will send the bytes in the order 0xF6 0x2E
value := 12022;
bigEndian := False;
CkSocket_SendInt16(sock,value,bigEndian);
CkSocket_SendInt16(sock,value,bigEndian);
CkSocket_SendByte(sock,10);

hexStr := CkSocket__receiveNBytesENC(sock,2,'hex');

Memo1.Lines.Add('Expecting little-endian F62E');
Memo1.Lines.Add(hexStr);

success := CkSocket_ReceiveInt16(sock,bigEndian,True);
Memo1.Lines.Add('Expecting 12022');
Memo1.Lines.Add('Received: ' + IntToStr(CkSocket_getReceivedInt(sock)));

// Consume the LF that gets echoed back..
CkSocket_ReceiveByte(sock,True);

CkSocket_Close(sock,1000);

// Output:

// Expecting big-endian 2EF6
// 2EF6
// Expecting 12022
// Received: 12022
// ----
// Expecting little-endian F62E
// F62E
// Expecting 12022
// Received: 12022

CkSocket_Dispose(sock);

end;