(Classic ASP) Transfer a File using Sockets (TLS or non-TLS)

Demonstrates how to two programs, one a socket writer and the other a socket reader, can transfer a file. The connection can be TLS or a regular non-encrypted TCP connection.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<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.

' On the sending side, we'll load the file into a BinData object and send.
' On the receiving side, we'll read from the socket connection into a BinData, and save to a file.
' This example assumes the file is not crazy-large, and that the entire contents
' can fit into memory.  
' (If the file is too large for memory, there are other ways to send. It just involves streaming or 
' sending the file chunk-by-chunk..)

' This section of code is for the sender.
set bdToSend = Server.CreateObject("Chilkat.BinData")
success = bdToSend.LoadFile("somePath/someFile.dat")
' Assume success for the example...

set sndSock = Server.CreateObject("Chilkat.Socket")
bUseTls = 1
port = 5555
maxWaitMs = 5000
success = sndSock.Connect("some_domain_or_ip.com",port,bUseTls,maxWaitMs)
' Assume success for the example...

' Tell the receiver how many bytes are coming.
numBytes = bdToSend.NumBytes
bBigEndian = 1
success = sndSock.SendInt32(numBytes,bBigEndian)

' Send the file data (sends the entire contents of bdToSend).
success = sndSock.SendBd(bdToSend,0,0)

' Get an acknowledgement.
success = sndSock.ReceiveInt32(bBigEndian)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( sndSock.LastErrorText) & "</pre>"
    Response.End
End If

' Did the receiver get the correct number of bytes?
If (sndSock.ReceivedInt <> numBytes) Then
    Response.Write "<pre>" & Server.HTMLEncode( "The receiver did not acknowledge with the correct number of bytes.") & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "File sent!") & "</pre>"

' ------------------------------------------------------------------------------------
' The code below is for the receiving side (running on some other computer..)

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

success = listenSock.BindAndListen(5555,25)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( listenSock.LastErrorText) & "</pre>"
    Response.End
End If

' Get the next incoming connection
' Wait a maximum of 20 seconds (20000 millisec)
set rcvSock = Server.CreateObject("Chilkat.Socket")
success = listenSock.AcceptNext(20000,rcvSock)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( listenSock.LastErrorText) & "</pre>"
    Response.End
End If

' The sender will first send the big-endian integer for the number of bytes
' that are forthcoming..
success = rcvSock.ReceiveInt32(bBigEndian)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rcvSock.LastErrorText) & "</pre>"
    Response.End
End If

numBytesComing = rcvSock.ReceivedInt

' Receive that many bytes..
set bdReceived = Server.CreateObject("Chilkat.BinData")
success = rcvSock.ReceiveBdN(numBytesComing,bdReceived)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rcvSock.LastErrorText) & "</pre>"
    Response.End
End If

' Acknowledge the sender by sending back the number of bytes we received.
success = rcvSock.SendInt32(bdReceived.NumBytes,bBigEndian)

' Close the connection.
maxWaitMs = 20
success = rcvSock.Close(maxWaitMs)

' Save the received data to a file.
success = bdReceived.WriteFile("somePath/someFile.dat")
' Assume success for the example...

Response.Write "<pre>" & Server.HTMLEncode( "File received!") & "</pre>"

%>
</body>
</html>