[VB6] Reseau LAN: Server VB6, Client Java.

Version imprimable

Bonjour,

j'aurais besoin de créer un réseau LAN entre un serveur codé en VB6 et un client codé en Java.

coté matériel: il s'agit de 2 PC différents, Windows XP, reliés par un câble Ethernet. En utilisant uniquement Java, j'ai pu facilement monter le réseau, en créant un "socket client" sur le PC client et un "socket server" sur le PC serveur. Une fois la connexion effectuée, le client écoute le serveur et réceptionne ce que le serveur envoie. le serveur lui ne fait qu'envoyer des données.

Mon but est de transcrire la partie serveur en VB6 et de conserver la partie client en java. Le serveur VB6 sera utilisé pour envoyer des chaines de caractères au client java qui exécutera différentes procédures (= méthodes codées en java) selon le contenu de la chaine de caractères réceptionnée...

Le code VB6 sera écrit intégralement dans un module d'un activeX DLL, j'ai trouvé des exemples de codes dans l'api guide en recherchant "socket", ça ne m'a pas beaucoup éclairé.

Ensuite sur internet en tapant winSock j'ai trouve ce code :

Module 1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Option Explicit
 
Public Const SOCKET_ERROR = -1
Public Const AF_INET = 2
Public Const PF_INET = AF_INET
Public Const MAXGETHOSTSTRUCT = 1024
Public Const SOCK_STREAM = 1
Public Const MSG_PEEK = 2
 
Public Type SockAddr
    sin_family As Integer
    sin_port As Integer
    sin_addr As String * 4
    sin_zero As String * 8
End Type
 
Public Type T_WSA
    wVersion As Integer
    wHighVersion As Integer
    szDescription(0 To 255) As Byte
    szSystemStatus(0 To 128) As Byte
    iMaxSockets As Integer
    iMaxUdpDg As Integer
    lpVendorInfo As Long
End Type
 
Public WSAData As T_WSA
 
Public Type Inet_Address
    Byte4 As String * 1
    Byte3 As String * 1
    Byte2 As String * 1
    Byte1 As String * 1
End Type
 
Public IPStruct As Inet_Address
 
Public Type T_Host
    h_name As Long
    h_aliases As Long
    h_addrtype As Integer
    h_length As Integer
    h_addr_list As Long
End Type
 
' KERNEL32.DLL funtions
Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal cb&)
 
' WSOCK32.DLL functions
Declare Function gethostbyaddr Lib "wsock32.dll" (addr As Long, ByVal addr_len As Long, ByVal addr_type As Long) As Long
Declare Function inet_addr Lib "wsock32.dll" (ByVal addr As String) As Long
Declare Function GetHostByName Lib "wsock32.dll" Alias "gethostbyname" (ByVal HostName As String) As Long
Declare Function GetHostName Lib "wsock32.dll" Alias "gethostname" (ByVal HostName As String, HostLen As Long) As Long
Declare Function WSAStartup Lib "wsock32.dll" (ByVal a As Long, b As T_WSA) As Long
Declare Function WSACleanUp Lib "wsock32.dll" Alias "WSACleanup" () As Integer
Declare Function Socket Lib "wsock32.dll" Alias "socket" (ByVal afinet As Integer, ByVal socktype As Integer, ByVal protocol As Integer) As Long
Declare Function ConnectWinsock Lib "wsock32.dll" Alias "connect" (ByVal sock As Long, sockstruct As SockAddr, ByVal structlen As Integer) As Integer
Declare Function send Lib "wsock32.dll" (ByVal sock As Long, ByVal msg As String, ByVal msglen As Integer, ByVal flag As Integer) As Integer
Declare Function recv Lib "wsock32.dll" (ByVal sock As Long, ByVal msg As String, ByVal msglen As Integer, ByVal flag As Integer) As Integer
Declare Function htonl Lib "wsock32.dll" (ByVal a As Long) As Long
Declare Function ntohl Lib "wsock32.dll" (ByVal a As Long) As Long
Declare Function htons Lib "wsock32.dll" (ByVal a As Integer) As Integer
Declare Function ntohs Lib "wsock32.dll" (ByVal a As Integer) As Integer
Declare Function closesocket Lib "wsock32.dll" (ByVal sn As Long) As Integer

Module2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 
Function HostByName(sHost As String) As String
    Dim s As String
    Dim p As Long
    Dim Host As T_Host
    Dim ListAddress As Long
    Dim ListAddr As Long
    Dim Address As Long
 
    s = String(64, 0)
    sHost = sHost + Right(s, 64 - Len(sHost))
    p = GetHostByName(sHost)
    If p = SOCKET_ERROR Then
        Exit Function
    Else
        If p <> 0 Then
            CopyMemory Host.h_name, ByVal p, Len(Host)
            ListAddress = Host.h_addr_list
            CopyMemory ListAddr, ByVal ListAddress, 4
            CopyMemory Address, ByVal ListAddr, 4
            HostByName = InetAddrLongToString(Address)
        Else
            HostByName = "No DNS Entry"
        End If
    End If
End Function
 
