Vi ringrazio per la risposta il linguaggio mi pareva di averlo messo cmq è VB6.
questo è il codice che riceve i dati e li salva nel file:
codice:
Private Sub SOCK_RIC_FILE_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next
Dim strData As String
Dim strDataSave As String
DoEvents
SOCK_RIC_FILE.GetData strData, vbString
Put #1, , strData
Dim bytesPut As Long: Dim perDwn As Long: bytesPut = LOF(1)
frmDownload.PBAR.Value = bytesPut
frmDownload.Caption = "Download - " & getPer(bytesPut, lngFile) & "% - ...in corso..."
frmDownload.tBytes.Caption = "Bytes scaricati: " & CStr(Int(bytesPut)) & " di " & CStr(Int(lngFile))
CLIENT.SendData "FILERICEVED:" & LOF(1) & vbCrLf
If LOF(1) = lngFile Then
Close #1
SOCK_RIC_FILE.Close
Call SetEndDownload
End If
End Sub
-SE NON inserisco il DoEvents non ottengo alcun errore ma fatico a muovere il form.
-SE inserisco il DoEvents, posso muovere il FORM a piacimento.(quando lo muovo si ferma momentaneamente il trasferimento e quando la rilascio riprende). Il problema è che se inserisco questa funzione, il file lo scarico completamente, ma alla fine del download ottengo il seguente errore:
Errore di run-time '40006':
Protocollo o stato della connessione errato per la traslazione richiesta o la richiesta.
PER TRASFERIRE IL FILE USO UN NUOVO SOCK: il server invia i dati direttamente verso il client.
IL TRASFERIMENTO DEL FILE lo controllo attraverso un protocollo, con il SOCK con cui mi sono connesso fin dall' inizio al server.
Volevo sapere se questa procedura potesse essere una delle cause dell' errore.
Penso di essere stato chiaro stavolta, aspetto ancora...
Rispondi quotando
