Pb Winsock reception sous VB6

Question

Salut voila j'ai un probl&#232;me avec la fonction winsock sous vb6, lors de la reception d'un fichier j'ai une erreur comme quoi "le nom ou le num&#233;ro du fichier est incorrect". Voila mon code :

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim Data As String 
Winsock.GetData Data 


If Left(Data, 6) = "Taille" Then 
clentotal = Int(Mid(Data, 7)) 
Winsock.SendData "Go" 
Exit Sub
End If


If clentotal = "" Then
clentotal = "116000"
End If


If FileOpen <> False Then 
Open "C:\VB6FR.DLL" For Binary Access Write As #1  
FileOpen = True 
ElseIf FileOpen = True Then 
DoEvents
End If
cAvance = cAvance + Len(Data) 
lblStatut.Caption = Int(cAvance / clentotal * 100) & "%" 
If Data = "FinEnvoi" Then 
Close #1
FileOpen = False 
Winsock.Close 
Else
Put 1, , Data                   L'erreur se trouve ici 
End If
End Sub

Voila si vous savez comment on peut d&#233;boguer ^^.
ET si vous ne comprennez pas mon probl&#232;me posez moi des questions j'essayerai d'etre plus pr&#233;cis.
MErci, La Biode.

mongol77 · Answer

quand est ce que tu d&#233;cr&#233;mente clentotal ?

La Biode · Answer

Escuse je comprend pas ta question? tu veux savoir o&#249; je donne la valeur a clentotal?
Si c'est de sa que tu parles sa se passe ici :

If Left(Data, 6) = "Taille" Then 
clentotal = Int(Mid(Data, 7)) 
Winsock.SendData "Go" 
Exit Sub
End If

Gobillot · Answer

en fait le fichier n'est jamais ouvert ! If FileOpen ~~<> False~~ Then Open "C:\VB6FR.DLL" For Binary Access Write As #1 FileOpen = True Else~~If FileOpen = True Then~~ DoEvents End If Daniel

Gobillot · Answer

ce serait plutot le contraire:









If FileOpen  Then
     DoEvents
    Else
    Open "C:\VB6FR.DLL" For Binary Access Write As #1  
    FileOpen = True 
    End If

Daniel

cs_Jack · Answer

Ouh lala !!
Ne fais pas n'importe quoi !
Si jamais tu &#233;crases le vrai VB6FR.DLL, tu vas avoir des emmerdements !
Choisis d'autres noms de fichier.

Il va falloir que approndisses : Tu ne recevras jamais le texte "FinEnvoi" tout seul. Il y aura surement la fin du fichier juste avant.

La Biode · Answer

OUi je sais le fichier vb6 &#233;t&#233; comme exemple. JE vais essayer vos codes.
Merci, La biode

Pb Winsock reception sous VB6

6 réponses

Discussions similaires