Sto facendo un programma per inviare files. Le opzioni a cui avevo pensato per la procedura di invio sono 2:
1) Funzione tipo questa:
Dim OpenedFileNbr, FileLength, Back
Dim Temp As String
Dim PackageSize As Long
Dim LastData As Boolean
OpenedFileNbr = FreeFile
Open Txt_File.Text For Binary Access Read As OpenedFileNbr
Temp = ""
Do Until EOF(OpenedFileNbr)
If FileLength - Loc(OpenedFileNbr) <= PackageSize Then
PackageSize = FileLength - Loc(OpenedFileNbr) + 1
LastData = True
End If
Temp = Space$(PackageSize)
Get OpenedFileNbr, , Temp
If LastData = True Then
Temp = Mid(Temp, 1, Len(Temp) - 1)
End If
DoneBytes = DoneBytes + Len(Temp)
Winsock_Send.SendData Temp
NextPart = False '# Set the senddata check
Else
Exit Sub
End If
Loop
Close #OpenedFileNbr
con tanti DoEvents nel ciclo Do, oppure un timer che ogni 250 ms mi invia la quantità di dati che gli dico io in modo da poter regolare anche la velocità...
Cosa mi consigliate ?
:master:
Rispondi quotando