Private Function InetAddrStringToLong(Address As String) As Long
    InetAddrStringToLong = inet_addr(Address)
End Function
 
Private Function InetAddrLongToString(Address As Long) As String
    CopyMemory IPStruct, Address, 4
    InetAddrLongToString = CStr(Asc(IPStruct.Byte4)) + "." + CStr(Asc(IPStruct.Byte3)) + "." + CStr(Asc(IPStruct.Byte2)) + "." +   CStr(Asc(IPStruct.Byte1))
End Function
 
Function HostByAddress(ByVal sAddress As String) As String
    Dim lAddress As Long
    Dim p As Long
    Dim HostName As String
    Dim Host As T_Host
 
    lAddress = inet_addr(sAddress)
    p = gethostbyaddr(lAddress, 4, PF_INET)
    If p <> 0 Then
        CopyMemory Host, ByVal p, Len(Host)
        HostName = String(256, 0)
        CopyMemory ByVal HostName, ByVal Host.h_name, 256
        If HostName = "" Then HostByAddress = "Unable to Resolve Address"
        HostByAddress = Left(HostName, InStr(HostName, Chr(0)) - 1)
    Else
        HostByAddress = "No DNS Entry"
    End If
End Function
 
Private Function ResolveHost(sHost As String) As Long
    Dim lAddress As Long
 
    lAddress = InetAddrStringToLong(sHost)
    If lAddress = SOCKET_ERROR Then
        ResolveHost = inet_addr(HostByName(sHost))
    Else
        ResolveHost = lAddress
    End If
End Function
 
Public Function WinsockConnect(ByVal m_RemoteHost As String, m_RemotePort As Long, iSocket As Long) As Boolean
    Dim sock As SockAddr
    Dim sRemoteIP As String
    Dim x As Long
    Dim bAddr(0 To 3) As Byte
    Dim i As Integer
 
    iSocket = Socket(AF_INET, SOCK_STREAM, 0)
    If iSocket < 1 Then
        WinsockConnect = False
        Exit Function
    End If
    sRemoteIP = ""
    sock.sin_family = AF_INET
    x = ResolveHost(m_RemoteHost)
    CopyMemory bAddr(0), x, 4
    For i = 0 To 3
        sRemoteIP = sRemoteIP & Chr(bAddr(i))
    Next
    sock.sin_addr = sRemoteIP
    sock.sin_port = htons(m_RemotePort)
    sock.sin_zero = String(8, 0)
    If ConnectWinsock(iSocket, sock, Len(sock)) Then
        WinsockConnect = False
        Exit Function
    End If
    WinsockConnect = True
End Function
 
Public Sub WinsockInit()
    WSAStartup &H101, WSAData
End Sub

mais je n'ai pas réussi a l'adapter pour créer mon "Socket server" en VB...Il me semble d'ailleurs que le code ci dessous correspond a un client plus qu'a un serveur, n'est-ce pas?

