Comment envoyer tout les donnée compléteRésolu

Question

Bonjour voila depuis quelque jour j'ai des problème a cause des winsock car il n&#8217;envoie pas a tout le monde toutes les donnée de connexion j'aimerais savoir comment je peut faire pour que toutes les donnée soit envoyer Correctement

NHenry · Accepted Answer

Bonjour, 

cdc = Split(rsck, "|")
Donc ta ligne ne comporte pas assez de séparateur, c'est à toi de gérer ce cas.
Avec par exemple UBound pour éviter l'erreur.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

Donc j'avez penser au sendcomplet mais je ne sais l'utilisé si quelqu'un peut m'aider

acive · Answer

Salut tony,

As-tu regardé dans notre liste de codes disponibles (recherche> Tous les codes sauf .net)?

Moi j'ai déjà trouvé ça:
http://www.vbfrance.com/codes/MODULE-WINSOCK-GESTIONNAIRE-SOCKETS-WSOCK32-DLL_3800.aspx


CF2i - Guadeloupe
Ingénierie Informatique

NHenry · Answer

Bonjour, 

En VB6, il faut mettre un DoEvents entre les envois sur Winsock afin de faire l'envoi.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

cs_Jack · Answer

Salut

De quelle taille sont les données que tu expédies ?
Es-tu sûr que ce soit l'émetteur qui n'envoie pas tout et pas la réception qui n'est pas correctement faite ?

Pour te répondre, il faut avoir plus d'info sur ta méthode d'envoi et de réception

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

tonyledragon · Answer

Salut le problème je pense vien pas de l'envoie mais surtout quand il recoie les donnée doevents marche aussi pour quand il recoi les donnée

tonyledragon · Answer

