Perl

Socket Send and Receive BinData

Demonstrates the Chilkat Socket ReceiveBdN and SendBd methods. Perl

use chilkat();

$success = 0;

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

$sock = chilkat::CkSocket->new();

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

$useTls = 0;
$port = 4242;
$maxWaitMs = 5000;
$success = $sock->Connect("tcpbin.com",$port,$useTls,$maxWaitMs);
if ($success == 0) {
    print $sock->lastErrorText() . "\r\n";
    exit;
}

# Wait a max of 2 seconds for a response..
$sock->put_MaxReadIdleMs(2000);

# Send 26 bytes contained in a Chilkat BinData
$bdToSend = chilkat::CkBinData->new();
$i = 0;
$byteVal = 65;
while ($i < 26) {
    $bdToSend->AppendByte($byteVal);
    $byteVal = $byteVal + 1;
    $i = $i + 1;
}

# Send the contents of the BinData
# Pass zero's in the 2nd and 3rd arguments to send the entire contents of the BinData.
$sock->SendBd($bdToSend,0,0);

# The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
$sock->SendByte(10);

# The echo server will echo back whatever is sent to it.
# We should be able to read the same bytes back..
$bdRecv = chilkat::CkBinData->new();
# Receive the 26 bytes previously sent, plus the LF char.
$success = $sock->ReceiveBdN(27,$bdRecv);
if ($success == 0) {
    print $sock->lastErrorText() . "\r\n";
    exit;
}

# Show the contents of bdRecv in hex format
print $bdRecv->getEncoded("hex") . "\r\n";

# Output:  4142434445464748494A4B4C4D4E4F505152535455565758595A0A