VB - How to send a file using the Winsock control

[ufo973]

So it means increasing the packet size won't increase the upload/download speed?

I have one more problem please,
you implemented stuff like speed, time remaining and bytes sent for sender side, but not in the receiver side which i can't figure out.
Can you please help me with this. Thanks Again

Here is the code from the sender side

Private Sub tmrCalcSpeed_Timer()
    Static PrevSent As Long
    Dim BSentPerSec As Long, DataSent As Long, DataLen As Long
    Dim SecondsLeft As Single
    
    If iFileNum > 0 Then
        DataSent = Loc(iFileNum)
        DataLen = LOF(iFileNum)
        
        BSentPerSec = DataSent - PrevSent
        PrevSent = DataSent
        
        SecondsLeft = (CSng(DataLen) - CSng(DataSent)) / CSng(BSentPerSec)
    Else
        PrevSent = 0
    End If
    
    lblSendSpeed.Caption = Format(DataSent / 1024#, "###,###,##0.00") & " KBytes Sent, " & _
        Format(CDbl(BSentPerSec) / 1024#, "#0.00") & " Kb/Sec, " & _
        "Time left: " & Format(SecondsLeft \ 3600, "00") & ":" & Format(SecondsLeft \ 60, "00") & ":" & Format(SecondsLeft Mod 60, "00")
End Sub

How i can change it to work with the receiver side?

[kholous]

If many person send a similar file we see Error word in the program .
How can correct this action?
Thanks.

[ramu123]

hai all can anybody suggest me to "how to get the data in packet by packet format instead of whole stream " plz i hav to submit project soon

[ramu123]

hai sir this ramu i hav to read the data at winsock reciever BYTE by BYTE instead of STREAM of data(packet by packet) for that i m using "binary read write mode" but it is not working after sometime it showing the error "DIVISION BY ZERO" problem please help me sir..............