Classic ASP

TCP Socket Send Byte and Receive Byte

Demonstrates the Chilkat Socket ReceiveByte and SendByte method. Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

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

set sock = Server.CreateObject("Chilkat.Socket")

'  --------------------------------------------------------------------
'  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) Then
    Response.Write "<pre>" & Server.HTMLEncode( sock.LastErrorText) & "</pre>"
    Response.End
End If

'  Wait a max of 2 seconds for a response..
sock.MaxReadIdleMs = 2000

'  Send a byte.
success = sock.SendByte(96)

'  The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
success = sock.SendByte(10)

'  The echo server will echo back whatever is sent to it.
'  We should be able to read the same byte back..
'  After successfully reading, the byte value is available in the ReceivedInt property.
treatAsUnsignedInt = 1
success = sock.ReceiveByte(treatAsUnsignedInt)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( sock.LastErrorText) & "</pre>"
    Response.End
End If

'  Let's look at the value of the byte received.  It should be 96.
Response.Write "<pre>" & Server.HTMLEncode( sock.ReceivedInt) & "</pre>"

'  The echo server also echoed the LF back.
success = sock.ReceiveByte(treatAsUnsignedInt)
'  Assuming success..

'  Should be decimal 10.
Response.Write "<pre>" & Server.HTMLEncode( sock.ReceivedInt) & "</pre>"

%>
</body>
</html>