[ VB.net ] besoin d'aide pour créer une dll

besoin d'aide pour créer une dll [ VB.net ] - VB/VBA/VBS - Programmation

Marsh Posté le 06-04-2005 à 15:14:54    

Bonjour,
 
Depuis mon dernier topic j'ai (un peu) avancé.
J'ai réussi à créer une connexion entre mon serveur et mon client en mode synchrone.
 
Problème, mon serveur/client sont bloqués pendant la réception/envoi de messages.
 
J'ai donc regardé du côté asynchrone. Mais je suis un peu largué sur les histoires de CallBack.
Après de nombreuses recherches je suis tombé sur plusieurs sites sympathiques dont celle-ci : http://vincentlaine.developpez.com [...] one/vbnet/
 
Plutôt que de repartir de 0, (j'ai essayé mais sans succès :/) je voudrai utiliser le code proposé puis le modifier afin d'en faire une dll.
 
 
Le hic c'est que je n'arrive pas à récupérer les messages du genre "client connecté" depuis la dll. Je ne sais pas comment modifier le code pour la dll ni comment modifier le code pour recevoir les msg dans mon appli finale.
 
Voici un extrait du code original avec les parties "litigieuses".
 

Code :
  1. Imports System
  2. Imports System.Net
  3. Imports System.Net.Sockets
  4. Imports System.Text
  5. Imports System.Windows.Forms
  6. Namespace Serverside
  8.     Public Class ServerClass
  9.         Private SocketServer As Socket
  10.         Private SocketClient As Socket
  11.         Private LocalsocketClientIsShutingDown As Boolean = False
  12.         Private readbuf As Byte()
  13.         Private sendbuf As Byte()
  14.         Private listBox As ListBox
  16.         Private Delegate Sub DelegateDisplay(ByVal message As String)
  17.         Private dlgDisplay As DelegateDisplay = New DelegateDisplay(AddressOf DisplayMessage)
  19.         Private Sub ReceiveMessageCallback(ByVal asyncResult As IAsyncResult)
  20.             Dim displaydata As String()
  21.             Try
  23.                 Dim socket As Socket = CType(asyncResult.AsyncState, Socket)
  24.                 Dim read As Integer = socket.EndReceive(asyncResult)
  26.                 If read > 0 Then
  27.                     displaydata = New String() {"Client dit : " + Encoding.ASCII.GetString(Me.readbuf)}
  28.                     Me.listBox.Invoke(dlgDisplay, displaydata)
  29.                     Buffer.SetByte(Me.readbuf, 0, 0)
  30.                     Me.SocketClient.BeginReceive(Me.readbuf, 0, Me.readbuf.Length, SocketFlags.None, AddressOf ReceiveMessageCallback, Me.SocketClient)
  31.                 End If
  33.                 If read = 0 AndAlso Not Me.LocalsocketClientIsShutingDown Then
  34.                     socket.Close()
  35.                     displaydata = New String() {"Socket distante fermée."}
  36.                     Me.listBox.Invoke(dlgDisplay, displaydata)
  37.                     Me.SocketServer.BeginAccept(AddressOf ConnectionAcceptCallback, Me.SocketServer)
  38.                 End If
  40.             Catch ex As SocketException
  41.                 displaydata = New String() {ex.Message}
  42.                 Me.listBox.Invoke(dlgDisplay, displaydata)
  43.             End Try
  45.         End Sub
  49.         Private Sub SendCallback(ByVal asyncResult As IAsyncResult)
  50.             Dim listdata As String()
  52.             Try
  54.                 Dim socket As Socket = CType(asyncResult.AsyncState, Socket)
  55.                 Dim send As Integer = socket.EndSend(asyncResult)
  56.                 listdata = New String() {"Message envoyé (" + send.ToString() + " octets)"}
  57.                 Me.listBox.Invoke(dlgDisplay, listdata)
  59.             Catch ex As SocketException
  61.                 listdata = New String() {ex.Message}
  62.                 Me.listBox.Invoke(dlgDisplay, listdata)
  63.             End Try
  65.         End Sub
  68.         Private Sub DisplayMessage(ByVal message As String)
  69.             Me.listBox.Items.Add(message)
  70.             Me.listBox.SelectedIndex = Me.listBox.Items.Count - 1
  71.         End Sub
  73.     End Class
  74. End Namespace


 
EDIT : Je ne comprends pas l'utilité de la listbox :/
 
Je ne sais pas comment rediriger "listdata" "displaydata" ou que faire du sub "displaymessage".
 
Merci de partager vos connaissances :)


Message édité par jeoff le 06-04-2005 à 15:40:32
Reply

Marsh Posté le 06-04-2005 à 15:14:54   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed