Probleme Sockets, Receive

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:

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.

Bon, bah j'aurais essayé ^^

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

Code:

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.

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.

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.

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

Salut,

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