[VB6] Problème Winsock "Type Mismatch"

Bonjour,

J'essaie toujours de développer mon chat réseau et voici quelque chose de simple mais qui ne marche apparemment pas :

Code:

---

1 2 3 4 5 6 7 8

Dim user As Winsock   Private Sub Timer_Timer() For Each user In feuilleServeur user.SendData (stk(0)) Next   End Sub

---

Il me dit Run-time error 13 Type Mismatch

Quelqu'un aurait-il une idée du problème ?
Merci.

Ouar

Citation:

---

Mismatch

---

Ta déclaration ne correspond pas à la donnée attendue dans ta variable.
Enfin, c'est ce que j'en déduis

A+

Euhhhh ouais, ça je m'en doutais...

Le problème c'est que je ne vois pas justement ce qui ne va pas.

Merci quand même.
Quelqu'un a t'il une autre idée :?:

Tu as essayé en déclarant simplement Dim user ?
Juste une idée bête... :wink:

Citation:

---

Tu as essayé en déclarant simplement Dim user ?
Juste une idée bête... :wink:

---

Oui, ça me paraît idiot aussi...
As-tu essayé en créant l'objet user avec Set ?
Comme je ne sais pas ce qu'est feuilleServeur, ni Winsock, ni VB... je ne sais pas si je t'aide beaucoup... :cry:
Mais il y en a d'autres qui savent :wink:

Bonne chance

Oui, en effet ça ne règle pas vraiment mon problème, pour ton info, une déclaration se fait de cette manière : Dim variable As Type

J'ai vu sur des sites qu'on pouvait déclarer une variable de type Winsock,
donc en toute logique cet objet devrait avoir également les propriétés du controle Winsock (à savoir ici la méthode SendData).

C'est pour ça que je ne vois pas d'où vient l'erreur de Type.

Quelqu'un aurait t'il une idée??? :cry:

Ouar

Citation:

---

une déclaration se fait de cette manière : Dim variable As Type

---

Merci, je fais ce que je t'ai dit quand j'ai une erreur de déclaration, une variant a "l'habitude" de s'adapter, et si ça marche, je cherche plus loin. Au moins je sais que ma syntaxe n'est pas en cause mais seulement ma déclaration... :wink:

Bonne chance pour la suite

Et pour utiliser le type "winsock", il ne faut pas ajouter une référence à ton projet?

je ne pense pas que c'est ça, sinon il aurait eu une erreur de compilation.

dis moi, que te surligne exactement le débogueur?

Salut :wink:

et tout bêtement, c'est quoi stk(0) ??

En fait le débugger surligne "For each user in feuilleServeur"

Stk(0) est l'élément 0 du tableau Stk

Voilà, si ça peut vous aider...

bonsoir,

apparement tu essaies de developper un chat reseau.

Moi j'ai crée un chat basique qui utilise les mailslots dont je suis en train d'essayer de le faire évoluer.

donc si tu utilises cette méthode je peux surement t aider !

voilà bonne chance pour ton chat.
+ et fais moi signe si besoin

Ca y est !

J'ai trouvé une parade super simple :!:
J'utilise une simple boucle:

Citation:

---

Dim user As Integer
For user = 1 To Nb
WinsockClientServ(user).SendData Stk(0)
Next

---

Pourquoi chercher trop compliqué?!

Merci à tous pour votre soutien et à bientôt !

Ouar :D

Pour que tout soit clair pour tous, je crois, Ouar, que tu devrais dire ici ce qu'et nb (comment il est calculé)
MERCI
:)

Pour info Nb est une variable incrémentée de 1 chaque fois qu'un client se connecte au serveur

VOILA qui est maintenant complet.
Merci Ouar !
:D

De rien jmfmarques , c'est vrai que ça pourra servir à d'autres
:D