Send File over Socket

Demonstrates how to send a file over a TCP/IP socket.

Download Chilkat FileAccess ActiveX (freeware)

Download Chilkat Socket ActiveX

LOCAL loSocket
LOCAL lnSuccess
LOCAL loFac
LOCAL lnFileSize
LOCAL loFileData
LOCAL lnSsl
LOCAL lnMaxWaitMillisec

loSocket = CreateObject('Chilkat.Socket')

lnSuccess = loSocket.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Failed to unlock component")
    QUIT
ENDIF

loFac = CreateObject('Chilkat.FileAccess')

*  We'll send a GIF file.  First get the size of the file:

lnFileSize = loFac.FileSize("dude.gif")
IF (lnFileSize < 0) THEN
    =MESSAGEBOX("Failed to get file size")
    QUIT
ENDIF

*  Load the file into memory:

loFileData = loFac.ReadEntireFile("dude.gif")

*  Connect to the program at some host:port that is expecting
*  to receive the file.  In this case, the receiver is at
*  localhost:5555

lnSsl = 0

lnMaxWaitMillisec = 20000
lnSuccess = loSocket.Connect("localhost",5555,lnSsl,lnMaxWaitMillisec)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loSocket.LastErrorText)
    QUIT
ENDIF

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

*  Send the byte count:
lnSuccess = loSocket.SendCount(lnFileSize)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loSocket.LastErrorText)
    QUIT
ENDIF

*  Send the file data.
lnSuccess = loSocket.SendBytes(loFileData)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loSocket.LastErrorText)
    QUIT
ENDIF

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