J'ai jeté un œil aux tutoriels de créations de chat en ligne sur developpez.com, ils utilisent les winSock dans des "Form" (formulaire je présume) mais je n'arrive pas a intégrer ça a mon activeX DLL (il faut dire qu'il est teigneux le bougre...)

Sauriez vous m'aider? :aie:
Merci d'avance pour vos réponses.

Remy.

22/12/2010, 10h18
remya
Il me semble que les Winsock permettent d'arriver a une solution, aussi je précise ci-dessous en quoi leur utilisation me pose probleme:

1/ J'ai bien ajouté le composant Winsock dans mon projet (menu: projet->components->Microsoft Winsock control 6.0), pas de soucis jusqu'ici.

2/ le code suivant
Code:

1 2 3 Dim ws As Winsock ws.localPort = 100
génère l'erreur suivante:

Citation:

Object variable or With block variable not set

en fait tous les appels

Code:

ws.quelqueChose

génèrent la meme erreur...

Merci pour vos réponses.
Remy.
22/12/2010, 12h14
ThierryAIM
Code:

Dim ws As New Winsock

ou
Code:

1 2 Dim ws As Winsock Set ws = New Winsock
23/12/2010, 07h47
Delbeke

Heu, pourquoi ne pas déposer un controle winsock sur ta feuille. tout simplment.
24/12/2010, 02h20
remya
Merci beaucoup pour vos reponses,

Thierry, effectivement l'objet winsock n'était pas initialisé,
le code suivant permet de s'en rendre compte
Code:

1 2 3 4 5 6 Public Function Test() Dim ws As Winsock If ws Is Nothing Then MsgBox "NOTHING" End If End Function
cependant, aucune des deux suggestions que tu m'as proposé ne compile.

Les codes :
Code:

1 2 3 4 Public Function Test() Dim ws As Winsock Set ws = New Winsock End Function
et
Code:

1 2 3 Public Function Test() Dim ws As New Winsock End Function
génèrent l'erreur suivante:

Citation:

Invalide use of New keyword

dans les deux cas c'est la partie du code

Code:

New Winsock

qui est surlignée par le compilateur...

Lorsque j'écris un New dans mon module, un menu déroulant s'ouvre me proposant des choix comme Collection, ErrObject, Global, ... mais pas Winsock. Pourtant lorsque j'écris Dim ws As le choix Winsock est bien présent...

Sauriez vous me dire ce qui ne va pas?

Delbeke, est il possible de faire ceci dans un activeX dLL? le programme que je code sera compilé en DLL et executé par le logiciel Metamorph (logiciel de traitement d'image et de control de materiel de laboratoire comme microscpoe, camera, lumiere fluorescente, XYZ motorized stages, ... ).
Si c'est possible, merci de me tuyauuter sur la marche a suivrre.

Comme vous l'avez remarqué je sais a peine me servir de ce langage , il m'est imposé par le fait qu'il est le seul capable de rendre le logiciel Metamorph programmable.

Merci d'avance pour vos réponses.
24/12/2010, 08h34
Delbeke

Je vois pas ce qui pourrait l'empecher.
Dans ton projet activeX, tu ajoutes une feuille avec sa propriété visible = false et tu y déposes un controle Winsock. Finalement, tu ajoutes le code adequat pour répondre aux événements.
Heu, une question cependant, pourqoui veux tu absolument que le serveur soit une dll activex ? Pourquoi pas un exe simple?
24/12/2010, 09h56
remya

2 pièce(s) jointe(s)
Merci pour ta réponse,

1/pourquoi pas un exe au lieu du DLL: parce que je n'ai pas le choix, Metamorph permet d'exécuter du code VB compilé en DLL (en DLL uniquement). Je veux controler Metamorph afin de pouvoir utiliser ses fonctions dans un processus automatisé d'acquisition et de traitement d'image.

2/Ca n'a pas resolu mon probleme: j'ai crée un fichier Form1.frm, et j'y ais écrit:
Code:

1 2 3 4 5 6 7 Option Explicit Dim ws As Winsock Public Function Test() ws.LocalPort = 100 End Function
En appelant ma fonction Form1.Test, je retombe sur l'erreur

Citation:

Object variable or With block variable not set

et en écrivant :
Code:

1 2 3 4 5 6 7 Option Explicit Dim ws As New Winsock Public Function Test() ws.LocalPort = 100 End Function
ou
Code:

1 2 3 4 5 6 7 8 Option Explicit Dim ws As Winsock Public Function Test() Set ws = New Winsock ws.LocalPort = 100 End Function
je retombe sur l'erreur

Citation:

Invalide use of New keyword

c’est quand meme bizarre et assez embetant que je ne puisse pas initialiser ces controles directements, j'ai le meme probleme avec les controles MSComm que je souhaite utiliser pour commander un controleur...

Je vous joins les 2 pages du manuel d'utilisation de Metamorph qui expliquent comment creer le projet ActiveX DLL, j'ai suivi a la lettre ce "tutoriel" pour créer le projet, ensuite j'y ais ajouté des modules qui contiennent mes programmes de traitement d'image. Il me reste a ajouter le module "Network LAN" qui utilisera les controles Winsock, et le module "RS232Control" qui utilisera des controles MSComm...

Merci de m'aider si vous voyez une solution.:aie:

Si on utilise la techique du controle winsock, pas d'initialisation par programme. On dépose un controle winsock sur la form , c'est tout.
Comme tu veux un serveur. il faut commencer par mettre le controle en ecoute. Ceci peut être fait au chargement de la feuille.
Ce qui donnerait un code comme le suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Option Explicit Private Sub Form_Load() Winsock1.LocalPort = 100 Winsock1.Listen End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock1.Close Winsock1.Accept requestID End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Buffer As String Winsock1.GetData Buffer If InStr(LCase(Buffer), "quit") Then Winsock1.SendData "Bye" Winsock1.Close Winsock1.Listen Else Winsock1.SendData "Ok" End End Sub
(je l'ai écrit à la volée et pas été testé.)

26/12/2010, 13h49
remya

Merci pour tes conseils, je vais essayer lundi matin 8O

juste pour préciser:

1/déposer un controle winsock dans le .form revient à:

Citation:

aller dans: Projet->Composants puis cocher Microsoft Winsock control 6

Je ne me trompe pas?:roll:

2/Dans ton exemple de code, je ne vois pas où tu définis que la variable

Citation:

winsock1

contient un objet Winsock. :(
Il faut bien écrire un

Citation:

Dim winsock1 As Winsock

ou

Citation:

Private winsock1 As Winsock

quelque part non?

Si oui j'ai bien peur d'avoir déjà essayé (cf précédent message) :cry:

Quoi qu'il en soit, je retente le coup demain matin, comme je suis a Tokyo il y a 8h de décalage mais je vous tiendrai informé. Merci pour vos messages.

Rémy.
26/12/2010, 13h59
SfJ5Rpw8

non,

Il s'agit de déposer le contrôle sur ta form ...

http://grafikm.developpez.com/vbreseau/Lecon1/
27/12/2010, 09h47
remya

Ça marche à présent :ccool: merci à tous pour votre aide et pour votre temps :)
Rémy A.
27/12/2010, 22h22
ThierryAIM

et elles sont comment les Tokyoïtes ?? désolé ..... :oops::oops: