Je dévellope une application "Serveur" pour un système domotique.
L'application "Serveur" lit les télégrammes qui passent sur un bus de donnée
via le port série du PC et écrit ces télégrammes sur le réseau au moyen du
contrôle ocx Winsock et vice-versa.
Je voudrais bien utiliser les API Winsock au lieu d'utiliser le contrôle
ocx. Ceci pour la simple raison, lorsque je connecte deux clients Winsock
sur mon application, le second clients ne reçoit pas les données.
Etant inexpérimenté avec les API's. Auriez-vous un exemple avec code source
d'un programme client-serveur multi-user ? Dans l'affirmative, serait-il
possible d'un recevoir le code source afin de m'inspirer ?
Vous trouverez également ci-dessous un extrait de mon application
travaillant avec le contrôle ocx, si jamais vous trouviez le problème !
Un grand Merci pour votre coup de main (je pioche sur ce problème depuis au
moins un mois)
François Ranwez
francois.ranwez@skynet.be
sub Form_Load()
LastIndex = 0
sckListen(LastIndex).Close
sckListen(LastIndex).LocalPort = 900
sckListen(LastIndex).Listen
End Sub
Private Sub sckListen_ConnectionRequest(Index As Integer, ByVal requestID As
Long)
LastIndex = LastIndex + 1
Load sckListen(LastIndex)
sckListen(LastIndex).Accept requestID
sckListen(LastIndex).SendData ("#Welcome - User(index): " &
str(LastIndex))
End Sub
Sub Main
For compteur = LastIndex To 1 Step -1
If sckListen(compteur).State = sckConnected Then
sckListen(compteur).SendData Donnees
End If
Next compteur
End Sub
Va voir sur www.vbfrance.com, y'a pas mieux comme communauté VB ; )
citron99
lu, Utilise la méthode Accept sur une nouvelle instance du contrôle a+ "François Ranwez" a écrit dans le message de news:3f9a62ac$0$3626$
Salut à tous,
Je dévellope une application "Serveur" pour un système domotique. L'application "Serveur" lit les télégrammes qui passent sur un bus de
donnée
via le port série du PC et écrit ces télégrammes sur le réseau au moyen du contrôle ocx Winsock et vice-versa.
Je voudrais bien utiliser les API Winsock au lieu d'utiliser le contrôle ocx. Ceci pour la simple raison, lorsque je connecte deux clients Winsock sur mon application, le second clients ne reçoit pas les données.
Etant inexpérimenté avec les API's. Auriez-vous un exemple avec code
source
d'un programme client-serveur multi-user ? Dans l'affirmative, serait-il possible d'un recevoir le code source afin de m'inspirer ?
Vous trouverez également ci-dessous un extrait de mon application travaillant avec le contrôle ocx, si jamais vous trouviez le problème !
Un grand Merci pour votre coup de main (je pioche sur ce problème depuis
au
moins un mois) François Ranwez
sub Form_Load() LastIndex = 0 sckListen(LastIndex).Close sckListen(LastIndex).LocalPort = 900 sckListen(LastIndex).Listen End Sub
Private Sub sckListen_ConnectionRequest(Index As Integer, ByVal requestID
As
Long) LastIndex = LastIndex + 1 Load sckListen(LastIndex) sckListen(LastIndex).Accept requestID sckListen(LastIndex).SendData ("#Welcome - User(index): " & str(LastIndex)) End Sub
Sub Main For compteur = LastIndex To 1 Step -1 If sckListen(compteur).State = sckConnected Then sckListen(compteur).SendData Donnees End If Next compteur End Sub
lu,
Utilise la méthode Accept sur une nouvelle instance du contrôle
a+
"François Ranwez" <francois.ranwez@brutele.be> a écrit dans le message de
news:3f9a62ac$0$3626$ba620e4c@reader2.news.skynet.be...
Salut à tous,
Je dévellope une application "Serveur" pour un système domotique.
L'application "Serveur" lit les télégrammes qui passent sur un bus de
donnée
via le port série du PC et écrit ces télégrammes sur le réseau au moyen du
contrôle ocx Winsock et vice-versa.
Je voudrais bien utiliser les API Winsock au lieu d'utiliser le contrôle
ocx. Ceci pour la simple raison, lorsque je connecte deux clients Winsock
sur mon application, le second clients ne reçoit pas les données.
Etant inexpérimenté avec les API's. Auriez-vous un exemple avec code
source
d'un programme client-serveur multi-user ? Dans l'affirmative, serait-il
possible d'un recevoir le code source afin de m'inspirer ?
Vous trouverez également ci-dessous un extrait de mon application
travaillant avec le contrôle ocx, si jamais vous trouviez le problème !
Un grand Merci pour votre coup de main (je pioche sur ce problème depuis
au
moins un mois)
François Ranwez
francois.ranwez@skynet.be
sub Form_Load()
LastIndex = 0
sckListen(LastIndex).Close
sckListen(LastIndex).LocalPort = 900
sckListen(LastIndex).Listen
End Sub
Private Sub sckListen_ConnectionRequest(Index As Integer, ByVal requestID
As
Long)
LastIndex = LastIndex + 1
Load sckListen(LastIndex)
sckListen(LastIndex).Accept requestID
sckListen(LastIndex).SendData ("#Welcome - User(index): " &
str(LastIndex))
End Sub
Sub Main
For compteur = LastIndex To 1 Step -1
If sckListen(compteur).State = sckConnected Then
sckListen(compteur).SendData Donnees
End If
Next compteur
End Sub
lu, Utilise la méthode Accept sur une nouvelle instance du contrôle a+ "François Ranwez" a écrit dans le message de news:3f9a62ac$0$3626$
Salut à tous,
Je dévellope une application "Serveur" pour un système domotique. L'application "Serveur" lit les télégrammes qui passent sur un bus de
donnée
via le port série du PC et écrit ces télégrammes sur le réseau au moyen du contrôle ocx Winsock et vice-versa.
Je voudrais bien utiliser les API Winsock au lieu d'utiliser le contrôle ocx. Ceci pour la simple raison, lorsque je connecte deux clients Winsock sur mon application, le second clients ne reçoit pas les données.
Etant inexpérimenté avec les API's. Auriez-vous un exemple avec code
source
d'un programme client-serveur multi-user ? Dans l'affirmative, serait-il possible d'un recevoir le code source afin de m'inspirer ?
Vous trouverez également ci-dessous un extrait de mon application travaillant avec le contrôle ocx, si jamais vous trouviez le problème !
Un grand Merci pour votre coup de main (je pioche sur ce problème depuis
au
moins un mois) François Ranwez
sub Form_Load() LastIndex = 0 sckListen(LastIndex).Close sckListen(LastIndex).LocalPort = 900 sckListen(LastIndex).Listen End Sub
Private Sub sckListen_ConnectionRequest(Index As Integer, ByVal requestID
As
Long) LastIndex = LastIndex + 1 Load sckListen(LastIndex) sckListen(LastIndex).Accept requestID sckListen(LastIndex).SendData ("#Welcome - User(index): " & str(LastIndex)) End Sub
Sub Main For compteur = LastIndex To 1 Step -1 If sckListen(compteur).State = sckConnected Then sckListen(compteur).SendData Donnees End If Next compteur End Sub
citron99
re, Load sckListen(LastIndex) sckListen(LastIndex).LocalPort = x *** sckListen(LastIndex).Accept requestID a+
"François Ranwez" a écrit dans le message de news:3f9a62ac$0$3626$
Salut à tous,
Je dévellope une application "Serveur" pour un système domotique. L'application "Serveur" lit les télégrammes qui passent sur un bus de
donnée
via le port série du PC et écrit ces télégrammes sur le réseau au moyen du contrôle ocx Winsock et vice-versa.
Je voudrais bien utiliser les API Winsock au lieu d'utiliser le contrôle ocx. Ceci pour la simple raison, lorsque je connecte deux clients Winsock sur mon application, le second clients ne reçoit pas les données.
Etant inexpérimenté avec les API's. Auriez-vous un exemple avec code
source
d'un programme client-serveur multi-user ? Dans l'affirmative, serait-il possible d'un recevoir le code source afin de m'inspirer ?
Vous trouverez également ci-dessous un extrait de mon application travaillant avec le contrôle ocx, si jamais vous trouviez le problème !
Un grand Merci pour votre coup de main (je pioche sur ce problème depuis
au
moins un mois) François Ranwez
sub Form_Load() LastIndex = 0 sckListen(LastIndex).Close sckListen(LastIndex).LocalPort = 900 sckListen(LastIndex).Listen End Sub
Private Sub sckListen_ConnectionRequest(Index As Integer, ByVal requestID
As
Long) LastIndex = LastIndex + 1 Load sckListen(LastIndex) sckListen(LastIndex).Accept requestID sckListen(LastIndex).SendData ("#Welcome - User(index): " & str(LastIndex)) End Sub
Sub Main For compteur = LastIndex To 1 Step -1 If sckListen(compteur).State = sckConnected Then sckListen(compteur).SendData Donnees End If Next compteur End Sub
re,
Load sckListen(LastIndex)
sckListen(LastIndex).LocalPort = x ***
sckListen(LastIndex).Accept requestID
a+
"François Ranwez" <francois.ranwez@brutele.be> a écrit dans le message de
news:3f9a62ac$0$3626$ba620e4c@reader2.news.skynet.be...
Salut à tous,
Je dévellope une application "Serveur" pour un système domotique.
L'application "Serveur" lit les télégrammes qui passent sur un bus de
donnée
via le port série du PC et écrit ces télégrammes sur le réseau au moyen du
contrôle ocx Winsock et vice-versa.
Je voudrais bien utiliser les API Winsock au lieu d'utiliser le contrôle
ocx. Ceci pour la simple raison, lorsque je connecte deux clients Winsock
sur mon application, le second clients ne reçoit pas les données.
Etant inexpérimenté avec les API's. Auriez-vous un exemple avec code
source
d'un programme client-serveur multi-user ? Dans l'affirmative, serait-il
possible d'un recevoir le code source afin de m'inspirer ?
Vous trouverez également ci-dessous un extrait de mon application
travaillant avec le contrôle ocx, si jamais vous trouviez le problème !
Un grand Merci pour votre coup de main (je pioche sur ce problème depuis
au
moins un mois)
François Ranwez
francois.ranwez@skynet.be
sub Form_Load()
LastIndex = 0
sckListen(LastIndex).Close
sckListen(LastIndex).LocalPort = 900
sckListen(LastIndex).Listen
End Sub
Private Sub sckListen_ConnectionRequest(Index As Integer, ByVal requestID
As
Long)
LastIndex = LastIndex + 1
Load sckListen(LastIndex)
sckListen(LastIndex).Accept requestID
sckListen(LastIndex).SendData ("#Welcome - User(index): " &
str(LastIndex))
End Sub
Sub Main
For compteur = LastIndex To 1 Step -1
If sckListen(compteur).State = sckConnected Then
sckListen(compteur).SendData Donnees
End If
Next compteur
End Sub
re, Load sckListen(LastIndex) sckListen(LastIndex).LocalPort = x *** sckListen(LastIndex).Accept requestID a+
"François Ranwez" a écrit dans le message de news:3f9a62ac$0$3626$
Salut à tous,
Je dévellope une application "Serveur" pour un système domotique. L'application "Serveur" lit les télégrammes qui passent sur un bus de
donnée
via le port série du PC et écrit ces télégrammes sur le réseau au moyen du contrôle ocx Winsock et vice-versa.
Je voudrais bien utiliser les API Winsock au lieu d'utiliser le contrôle ocx. Ceci pour la simple raison, lorsque je connecte deux clients Winsock sur mon application, le second clients ne reçoit pas les données.
Etant inexpérimenté avec les API's. Auriez-vous un exemple avec code
source
d'un programme client-serveur multi-user ? Dans l'affirmative, serait-il possible d'un recevoir le code source afin de m'inspirer ?
Vous trouverez également ci-dessous un extrait de mon application travaillant avec le contrôle ocx, si jamais vous trouviez le problème !
Un grand Merci pour votre coup de main (je pioche sur ce problème depuis
au
moins un mois) François Ranwez
sub Form_Load() LastIndex = 0 sckListen(LastIndex).Close sckListen(LastIndex).LocalPort = 900 sckListen(LastIndex).Listen End Sub
Private Sub sckListen_ConnectionRequest(Index As Integer, ByVal requestID
As
Long) LastIndex = LastIndex + 1 Load sckListen(LastIndex) sckListen(LastIndex).Accept requestID sckListen(LastIndex).SendData ("#Welcome - User(index): " & str(LastIndex)) End Sub
Sub Main For compteur = LastIndex To 1 Step -1 If sckListen(compteur).State = sckConnected Then sckListen(compteur).SendData Donnees End If Next compteur End Sub
4B Ingenierie
Salut,
Tu trouvera ton bonheur sur http://www.vbip.com
cordialement
Dominique LEBLANC
"François Ranwez" a écrit dans le message de news: 3f9a62ac$0$3626$
Salut à tous,
Je dévellope une application "Serveur" pour un système domotique. L'application "Serveur" lit les télégrammes qui passent sur un bus de
donnée
via le port série du PC et écrit ces télégrammes sur le réseau au moyen du contrôle ocx Winsock et vice-versa.
Je voudrais bien utiliser les API Winsock au lieu d'utiliser le contrôle ocx. Ceci pour la simple raison, lorsque je connecte deux clients Winsock sur mon application, le second clients ne reçoit pas les données.
Etant inexpérimenté avec les API's. Auriez-vous un exemple avec code
source
d'un programme client-serveur multi-user ? Dans l'affirmative, serait-il possible d'un recevoir le code source afin de m'inspirer ?
Vous trouverez également ci-dessous un extrait de mon application travaillant avec le contrôle ocx, si jamais vous trouviez le problème !
Un grand Merci pour votre coup de main (je pioche sur ce problème depuis
au
moins un mois) François Ranwez
sub Form_Load() LastIndex = 0 sckListen(LastIndex).Close sckListen(LastIndex).LocalPort = 900 sckListen(LastIndex).Listen End Sub
Private Sub sckListen_ConnectionRequest(Index As Integer, ByVal requestID
As
Long) LastIndex = LastIndex + 1 Load sckListen(LastIndex) sckListen(LastIndex).Accept requestID sckListen(LastIndex).SendData ("#Welcome - User(index): " & str(LastIndex)) End Sub
Sub Main For compteur = LastIndex To 1 Step -1 If sckListen(compteur).State = sckConnected Then sckListen(compteur).SendData Donnees End If Next compteur End Sub
Salut,
Tu trouvera ton bonheur sur http://www.vbip.com
cordialement
Dominique LEBLANC
"François Ranwez" <francois.ranwez@brutele.be> a écrit dans le message de
news: 3f9a62ac$0$3626$ba620e4c@reader2.news.skynet.be...
Salut à tous,
Je dévellope une application "Serveur" pour un système domotique.
L'application "Serveur" lit les télégrammes qui passent sur un bus de
donnée
via le port série du PC et écrit ces télégrammes sur le réseau au moyen du
contrôle ocx Winsock et vice-versa.
Je voudrais bien utiliser les API Winsock au lieu d'utiliser le contrôle
ocx. Ceci pour la simple raison, lorsque je connecte deux clients Winsock
sur mon application, le second clients ne reçoit pas les données.
Etant inexpérimenté avec les API's. Auriez-vous un exemple avec code
source
d'un programme client-serveur multi-user ? Dans l'affirmative, serait-il
possible d'un recevoir le code source afin de m'inspirer ?
Vous trouverez également ci-dessous un extrait de mon application
travaillant avec le contrôle ocx, si jamais vous trouviez le problème !
Un grand Merci pour votre coup de main (je pioche sur ce problème depuis
au
moins un mois)
François Ranwez
francois.ranwez@skynet.be
sub Form_Load()
LastIndex = 0
sckListen(LastIndex).Close
sckListen(LastIndex).LocalPort = 900
sckListen(LastIndex).Listen
End Sub
Private Sub sckListen_ConnectionRequest(Index As Integer, ByVal requestID
As
Long)
LastIndex = LastIndex + 1
Load sckListen(LastIndex)
sckListen(LastIndex).Accept requestID
sckListen(LastIndex).SendData ("#Welcome - User(index): " &
str(LastIndex))
End Sub
Sub Main
For compteur = LastIndex To 1 Step -1
If sckListen(compteur).State = sckConnected Then
sckListen(compteur).SendData Donnees
End If
Next compteur
End Sub
"François Ranwez" a écrit dans le message de news: 3f9a62ac$0$3626$
Salut à tous,
Je dévellope une application "Serveur" pour un système domotique. L'application "Serveur" lit les télégrammes qui passent sur un bus de
donnée
via le port série du PC et écrit ces télégrammes sur le réseau au moyen du contrôle ocx Winsock et vice-versa.
Je voudrais bien utiliser les API Winsock au lieu d'utiliser le contrôle ocx. Ceci pour la simple raison, lorsque je connecte deux clients Winsock sur mon application, le second clients ne reçoit pas les données.
Etant inexpérimenté avec les API's. Auriez-vous un exemple avec code
source
d'un programme client-serveur multi-user ? Dans l'affirmative, serait-il possible d'un recevoir le code source afin de m'inspirer ?
Vous trouverez également ci-dessous un extrait de mon application travaillant avec le contrôle ocx, si jamais vous trouviez le problème !
Un grand Merci pour votre coup de main (je pioche sur ce problème depuis
au
moins un mois) François Ranwez
sub Form_Load() LastIndex = 0 sckListen(LastIndex).Close sckListen(LastIndex).LocalPort = 900 sckListen(LastIndex).Listen End Sub
Private Sub sckListen_ConnectionRequest(Index As Integer, ByVal requestID
As
Long) LastIndex = LastIndex + 1 Load sckListen(LastIndex) sckListen(LastIndex).Accept requestID sckListen(LastIndex).SendData ("#Welcome - User(index): " & str(LastIndex)) End Sub
Sub Main For compteur = LastIndex To 1 Step -1 If sckListen(compteur).State = sckConnected Then sckListen(compteur).SendData Donnees End If Next compteur End Sub
