Discussion :

[Tusbar]

Bonjour,

Je developpe une application client, le serveur est en php... Enfin bref, je fais mes tests en local en passant par le port 9184.

Voilà ma fonction (inspirée grandement d'une fonction sur msdn... donc ça devrait fonctionner quoi...) :

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
 Private Shared Function SocketSendReceive(ByVal HName As String, ByVal HPort As Integer) As String
 
        Dim Header As String = "GET / HTTP/1.1" & vbCrLf & "Host: " & HName & vbCrLf & "Connection: Close" & vbCrLf & vbCrLf
        Dim BytesSent As [Byte]() = Encoding.ASCII.GetBytes(Header)
        Dim BytesReceived(255) As [Byte]
 
        Try
            Dim S As Socket = ConnectSocket(HName, HPort)
 
            If S Is Nothing Then
                MsgBox("Connection failed")
            End If
 
            S.Send(BytesSent, BytesSent.Length, 0)
 
 
            Dim Bytes As Integer
 
            Dim Page As [String] = "Default HTML page on " & HName & " :" & vbCrLf
 
            Do
                Bytes = S.Receive(BytesReceived, BytesReceived.Length, 0)
                Page &= Encoding.ASCII.GetString(BytesReceived, 0, Bytes)
            Loop While Bytes > 0
 
            Return Page
        Catch ex As Exception
            MsgBox(ex.Message)
            Return ""
        End Try
    End Function

Avec ça je suis censé envoyer un message au serveur, puis attendre une réponse de celui ci, or... je n'ai pas de réponse, il envoie bien le message mais apres le programme se met à tourner en boucle, et je suis obligé de le terminer, une fois que je le termine, le serveur affiche le Header que j'ai envoyé.

Ca fait quelques jours que je suis dessus, je ne comprend pas d'ou ça peut venir, j'a refait plusieurs fonctions... ça ne change rien, j'ai toujours le meme probleme.

Alors si quelqu'un pouvait m'éclairer, ce serait avec plaisir.

Merci.

[Tusbar]

Bon, bah j'aurais essayé ^^

[Danyel]

En regardant sur msdn, le code est franchement different.
Repart du debut peut etre.

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
' Displays sending with a connected socket
' using the overload that takes a buffer.
Public Shared Function SendReceiveTest1(ByVal server As Socket) As Integer 
    Dim msg As Byte() = Encoding.UTF8.GetBytes("This is a test")
    Dim bytes(255) As Byte
    Try
        ' Blocks until send returns.
        Dim i As Integer = server.Send(msg)
        Console.WriteLine("Sent {0} bytes.", i)
 
        ' Get reply from the server.
        i = server.Receive(bytes)
        Console.WriteLine(Encoding.UTF8.GetString(bytes))
    Catch e As SocketException
        Console.WriteLine("{0} Error code: {1}.", e.Message, e.ErrorCode)
        Return e.ErrorCode
    End Try
    Return 0
 
End Function 'SendReceiveTest1

Et je te conseille le mettre default pour l'encodage.
Et aussi de verifier l'etat du serveur avant.
Et aussi d'aller regarder les logs directement sur le serveur, tu auras surement une piste a suivre.

[Tusbar]

Bah j'utilise Socket Workbench qui simule très bien un serveur, et il dispose d'une console c'est fort appréciable

Je vais essayer de repartir avec ce code oui... merci, je donne des nouvelles.

[Tusbar]

Bon... même probleme... quoi que je fasse, j'ai l'application qui tourne en boucle quand j'utilise Receive... Je ne comprend pas, yen a pour qui cela fonctionne ?

Rapel du probleme : Je cherche à recevoir l'information renvoyée par le serveur lors de la réception d'un message.

[Danyel]

Mouaip les emulateurs faut faire attention.
As tu essaye directement par reseau ou net ?

[Tusbar]

Salut,

Oui j'ai essayé en local, j'ai un petit serveur php tout simple... il me fait la même chose.