Discussion :

[hamidoo07]

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.Text
Imports System.IO
 
Public Class Form1
    Dim temp2(1024) As Byte
    Dim i As Integer
    Dim masock As Socket
    Dim temp(1024) As Byte
    Dim msg, msg2 As String
 
    'premiere chose je me conecte en envoyant un pseudonyma
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        masock.BeginConnect(New IPEndPoint(IPAddress.Parse(adresseip.Text), 12000), AddressOf connexionConnectCallback, masock)
        temp = Encoding.ASCII.GetBytes(nickname.Text)
        'envoi des info de connexion ip+pseudo
        masock.BeginSend(temp, 0, temp.Length, SocketFlags.None, AddressOf SendCallback, masock)
        'lancer le thread pour recevoir les messages envoyer par le serveur
        masock.BeginReceive(temp2, 0, temp2.Length, SocketFlags.None, AddressOf ReceiveCallback, masock)
        msg2 = Encoding.ASCII.GetChars(temp)
        'affichage dans une listview
        list.Items.Add(msg2)
 
    End Sub
 
    Private Sub connexionConnectCallback(ByVal asyncResult As IAsyncResult)
        masock.EndConnect(asyncResult)
    End Sub
    Private Sub ReceiveCallback(ByVal asyncResult As IAsyncResult)
        'j'ai mai autre beginreceive pour realiser une boucle
        masock.EndReceive(asyncResult)
        masock.BeginReceive(temp2, 0, temp2.Length, SocketFlags.None, AddressOf ReceiveCallback, masock)
    End Sub
    Private Sub SendCallback(ByVal asyncResult As IAsyncResult)
        Dim send As Integer = masock.EndSend(asyncResult)
    End Sub
 
    Private Sub addmsg(ByVal msg2 As String)
 
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        temp = Encoding.ASCII.GetBytes(message.Text)
        masock.BeginSend(temp, 0, temp.Length, SocketFlags.None, AddressOf SendCallback, masock)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        masock.Close()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        masock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    End Sub
End Class

[Pol63]

deja edit ton post et utilises la balises code qui permet de respecter l'indendation et de coloriser un peu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Imports System.Text
Imports System.IO
Public Class Form1
    Dim receptionhread As New Thread(AddressOf reception)
    Dim masock As Socket
    Dim temp(1024) As Byte

quand meme plus lisible


de plus vu que tu utilises les méthodes asynchrones (beginsend, beginreceive ...) des sockets, un thread n'est pas nécessaire beginquelque chose instancie dejà un thread ...

[azstar]

deja edit ton post et utilises la balises code qui permet de respecter l'indendation et de coloriser un peu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Imports System.Text
Imports System.IO
Public Class Form1
    Dim receptionhread As New Thread(AddressOf reception)
    Dim masock As Socket
    Dim temp(1024) As Byte

quand meme plus lisible


de plus vu que tu utilises les méthodes asynchrones (beginsend, beginreceive ...) des sockets, un thread n'est pas nécessaire beginquelque chose instancie dejà un thread ...

j'essie de verifie tn code malgee son illisibilité


dans ton code tu travail avec un mode asynchrone
c'est a dire que ta pas besoin d'un thread, la gestion des threads est automatiquement faite.
essai plustot recontruire ton code

sockets asynchrone
conseil::
essai d'appeller beginrecieve toujour dans endRecieve pour boucle sur la reception

[hamidoo07]

Merci POur les reponses

quand j'ai essayer avec seulement l'option d'envoi sa marche
mais quand je veux reunir les deux des que je me connect , le programme commence a afficher mon premier message jusqu'a ce qu'il plante
comme s'il fait receive sur ce que j'ai envoyé

sinon je sais pas comment metre les deux fonction receive et send pour que receive soit executer en boucle et que send s'execute avec le click bouton

[hamidoo07]

svp comment faire pour que beginreceive se fait en boucle

[Pol63]

dans le principe, je crois qu'il faut faire beginreceive
en cas de receive tu arrives sur le callbak dans lequel tu fais endreceive et tu lis les données puis il faut refaire beginreceive à cet endroit, donc ca boucle

[hamidoo07]

oui c'est ce q ue j'ai fait mais mon client envoie des messages mais il ne recoit rien !

[azstar]

essai d'appel toutes tes focntions (fcts reception, fct de send,... )apres etablisement de la connexion c'est à dire dans le connexionConnectCallback