• Home
 · 
• Custom Controls/Forms/Menus
 · 
• a Send / Get files using winsock

a Send / Get files using winsock

Want your program to be able to send and get files over the internet? Well, here you go! This is very easy to understand.

Rate a Send / Get files using winsock

• 1
• 2
• 3
• 4
• 5

(14(14 Vote))

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Note: This is a custom control for your applications. This will not properly
'Get files from the internet or from an ftp. Although the dataarival sub would
'be the same, I do not know how the transition would end so I just sent "xx"
'and that tells the sub that the transition has ended
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Public declarations
dim FileOpen as Boolean
public function Send_File(FileToSend as string)
'This is the function that sends a file
Dim Temp as string
Dim BlockSize as long
open filetosend for binary access read as #1 'Open the file to send
BlockSize = 2048 'Set the block size, if needed, set it higher
do while not EOF(1)
 temp = Space$(blockSize) 'Give temp some space to store the data
 Get 1, , temp 'Get first line from file
 Winsock1.SendData temp 'Send the data
 DoEvents
loop
winsock1.senddata "xx" 'This is a custom control that ends the transmition
close #1
end function
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim temp As String
Dim data As String
'Check to see if the file is already open
If fileOpen = False Then
 Open "c:\somefile_here" For Binary Access Write As #2
 fileOpen = True
ElseIf fileOpen = True Then
 DoEvents
End If
Winsock1.GetData data 'Get the data
temp = data
'Check to see if it is the end of the transmition
If temp = "xx" Then
 Close #2
 fileOpen = False
Else
  Put 2, , temp 'Store the data to the file
End If
End Sub