<% 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" & "
" 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 & "

" 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 & "

" End If ' Close the connection with the server ' Wait a max of 20 seconds (20000 millsec) socket.Close 20000 Response.Write receivedMsg & "

" %>