Bonjour,

Voilà je travaille actuellement sur le dévellopement d'une interface Graphique simple qui ouvre une socket client et se connecte au serveur par TCP/IP.

Dans un sous menu de config. je met le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub BtnConnexion_Click()
    ESECO.Socket.Connect txtIP.Text, txtPort.Text
    txtResult.Text = "Connexion avec " &ESECO.Socket.RemoteHostIP 'Affciher l'adresse IP du Serveur    
BtnConnexion.Enabled = False ' Bouton Connexion inactif
CmdDeconnexion.Enabled = True 'Bouton Déconnexion Actif
End Sub
 
Private Sub CmdDeconnexion_Click()
    ESECO.Socket.Close
    txtResult.Text = "Connexion terminée !"
    BtnConnexion.Enabled = True
    CmdDeconnexion.Enabled = False
End Sub
Et le code de ma fenêtre principal :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Private Sub Config_Click()
    frmConfig.Show
End Sub
 
Private Sub Form_Load()
    Dim tabPir1(4) As String
    Dim tabPir2(4) As String
    Dim tabPeri1(4) As String
    Dim tabPeri2(4) As String
    Dim i As Integer
 
    tabPeri1(0) = "0C10"
    tabPeri1(1) = "4C50"
    tabPeri1(2) = "8C90"
    tabPeri1(3) = "1C00"
    tabPeri2(0) = "0CF0"
    tabPeri2(1) = "4CB0"
    tabPeri2(2) = "8C70"
    tabPeri2(3) = "1CE0"
    tabPir1(0) = "1450"
    tabPir1(1) = "4400"
    tabPir1(2) = "84C0"
    tabPir1(3) = "1450"
    tabPir2(0) = "14D0"
    tabPir2(1) = "4480"
    tabPir2(2) = "8440"
    tabPir2(3) = "14D0"
 
End Sub
 
Private Sub Socket_Connect() 'On vient de se connecter (on le dit)
    Picture1(1).Picture = LoadPicture("C:\LED\green.JPG")
End Sub
 
Private Sub Socket_DataArrival(ByVal bytesTotal As Long) 'Les données arrivent
    Dim strdata As String
    Dim data As Long
    txtResult.Text = " data = " & Hex(data)
End Sub
Le problème est que je ne reçoit pas les paquets de données en entier et pas dans le bon ordre voulus !
Si je ne fait pas la conversions en Hex , je reçoit des caractères ilisibles, comment doit je faire pour recevoir sur ma socket client les données dans le bon ordres et en entier ?
Merci pour vos réponses !

______________________________________________________________
K.Bouhara
Stagiaire : ESECO SYSTEMS
Web3.0 and Web4.0 appliances for videosurveillance, security and risk protection