voici le code coter serveur 
'--------------Login------------------
If Right(rsck, 6) = "/login" Then
ergt1 = String(255, 0)
ergt2 = String(255, 0)
ergt3 = String(255, 0)
ergt4 = String(255, 0)
ergt5 = String(255, 0)
ergt6 = String(255, 0)
ergt7 = String(255, 0)
ergt8 = String(255, 0)
ergt9 = String(255, 0)
ergt10 = String(255, 0)
ergt11 = String(255, 0)
ergt12 = String(255, 0)
ergt13 = String(255, 0)
ergt14 = String(255, 0)
ergt15 = String(255, 0)
ergt16 = String(255, 0)
ergt17 = String(255, 0)
ergt18 = String(255, 0)
ergt19 = String(255, 0)
cdc = Split(rsck, "|")
If Dir$(App.Path & "\Accounts" & cdc(0) & ".ini") = vbNullString Then
'existe pas
Winsock1(Index).SendData "/erlog"
Else
a = GetPrivateProfileString(App.Title, "mdp", "default", ergt1, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
Label4.Caption = cdc(1)
Label3.Caption = ergt1
If Label3.Caption = Label4.Caption Then
rsctxt.Text = Winsock1(Index).Index & " - " & cdc(0) & " Vien de se connecté a Dramen" & vbCrLf & rsctxt.Text
id = Winsock1(Index).Index

a = GetPrivateProfileString(App.Title, "dragonnom", "default", ergt2, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "couleur", "default", ergt3, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "element", "default", ergt4, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "sexe", "default", ergt5, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "force", "default", ergt6, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "defense", "default", ergt7, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "pv", "default", ergt8, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "dramas", "default", ergt9, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "level", "default", ergt10, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "dmdcbt", "default", ergt11, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "nomcbt", "default", ergt12, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "inscrit", "default", ergt13, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "connexion", "default", ergt14, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "jeux", "default", ergt15, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "promenade", "default", ergt16, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "deplacement", "default", ergt17, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "boitltr", "default", ergt18, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
a = GetPrivateProfileString(App.Title, "boitltrmsg", "default", ergt19, 255, App.Path & "\Accounts" & cdc(0) & ".ini")
Winsock1(Index).SendData ergt2 & "|" & ergt3 & "|" & ergt4 & "|" & ergt5 & "|" & ergt6 & "|" & ergt7 & "|" & ergt8 & "|" & ergt9 & "|" & ergt10 & "|" & ergt11 & "|" & ergt12 & "|" & ergt13 & "|" & ergt14 & "|" & ergt15 & "|" & ergt16 & "|" & ergt17 & "|" & ergt18 & "|" & ergt19 & "|" & id & "|" & "/login"
Else
Winsock1(Index).SendData "/erlog"
End If
End If
End If

et voici le code du coter client : 
'-----------login-----
If Right(rsck, 6) = "/login" Then
cdc = Split(rsck, "|")
pseudo = Text1.Text
inscrit = cdc(11)
connexion = cdc(12)
dragon = cdc(0)
couleur = cdc(1)
element = cdc(2)
sexe = cdc(3)
force = cdc(4)
defense = cdc(5)
pv = cdc(6)
dramas = cdc(7)
level = cdc(8)
dmdcbt = cdc(9)
nomcbt = cdc(10)
jeux = cdc(13)
promenade = cdc(14)
deplacement = cdc(15)
lettre = cdc(16)
lettre2 = cdc(17)
id = cdc(18)
Form1.Visible = False
Form5.Label2.Caption = "Transfere du joueur " & pseudo & " Avec sont Dragon " & dragon
Form5.Label2.Caption = Form5.Label2.Caption + ", Transfere en cours dans le monde D'Asteria..."
If couleur = "1" Then
Form5.WindowsMediaPlayer1.URL = App.Path & "\Vidéo" & "tp4.wmv"
ElseIf couleur = "2" Then
Form5.WindowsMediaPlayer1.URL = App.Path & "\Vidéo" & "tp2.wmv"
ElseIf couleur = "3" Then
Form5.WindowsMediaPlayer1.URL = App.Path & "\Vidéo" & "tp1.wmv"
ElseIf couleur = "4" Then
Form5.WindowsMediaPlayer1.URL = App.Path & "\Vidéo" & "tp5.wmv"
ElseIf couleur = "5" Then
Form5.WindowsMediaPlayer1.URL = App.Path & "\Vidéo" & "tp3.wmv"


End If
 Form4.Label19.Caption = promenade
 Form4.Label20.Caption = jeux
 Form4.Label21.Caption = deplacement
 Form4.Label2.Caption = pseudo
 Form4.Label1.Caption = dragon
Form4.Label8.Caption = level
 Form4.Label9.Caption = force
 Form4.Label10.Caption = defense
 Form4.Label11.Caption = pv
 Form4.Label12.Caption = dramas
 Form4.Label14.Caption = connexion
 Form4.Label17.Caption = inscrit
 Form4.Label23.Caption = id

If couleur = "1" Then
Form4.Image1.Visible = True
ElseIf couleur = "2" Then
Form4.Image8.Visible = True
ElseIf couleur = "3" Then
Form4.Image6.Visible = True
ElseIf couleur = "4" Then
Form4.Image7.Visible = True
ElseIf couleur = "5" Then
Form4.Image5.Visible = True
End If
If element = "1" Then
Form4.Image9.Visible = True
ElseIf element = "2" Then
Form4.Image3.Visible = True
ElseIf element = "3" Then
Form4.Image10.Visible = True
ElseIf element = "4" Then
Form4.Image11.Visible = True
ElseIf element = "5" Then
Form4.Image12.Visible = True
End If
If sexe = "1" Then
Form4.Image2.Visible = True
Else
Form4.Image13.Visible = True
End If
Form5.Show
End If
'-------------------

NHenry · Answer

Bonjour, 

Je n'ai pas compris la question.
Peux-tu remettre en clair ton message ?

"Avec sont Dragon" Mes yeux ...

Je pense que ton code est facilement factorisable, avec des tableaux et des structures.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

Voila je t'explique en bref,la personne entre le login et mot de passe puis une fois valider les donnée ini sont charger puis envoyer une fois envoyer, quand le client recoi sa sa met indice hors de la plage car les donnée sont pas tous envoyer et le tableaux et vide a moitier plien voila tout

NHenry · Answer

Bonjour, 

Sur quelle ligne l'erreur ?
Essayes de faire un effort au niveau de la grammaire/orthographe, ça rend la lecture plus difficile.
As-tu regardé en pas à pas pour comprendre ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

Désoler la ligne en question est au niveaux du client ici 
pv = cdc(6) indice en dehors de la plage tout simplement car le serveur ou le client na pas reçu tout les donnée correctement mais j'ai fait un test et ci on met je met un msgbox ben bizarrement il se connecte donc je pense c'est que le client recoi mais essaye directement de mettre dans le tableau ce qui provoque une erreur

tonyledragon · Answer

Salut j'ai toujours mon probleme j'utilise se code maitenant mais rine a faire sa bugs toujours . 
'--------------login------
If Right(rsck, 6) = "/login" Then
cdc = Split(rsck, "|")
For i = 0 To UBound(cdc)
Next i
pseudo = cdc(0)
id = cdc(1)
slot = cdc(2)
dragon = cdc(3)
force = cdc(4)
defence = cdc(5)
pv = cdc(6)
pm = cdc(7)
pa = cdc(8)
lvl = cdc(9)
xp = cdc(10)
apparence = cdc(11)
inscrit = cdc(12)
connexion = cdc(13)
dramas = cdc(14)
sexe = cdc(15)
element = cdc(16)
Form3.Label22.Caption = pseudo
If apparence = "1" Then
Form3.Image10.Visible = True
ElseIf apparence = "0" Then
Form3.Image11.Visible = True
ElseIf apparence = "2" Then
Form3.Image7.Visible = True
ElseIf apparence = "3" Then
Form3.Image6.Visible = True
ElseIf apparence = "4" Then
Form3.Image9.Visible = True
ElseIf apparence = "5" Then
Form3.Image8.Visible = True
End If
If sexe = "1" Then
Form3.Image4.Visible = True
ElseIf sexe = "2" Then
Form3.Image5.Visible = True
End If
If element = "1" Then
Form3.Image13.Visible = True
ElseIf element = "2" Then
Form3.Image12.Visible = True
ElseIf element = "3" Then
Form3.Image14.Visible = True
ElseIf element = "4" Then
Form3.Image15.Visible = True
ElseIf element = "5" Then
Form3.Image16.Visible = True
End If
Form3.Label13.Caption = force
Form3.Label14.Caption = defence
Form3.Label15.Caption = pv
Form3.Label16.Caption = pa
Form3.Label17.Caption = pm
Form3.Label18.Caption = lvl
Form3.Label19.Caption = xp
Form3.Label20.Caption = dramas
Form3.Show
Form1.Visible = False
End If

NHenry · Answer

Bonjour, 

"Salut j'ai toujours mon probleme j'utilise se code maitenant mais rine a faire sa bugs toujours."

En français :
"Salut, j'ai toujours mon problème j'utilise se code maintenant mais rien a faire ça bugs toujours."

Peux-tu détailler ce "bug" ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

Erreur d'excution "9" indice hors de la plage ou sinon des fois sur d'autre c'est erreur "13" incompatible

NHenry · Answer

Bonjour, 

Sur quelle(s) ligne(s), et quelles sont les données présentes dans les éléments de la ligne de code ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

Les lignes varies selon les personne c'est des fois pv = cdc(6) comme des fois c'est  id = cdc(1) 
Que veux tu dire par donnée présente ?

tonyledragon · Answer

Voila j'ai pensez a quelque truc mais je ne pense pas exactement que sa vien de sa mais bon  j'expose quand meme, je penser que sa soit les caractère de split qui soit incorrecte en bref changer le caractère peut faire que sa fonctionne mais le problème et pk les autre split et envoie de donnée fonctionne est pas celui ci .
Car d'autre système avec peut être un peut moins de donnée sont envoyer mais bon il y a jamais eu aucun problème avec ceux la que avec le login qui envoye pas mal de donnée donc pas mal de split générez

NHenry · Answer

Bonjour,

Avant de récupérer une donnée, vérifie systématiquement si la longueur est bonne.

Par exemple avec une fonction :
Public Function GetField(byref ptFields() as string,byval pFieldIndex) as String
    If pFieldIndex>UBound(ptFields) Then
        GetField=""
    Else
        GetField=ptFields(pFieldIndex)
    End if
end function

Puis lors des appels :
pseudo = cdc(0)
devient :
pseudo=GetField(cdc,0)

Mon site

tonyledragon · Answer

Salut j'ai mit sa dans un module : 
Public Function GetField(ByRef ptFields() As String, ByVal pFieldIndex) As String
    If pFieldIndex > UBound(ptFields) Then
        GetField = ""
    Else
        GetField = ptFields(pFieldIndex)
    End If
End Function

est j'ai changer par sa 
'--------------login------
If Right(rsck, 6) = "/login" Then
cdc = Split(rsck, "|")
pseudo = GetField(cdc, 0)
id = GetField(cdc, 1)
slot = GetField(cdc, 2)
dragon = GetField(cdc, 3)
force = GetField(cdc, 4)
defence = GetField(cdc, 5)
pv = GetField(cdc, 6)
pm = GetField(cdc, 7)
pa = GetField(cdc, 8)
lvl = GetField(cdc, 9)
xp = GetField(cdc, 10)
apparence = GetField(cdc, 11)
inscrit = GetField(cdc, 12)
connexion = GetField(cdc, 13)
dramas = GetField(cdc, 14)
sexe = GetField(cdc, 15)
element = GetField(cdc, 16)
Form3.Label22.Caption = pseudo
If apparence = "1" Then
Form3.Image10.Visible = True
ElseIf apparence = "0" Then
Form3.Image11.Visible = True
ElseIf apparence = "2" Then
Form3.Image7.Visible = True
ElseIf apparence = "3" Then
Form3.Image6.Visible = True
ElseIf apparence = "4" Then
Form3.Image9.Visible = True
ElseIf apparence = "5" Then
Form3.Image8.Visible = True
End If
If sexe = "1" Then
Form3.Image4.Visible = True
ElseIf sexe = "2" Then
Form3.Image5.Visible = True
End If
If element = "1" Then
Form3.Image13.Visible = True
ElseIf element = "2" Then
Form3.Image12.Visible = True
ElseIf element = "3" Then
Form3.Image14.Visible = True
ElseIf element = "4" Then
Form3.Image15.Visible = True
ElseIf element = "5" Then
Form3.Image16.Visible = True
End If
Form3.Label13.Caption = force
Form3.Label14.Caption = defence
Form3.Label15.Caption = pv
Form3.Label16.Caption = pa
Form3.Label17.Caption = pm
Form3.Label18.Caption = lvl
Form3.Label19.Caption = xp
Form3.Label20.Caption = dramas
Form3.Show
Form1.Visible = False
End If

C'est correcte ??

tonyledragon · Answer

Salut nouvelle erreur pour le moment le erreur '9 indice hors de la plage et exterminée donc merci déjà mais j'ai une nouvelle erreur erreur 13 type incompatible qu'il persiste toujours comment puis-je faire ?

tonyledragon · Answer

C'est bon tout fonctionne sur 2 pc déjà le bug a disparue grand merci a toi tu sauve mon jeu ^^

tonyledragon · Answer

Je revien je m'en excuse encore une fause joie donc 3 personne on test 2 on reussis avec ce news code la 3 eme a échouer type incompatible

tonyledragon · Answer

Désoler si je poste plusieur fois d'affile je men excuse voici la ligne j'ai oublier de lafficher 
force = GetField(cdc, 4)

tonyledragon · Answer

le code fonctionne pour tous si je fait sa 
If Right(rsck, 6) = "/login" Then
cdc = Split(rsck, "|")
pseudo = GetField(cdc, 0)
id = GetField(cdc, 1)
slot = GetField(cdc, 2)
dragon = GetField(cdc, 3)
Form3.Label22.Caption = pseudo
If apparence = "1" Then
Form3.Image10.Visible = True
ElseIf apparence = "0" Then
Form3.Image11.Visible = True
ElseIf apparence = "2" Then
Form3.Image7.Visible = True
ElseIf apparence = "3" Then
Form3.Image6.Visible = True
ElseIf apparence = "4" Then
Form3.Image9.Visible = True
ElseIf apparence = "5" Then
Form3.Image8.Visible = True
End If
If sexe = "1" Then
Form3.Image4.Visible = True
ElseIf sexe = "2" Then
Form3.Image5.Visible = True
End If
If element = "1" Then
Form3.Image13.Visible = True
ElseIf element = "2" Then
Form3.Image12.Visible = True
ElseIf element = "3" Then
Form3.Image14.Visible = True
ElseIf element = "4" Then
Form3.Image15.Visible = True
ElseIf element = "5" Then
Form3.Image16.Visible = True
End If
Form3.Label13.Caption = force
Form3.Label14.Caption = defence
Form3.Label15.Caption = pv
Form3.Label16.Caption = pa
Form3.Label17.Caption = pm
Form3.Label18.Caption = lvl
Form3.Label19.Caption = xp
Form3.Label20.Caption = dramas
Form3.Show
Form1.Visible = False
End If

NHenry · Answer

Bonjour, 

Quelle erreur ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

Voila l'erreur est type incompatible après sinon c'est a cause que le tableau et trop grand je croie car certain arrive a charger jusqu&#8217;à dragon = GetField(cdc, 3) le reste il n'arrivant pas et il fait une erreur incompatible .et t'il possible d'envoyer plusieurs fois les donnée ??

NHenry · Answer

Bonjour, 

Type incompatible, c'est quand tu tentes de changer le type d'une donnée alors que ce n'est pas possible.

Dans ce cas, il faut le type source, le type cible et la donnée pour pouvoir répondre.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

ok,mais rien ne change,sinon puis-je faire autrement pour couper mes donnée et le mettre dans autre chose sans buger

NHenry · Answer

Bonjour, 

force = GetField(cdc, 4)
Quel est le type de :
force et cdc (pour ce dernier, c'est String(), je crois)
Quelle est la valeur contenue dans cdc(4) quand l'erreur se produit, quelle est la valeur retournée par GetField quand l'erreur se produit ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

cdc(4) c'est un des chiffre force et cdc sont des string oui . il retours la ligne qu'il ne charge pas donc ou force ou même id ou autre

tonyledragon · Answer

j'ai fait un test pour caculer le nombre de donnée le serveur a envoyer a un client 3856 caractère mon client en a recu 952 . comment je peut relancer le chargement ?

tonyledragon · Answer

si je fait ceci le serveur envoye "/login" & "les donnée ................." & "login/" 
tu coups je fait dans le client :

If left (rsck,6) = "/login" then
cdc = split (rsck,"|") 
If right (rsck,6) = "login/" then 
cdc(0) = pseudo 
cdc(1) = test 
etc ...
Ce code pourrez t'il fonctionné  ??

NHenry · Answer

Bonjour, 

Il se peut que le socket mette un peu de temps avant de tout envoyer/recevoir, vérifie l'intégrité en utilisant une variable mémorisant les données en attente de traitement, puis une fois tout reçu, tu traites.

Genre :
Dim MonBuffer as string

Et lors de la réception :
MonBuffer=MonBuffer & MaReception

If (J'ai bien tout) Then
Traiter MonBuffer
MonBuffer=""
Enf If

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

Salut j'ai régle le bugs a chaque envoye de donnée j'ai mit deux balise pour détecté la fin et la debtut cette fois c'est sur 10 pc reussie la connexion merci beaucoups de m'avoir aider ^^

tonyledragon · Answer

j'ai fait un traitement de donnée a la premier donnée envoyer et puis une fois la donnée terminer les variable sont équiper des donnée au moin la il y a pas eu un seul probleme .

tonyledragon · Answer

Salut ,bon mes erreur n'y sont plus mais je  suis face a des erreur sans erreur dure a comprendre mais vais essaye de meixu mexpliquer bon le bugs toujours sur le login . 
voici le code serveur  : 
'---------------------------------------Login-------------
If Left(rsck, 6) = "/login" Then
cdc = Split(rsck, "|")
If Right(rsck, 6) = "/login" Then
If Dir$(App.Path & "\Accounts" & cdc(1) & ".ini") = vbNullString Then
'fichier existe pas
Winsock1(Index).SendData "/errlog"
Else
'fichier existe
ergt = String(255, 0)
ergt1 = String(225, 0)
ergt2 = String(225, 0)
ergt3 = String(225, 0)
ergt4 = String(225, 0)
ergt5 = String(225, 0)
ergt6 = String(225, 0)
ergt7 = String(225, 0)
ergt8 = String(225, 0)
ergt9 = String(225, 0)
ergt10 = String(225, 0)
ergt11 = String(225, 0)
ergt12 = String(225, 0)
ergt13 = String(225, 0)
ergt14 = String(225, 0)
ergt15 = String(225, 0)

a = GetPrivateProfileString(App.Title, "mot de passe", "default", ergt, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
Label3.Caption = cdc(2)
Label4.Caption = ergt
If Label3.Caption <> Label4.Caption Then
Winsock1(Index).SendData "/errlog"
Else
txtbox.Text = Label1.Caption & "|" & Label2.Caption & " ::" & Winsock1(Index).Index & cdc(1) & " Vien de ce connecté sur dramen" & vbCrLf & txtbox.Text
a = GetPrivateProfileString(App.Title, "dragon", "default", ergt1, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "apparence", "default", ergt2, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "element", "default", ergt3, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "force", "default", ergt4, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "defence", "default", ergt5, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "lvl", "default", ergt6, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "xp", "default", ergt7, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "pa", "default", ergt8, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "pm", "default", ergt9, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "dramas", "default", ergt10, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "inscrit", "default", ergt11, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "connexion", "default", ergt12, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
Winsock1(Index).SendData "/login" & "|" & ergt1 & "|" & ergt2 & "|" & ergt3 & "|" & ergt4 & "|" & ergt5 & "|" & ergt6 & "|" & ergt7 & "|" & ergt8 & "|" & ergt9 & "|" & ergt10 & "|" & ergt11 & "|" & ergt12 & "|" & "/login"
End If
End If
End If
End If



Et voici le client

'--------------login reussi--
If Left(rsck, 6) = "/login" Then
cdc = Split(rsck, "|")
If cdc(13) = "/login" Then
pseudo = Text1.Text
dragon = cdc(1)
apparence = cdc(2)
element = cdc(3)
force = cdc(4)
defence = cdc(5)
lvl = cdc(6)
xp = cdc(7)
pa = cdc(8)
pm = cdc(9)
dramas = cdc(10)
inscrit = cdc(11)
connexion = cdc(12)
Form3.Show
Form1.Visible = False
End If
End If

Voila donc comme d'habitut c'est problème sont sur certaine personne pas toutes. 

Donc voila chez certaine il se connecter et tout marche niquelle 

Chez d'autre 2 a l&#8217;occurrence les personne se connecté mais, je recoi la connexion au jeu mais eux reste bloquer sur la page de login comme ci leur fin de donnée doncif right (rsck,6) = "/login" then n'existé pas ou il la trouver pas donc il execute pas la suite. comment pui-je faire en sachant que aucun ligne bugs les clients on aucun bugs dessu c'est juste la page qui ce fixe

NHenry · Answer

Bonjour, 

Utilise un buffer, comme dans un de mes précédents messages sur ce sujet.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

Bonjour , 

Voila j'ai jamais utiliser le buffer et j'aimerais savoir comment je lui indique le nombre total du serveur au client ?? après je le place coté client ou serveur ?

tonyledragon · Answer

'---------------------------------------Login-------------
If Left(rsck, 6) = "/login" Then
cdc = Split(rsck, "|")
If Right(rsck, 6) = "/login" Then
If Dir$(App.Path & "\Accounts" & cdc(1) & ".ini") = vbNullString Then
'fichier existe pas
Winsock1(Index).SendData "/errlog"
Else
'fichier existe
ergt = String(255, 0)
ergt1 = String(225, 0)
ergt2 = String(225, 0)
ergt3 = String(225, 0)
ergt4 = String(225, 0)
ergt5 = String(225, 0)
ergt6 = String(225, 0)
ergt7 = String(225, 0)
ergt8 = String(225, 0)
ergt9 = String(225, 0)
ergt10 = String(225, 0)
ergt11 = String(225, 0)
ergt12 = String(225, 0)
ergt13 = String(225, 0)
ergt14 = String(225, 0)
ergt15 = String(225, 0)

a = GetPrivateProfileString(App.Title, "mot de passe", "default", ergt, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
Label3.Caption = cdc(2)
Label4.Caption = ergt
If Label3.Caption <> Label4.Caption Then
Winsock1(Index).SendData "/errlog"
Else
txtbox.Text = Label1.Caption & "|" & Label2.Caption & " ::" & Winsock1(Index).Index & cdc(1) & " Vien de ce connecté sur dramen" & vbCrLf & txtbox.Text
a = GetPrivateProfileString(App.Title, "dragon", "default", ergt1, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "apparence", "default", ergt2, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "element", "default", ergt3, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "force", "default", ergt4, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "defence", "default", ergt5, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "lvl", "default", ergt6, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "xp", "default", ergt7, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "pa", "default", ergt8, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "pm", "default", ergt9, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "dramas", "default", ergt10, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "inscrit", "default", ergt11, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
a = GetPrivateProfileString(App.Title, "connexion", "default", ergt12, 255, App.Path & "\Accounts" & cdc(1) & ".ini")
esck = "/login" & "|" & ergt1 & "|" & ergt2 & "|" & ergt3 & "|" & ergt4 & "|" & ergt5 & "|" & ergt6 & "|" & ergt7 & "|" & ergt8 & "|" & ergt9 & "|" & ergt10 & "|" & ergt11 & "|" & ergt12 & "|" & "/login"
ReDim buffer(Len(esck)) As Byte
buffer = esck
Winsock1(Index).SendData buffer
End If
End If
End If
End If

Bonjour, voila comment j'ai essayer de faire pour l'envoie de donnée et t'il correcte ?

tonyledragon · Answer

re , 

J'ai une question , un buffer sert juste a attendre les donnée soit complété une fois complété elle sont executer ? 
si oui donc mon code sert comme buffert ? 
If Left(rsck, 6) = "/login" Then
cdc = Split(rsck, "|")
If Right(rsck, 6) = "/login" Then
If les 6 caractère sont /login alors on exécute le fraction des donnée si les 6 dernier lettre sont /login then on exécute le logiciel c'est ce que fait le buffer si je me trompe ??

tonyledragon · Answer

re,voila je pense essaye de faire un envoye par un envoie donc un donnée par donnée pour eviter se bugs certe plus long a faire mais sa sera mieux que pas avoir de connexion du tout

NHenry · Answer

Bonjour, 

Le buffer te permettre d'attendre que toutes les données soient reçues avant de commencer le traitement.

Ensuite, c'est à toi de contrôler si tout a été reçu. (Souvent on appel cela un protocole, ça normalise les échanges).

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

Ok mais comment je fait pour le buffer pour savoir le nombre de bytes à recevoir

tonyledragon · Answer

Pouvez vous ci possible me faire un code en exemple pour savoir comment je peut l'utiliser et si je doit le mettre en client ou serveur .

NHenry · Answer

Bonjour, 

Il faut que tu mette des délimiteurs à ta trame d'information, ces délimiteurs ne doivent pas se retrouver dans des données contenues dans la trame.

Tu peux par exemple utiliser des caractères spéciaux Chr$(01) et Chr$(02) pour le début et la fin.
Ensuite, tu teste la présence des ces 2 délimiteurs pour savoir si les données sont complètes.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

tonyledragon · Answer

Merci !!!

Comment envoyer tout les donnée compléte

46 réponses

Votre réponse

Discussions similaires