Bug, dépassement des capacités... MAIS POURQUOI?!?!?

Question

voila c juste un robo archiveur sur irc tout semble bien marcher ... lorsqu'il reçoit un 'ping', il renvoit un 'pong', jusque là tout semble normal. Ce pong il le note aussi dans sa fenêtre d'état (text1). Le hic est que au bout de x minutes où il est resté connecté il pète un cable et plante suite à un dit 'dépassement des capacités'... la ligne de code mise en cause est celle ci: 
  
Text1.Text = Text1.Text & vbCrLf & "--------------" & vbCrLf & ">" & chaine

mais je ne comprends pas où il peut y avoir eu un dépassement des capacités.... (text1 étant remis à zeros si il devient trop imposant..)
Vous n'avez pas une idée? 

Sinon voici le modul en entier:

Public Sub IRCSend(chaine As String)
    'on envoie une chaine au serveur mais on l'affiche aussi !
    Winsock1.SendData chaine & vbCrLf
    If Len(Text1.Text) > 80000 Then Text1.Text = ""
    Text1.Text = Text1.Text & vbCrLf & "--------------" & vbCrLf & ">" & chaine
End Sub

mici d'avance ^^

cs_neodante · Answer

8-) Neodante 8-) 

En effet une chaine de caractères peut contenir plus de 2 milliards de caractères mais est-tu sure que ce n'est pas le SendData qui fait la grouille ???
@+

cs_neodante · Answer

8-) Neodante 8-) 

D'après la documentation MSDN la fonction Len renvoit un Long mais en fait si tu fais une boucle de 80000 et que tu demandes la taille avec Len, la valeur ne dépasse pas 35565 !!!
Si ça peut t'aider

cs_Anthomicro · Answer

mail : jeanpierre.rossetto@club-internet.fr

cs_Anthomicro · Answer

oups désolé !
mail : jeanpierre.rossetto@club-internet.fr

faiseurdesonges · Answer

mmh oki donc le nettoyage du text1 ne se fera jamais....
mais je comprends quand même pas car j'ai pas dépassé le millard avant que ça bug :P

quand à l ligne qui bug c celle que vb6 me pointe lorsque ça plante dans l'éxecution.... (erreur numéros -9 je crois.... mais vais vérrifier (bref laisser tourner le prog une heure -_- ) )

mici :-)

faiseurdesonges · Answer

Vala l'erreur exacte c'est:

"run-time error '7':
out of memory"

sur irc évidement il plante puisqu'il ne renvoit plus les ping

et la ligne encause est 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim chaine As String

    Winsock1.GetData chaine
    If Len(Text1.Text) > 50000 Then Text1.Text = ""

--->    Text1.Text = Text1.Text & vbCrLf & "--------------" & vbCrLf & Mid(chaine, 1, Len(chaine) - 2)          <----
    
CheckLine chaine
End Sub

Proger · Answer

Probablement car tu reçois bcp trop d'info en provenance du socket, et comme tu utilise l'objet text1 pour cumuler l'ancien résultat, y dois y avoir un problème de pile...
enfin bref, essaye plutôt ce code :

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim chaine As String
  Dim TempS As String

    Winsock1.GetData chaine

    If Len(Text1.Text) > 50000 Then Text1.Text = ""
    TempS = Text1.Text & vbCrLf & "--------------" & vbCrLf & Mid(chaine, 1, Len(chaine) - 2)
    Text1.Text = TempS
    CheckLine chaine
End Sub

c'est bizarre mais j'ai l'impression que ça servira a rien... Si c'est le cas, vire la ligne qui teste si len(text1)>50000 ainsi que text1.text = temps en la remplaçant par
Text1.Text = Right$(Temps, 50000)

faiseurdesonges · Answer

ça n'a pas l'air de changer grand choses.... mais j'ai abaissé la limite à 35565, comme on me l'a fait remarqué plus haut et il n'a pas planté de la nuit c'était peut être ça... :-)
je viens de le démarrer avec  ''Text1.Text = Right$(Temps, 50000)'' ça risque fort de marcher aussi :-) 
(bête limite à la valeur de 'len')

en tout cas merci les gars  ^^

Bug, dépassement des capacités... MAIS POURQUOI?!?!?

8 réponses

Discussions similaires