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

Function SimpleBinaryToString(Binary)
  'SimpleBinaryToString converts binary data (VT_UI1 | VT_ARRAY Or MultiByte string)
  'to a string (BSTR) using MultiByte VBS functions
  Dim I, S
  For I = 1 To LenB(Binary)
    S = S & Chr(AscB(MidB(Binary, I, 1)))
  Next
  SimpleBinaryToString = S
End Function

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

success = socket.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write "Failed to unlock component" & "<br>"

End If

'  Connect to port 5555 of localhost.
'  The string "localhost" is for testing on a single computer.
'  It would typically be replaced with an IP hostname, such
'  as "www.chilkatsoft.com".
ssl = 0
maxWaitMillisec = 20000
success = socket.Connect("localhost",1995,ssl,maxWaitMillisec)
If (success <> 1) Then
    Response.Write socket.LastErrorText & "<br><br>"

End If

If (StrComp(Request.ServerVariables("REQUEST_METHOD"), "GET") = 0) Then
	socket.SendString(Request.ServerVariables("QUERY_STRING") & Chr(10))
Else
	dim a,b
	a = Request.TotalBytes
	b = Request.BinaryRead(a)
	socket.SendString(SimpleBinaryToString(b) & Chr(10))
End If



'  Set maximum timeouts for reading an writing (in millisec)
socket.MaxReadIdleMs = 10000
socket.MaxSendIdleMs = 10000

'  The server (in this example) is going to send a "Hello World!"
'  message.  Read it:

receivedMsg = socket.ReceiveString()
If (receivedMsg = vbNullString ) Then
    Response.Write socket.LastErrorText & "<br><br>"

End If

'  Close the connection with the server
'  Wait a max of 20 seconds (20000 millsec)
socket.Close 20000

Response.Write receivedMsg & "<br><br>"
%>
</body>
</html>


