Anyone who knows how to download a file using the winsock control? I want to download a file, detect when the download is completed and show the percentage downloaded.
Printable View
Anyone who knows how to download a file using the winsock control? I want to download a file, detect when the download is completed and show the percentage downloaded.
A sample winsock application. Connects to a webserver and downloads a .html file...
Create a new form...
Add a text box caled "Text1"
Add a command button called "Command1"
Add a winsock control called "Winsock1"
Set Text1 to MultiLine = True and ScrollBars = Both
Private Sub Command1_Clik()
'connect to server
Winsock1.connect "www.vb-world.net", 80
End Sub
Private Sub Winsock1_Connect()
'send http request (ask for the file)
Winsock1.senddata "GET /index.html HTTP/1.0" & vbclrf & vbcrlf
End Sub
Private Sub Winsock1_DataArrival(bytes as long)
'weve recieved a packet, keep track of it and add it to the text box
Winsock1.getdata TempStr, vbString
text1.text = text1.text & TempStr
End Sub
Private Sub Winsock1_Close()
'its complete, the httpd server automatically closes the connection
'when the file get is complete :)
msgbox "Download complete."
End Sub