Discussion :

[walid kh]

Bonjour à tous,
voilà je suis entrain de réalisé une application de messagerie instantanné en réseau local, mon problème se résume comme suit :
j'ai une 1ére form qui contient les contact en ligne et une 2éme form de chat;
quand une hôte envoie un message à une autre il faut que la form de chat soit apparu avec le message envoyé, bon je sais qu'il faut un tcplistener et un tcpclient mais dans quel form il faut les mettre .
A oui je travail avec le P2P.

merci d'avance

[scarfunk]

Je viens de réaliser une application avec socket client/serveur.
Je suis débutant en VB.net mais je m'en suis pas trop mal sorti...et selon moi la form qui contient tout tes contact ( ta bases de données) sera ton serveur et par conséquent c'est dans celle-ci que tu doit mettre ton TcpListener...et ta fenêtre de chat sera ton application client avce le TcpClient...
Je me trompe peut-être mais tu devrais regarder sur internet, cela te renseignerait certainement mieux que moi

[walid kh]

Merci pour la réponse mais ce que je trouve sur le net c'est seulement du Dos alors que mon application est en form et j'ai essayé de me débrouillé pour qu'il fonctionne correctement mais hélas sans résultat
Y a t il quelqu'un qui pourrait m'aider ?

Merci.

[le5ejumeau]

As-tu regardé du côté de WCF ?

http://badger.developpez.com/tutorie...atez-avec-WCF/

[walid kh]

Merci pour ton aide mais moi je travaille avec vb 2008 alors l lien que tu m(as données ne va pa vraiment trops m'aider

[scarfunk]

quel est exactement ton problème?

[scarfunk]

Ce lien devrait t'être utile,tu devrais y trouver tout les renseignements dont tu a besoin.En espérant avoir pu t'aider

[methylene]

Petite précision, WCF reste du .NET, tu le retrouveras en C Sharp, en VB, en C++, etc...

Il s'agit en fait d'un objet, assez poussé au niveau graphique, qui te permet de dessiner ton interface en vectoriel, et non d'un language.

Conclusion, tu utilises aujourd'hui des windows form (un type d'objet de .NET), en language VB, tu peux également utiliser des WCF (un autre type d'objet de .NET) en language VB.

Lisez ma signature, ce n'est que véridique !!!!

[walid kh]

je l'avais déjà expliqué là haut mais bon ca fait rien
mon problème j'ai 2 form ,la 1ére contient la liste des contact en ligne et une 2éme form qui est une form de chat avec un boutant d'envoie de message et un RichTextBox1 pour écrire le message à envoyer et un deusième RichTextBox2 qui contient les messages reçu.
la form1 appru à l'utilisateur en premier lieu et la form chat n'est pas visible lorsque une autre hôte envoie un message la form de chat est apparu avec le message envoyé je voulais faire de la form de contact en ligne un serveur mais je n'y arrive toujours pa est qu'il fau que j'utilise un timer pour l'écoute d'une connexion et faire apparaitre la form de chat mais sans succés voilà un code que j'ai trouvé sur le net mais je n'ai vraiment pa trop compris là;
voilà le code que j'ai trouvé :
code server :

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
Const portNo As Integer = 500
Dim localAdd As System.Net.IPAddress = _
    IPAddress.Parse("127.0.0.1")
Dim listener As New TcpListener(localAdd, portNo)
listener.Start()
Console.WriteLine("Listening...")
 
Dim tcpClient As TcpClient = listener.AcceptTcpClient()
Dim NWStream As NetworkStream = tcpClient.GetStream
Dim bytesToRead(tcpClient.ReceiveBufferSize) As Byte
 
'---read incoming stream
Dim numBytesRead As Integer = NWStream.Read(bytesToRead, 0, _
    CInt(tcpClient.ReceiveBufferSize))
Console.WriteLine("Received :" & _
    Encoding.ASCII.GetString(bytesToRead, 0, numBytesRead))
 
'---write back the text
Console.WriteLine("Sending back : " & _
    Encoding.ASCII.GetString(bytesToRead, 0, numBytesRead))
NWStream.Write(bytesToRead, 0, numBytesRead)
 
tcpClient.Close()
listener.Stop()
Console.ReadLine()

code client :

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
Const portNo = 500
Const textToSend = "1234567890098765432111"
Dim tcpclient As New System.Net.Sockets.TcpClient
tcpclient.Connect("127.0.0.1", portNo)
 
Dim NWStream As NetworkStream = tcpclient.GetStream
Dim bytesToSend As Byte() = Encoding.ASCII.GetBytes(textToSend)
'---send the text
Console.WriteLine("Sending : " & textToSend)
NWStream.Write(bytesToSend, 0, bytesToSend.Length)
 
'---read back the text
Dim bytesToRead(tcpclient.ReceiveBufferSize) As Byte
Dim numBytesRead = NWStream.Read(bytesToRead, 0, _
    tcpclient.ReceiveBufferSize)
Console.WriteLine("Received : " & _
    Encoding.ASCII.GetString(bytesToRead, 0, _
                                numBytesRead))
Console.ReadLine()
tcpclient.Close()

[le5ejumeau]

Oui effectivement il y a eu confusion...

WCF est un modèle de programmation unifié pour créer rapidement des applications orientées service.

Le lien que je t'es donnée plus haut est illustré avec le langage C# mais la démarche est évidemment là même pour tout les langage .NET vb inclus

C'est je pense le modèle le plus adapté à ton besoin.

[walid kh]

Bon pa la peine de s'inquiéter je crois que j'ai trouvé la solution