pbm d envoi de donnée en socketRésolu

Question

voila je n arrive pas a envoyer des donn&#233;es ligne par ligne du serveur vers le client. celle ci s ajoute les une au autre et lorsque je les recois cot&#233; client elle sont sur une seule ligne.

voici le code server:
Private Sub cmdtmp_Click()
' Nom de l ordi
    Dim dwLen As Long
    Dim strString As String
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwLen, "X")
    GetComputerName strString, dwLen
    strString = Left(strString, dwLen)
'    formServer.winsock.SendData ("?PCinfo Nom PC: " & strString & vbNewLine)
' Nom de l Utilisateur
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwLen, "X")
    GetUserName strString, dwLen
    strString = Left(strString, dwLen)
'    formServer.winsock.SendData ("?PCinfo Nom Utilisateur: " & strString & vbNewLine)
' Version de windows
    Dim OSInfo As OSVERSIONINFO, PId As String
    OSInfo.dwOSVersionInfoSize = Len(OSInfo)
    'Get the Windows version
    Ret& = GetVersionEx(OSInfo)
    'Chack for errors
    If Ret& = 0 Then End
    'Print the information to the form
    Select Case OSInfo.dwPlatformId
        Case 0
            PId = "Windows 32s "
        Case 1
            PId = "Windows 95/98"
        Case 2
            PId = "Windows NT "
    End Select
'    formServer.winsock.SendData ("?PCinfo OS: " & PId & vbNewLine)
'    formServer.winsock.SendData ("?PCinfo Win version: " & Str$(OSInfo.dwMajorVersion) + "." + LTrim(Str(OSInfo.dwMinorVersion)) & vbNewLine)
'    formServer.winsock.SendData ("?PCinfo Build: " & Str(OSInfo.dwBuildNumber) & vbNewLine)
End Sub

et le code cote client:
Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
    Dim buffer As String
    buffer = Space(512)
    winsock.GetData buffer, vbNewLine
    txtTmp.Text = txtTmp.Text & buffer & vbNewLine
    Dim varTrigger() As String ' tableau coupant chaq mots
    Dim varTmp As String
    varTrigger = Split(buffer, Chr(32))
    If (StrComp(varTrigger(0), "?Password") = 0) Then
        Dim varPassword As String
        varPassword = InputBox("Entrez le mot de passe", "Identification au serveur")
        winsock.SendData "$Password " & varPassword
    ElseIf (StrComp(varTrigger(0), "?PassOK") = 0) Then
        fctShowMenu
    ElseIf (StrComp(varTrigger(0), "?PCinfo") = 0) Then
        varTmp = Mid(buffer, InStr(1, buffer, " "))
        formPCinfo.txtInfoPC.Text = formPCinfo.txtInfoPC.Text & varTmp
    End If
End Sub

en plus je ne recoi que les deux premier winsock.sendata sur une seule ligne.

Merci de votre aide
www.jhdcript.com ( Tout N Est Qu Une illuSion )

PCPT · Accepted Answer

re,
"a tout hasard pkoi cot&#233; client on utilise pas"
bah parce que cot&#233; client, ta form ne s'appelle pas formServer
rien ne t'emp&#234;che d'utiliser cette m&#234;me fonction (c'est pour &#231;&#224; que je l'ai d&#233;clar&#233; en Public, &#224; toi d'adapter le nom du Winsock concern&#233;)

pour ton dernier probl&#232;me, essai (sans certitude) de remplacer, dans cmd_tmp, partie nom d'utilisateur
strString =   Left (strString, dwLen)
par
strString  = Left(strString, dwLen) & chr(32)

et sans rapport, mais il me semble que tu as fait aussi une erreur en case 1 du PId. (manque aussi un espace)

PCPT

PCPT · Answer

salut bah ouai, normal, tu ne laisses pas de temps entre tes envoies Public Function SendDataSock(WSK As Winsock, sChaine As String) As Boolean ' 'à utiliser de la manière suivante : ' call SendDataSock(formServer.winsock, "MonMessageSansLeSeparateurFinal") ' ' 'oubien : ' VariableBoolean = SendDataSock(formServer.winsock, "MonMessageSansLeSeparateurFinal") ' 'pour ainsi tester si besoin si le Socket est bien toujours connecté ' ' If WSK.State <> 7 Then SendDataSock = False Else WSK.SendData sChaine & vbNewLine DoEvents '<- c'est lui qui donne la main au système, et permet la séparation ' de 2 envoies consécutifs SendDataSock = True End If End Function ' -------------------- ' voici le code server: ' -------------------- ' ' Private Sub cmdtmp_Click() ' Nom de l ordi Dim dwLen As Long Dim strString As String dwLen = MAX_COMPUTERNAME_LENGTH + 1 strString = String (dwLen, "X") GetComputerName strString, dwLen strString = Left(strString, dwLen) ' ' 'formServer.winsock.SendData ("?PCinfo Nom PC: " & strString & vbNewLine) Call SendDataSock(formServer.Winsock, "?PCinfo Nom PC: " & strString) ' ' Nom de l Utilisateur dwLen = MAX_COMPUTERNAME_LENGTH + 1 strString = String (dwLen, "X") GetUserName strString, dwLen strString = Left(strString, dwLen) ' ' 'formServer.winsock.SendData ("?PCinfo Nom Utilisateur: " & strString & vbNewLine) Call SendDataSock(formServer.Winsock, "?PCinfo Nom Utilisateur: " & strString) ' ' Version de windows Dim OSInfo As OSVERSIONINFO, PId As String OSInfo.dwOSVersionInfoSize = Len (OSInfo) 'Get the Windows version Ret& = GetVersionEx(OSInfo) 'Chack for errors If Ret& = 0 Then End 'Print the information to the form Select Case OSInfo.dwPlatformId Case 0 PId = "Windows 32s " Case 1 PId = "Windows 95/98" Case 2 PId = "Windows NT " End Select ' ' 'formServer.winsock.SendData ("?PCinfo OS: " & PId & vbNewLine) 'formServer.winsock.SendData ("?PCinfo Win version: " & Str$(OSInfo.dwMajorVersion) + "." + LTrim(Str(OSInfo.dwMinorVersion)) & vbNewLine) 'formServer.winsock.SendData ("?PCinfo Build: " & Str(OSInfo.dwBuildNumber) & vbNewLine) Call SendDataSock(formServer.Winsock, "?PCinfo OS: " & PId) Call SendDataSock(formServer.Winsock, "?PCinfo Win version: " & Str$(OSInfo.dwMajorVersion) + "." + LTrim (Str(OSInfo.dwMinorVersion))) Call SendDataSock(formServer.Winsock, "?PCinfo Build: " & Str(OSInfo.dwBuildNumber)) ' End Sub ' ---------------------- ' et le code cote client: ' ---------------------- ' ' Private Sub winsock_DataArrival(ByVal bytesTotal As Long) Dim buffer As String buffer = Space(512) Winsock.GetData buffer, vbNewLine txtTmp.Text = txtTmp.Text & buffer & vbNewLine Dim varTrigger() As String ' tableau coupant chaq mots Dim varTmp As String varTrigger = Split (buffer, Chr(32)) If (StrComp(varTrigger(0), "?Password") = 0) Then Dim varPassword As String varPassword = InputBox("Entrez le mot de passe", "Identification au serveur") Winsock.SendData "$Password " & varPassword ElseIf ( StrComp (varTrigger(0), "?PassOK") = 0) Then fctShowMenu ElseIf (StrComp(varTrigger(0), "?PCinfo") = 0) Then varTmp = Mid (buffer, InStr(1, buffer, " ")) formPCinfo.txtInfoPC.Text = formPCinfo.txtInfoPC.Text & varTmp End If End Sub Coloration syntaxique automatique [AFCK] PCPT

cs_jhd · Answer

je n ai qu une chose a dire merci mec :)

www.jhdcript.com ( Tout N Est Qu Une illuSion )

cs_jhd · Answer

a tout hasard pkoi cot&#233; client on utilise pas
   Call SendDataSock(formServer.Winsock, "$Password " & varPassword )

a la place de 
   Winsock.SendData "$Password " & varPassword 

j ai essayer et ca ne m&#249;arche pas
www.jhdcript.com ( Tout N Est Qu Une illuSion )

cs_jhd · Answer

a oui g encore une petite erreur
ca m affiche cela

 Nom PC: EXIA-JCESTEVEZ1
 Nom Utilisateur: jcestevez OS: Windows NT 
 Win version:  5.1
 Build:  2600

au lieu de 

 Nom PC: EXIA-JCESTEVEZ1
 Nom Utilisateur: jcestevez 
OS: Windows NT 
 Win version:  5.1
 Build:  2600

et jvois vrement pas d ou ca vien

www.jhdcript.com ( Tout N Est Qu Une illuSion )

cs_jhd · Answer

merci mec :)

www.jhdcript.com ( Tout N Est Qu Une illuSion )

Pbm d envoi de donnée en socket

6 réponses

Discussions similaires