SOCKET ASYNCHRONE (CLIENT + SERVEUR)

Commentaire de elguevel le 06/09/2008 22:09:24

Déjà content que çà fonctionne sur d'autres configurations que la mienne.

Sinon on est toujours partagé entre le fait de faire une source qui ne s'adresse qu'aux débutants et donc peu évolutive ( écrit en "brute" et hyper minimaliste), et le fait de faire un truc qui ressemble plus à un projet (modulable, facilement adaptable et propre).

Pour ma part je préfère faire des trucs propres, mais en jouant le jeu à fond ( bien renommer chaque composant, faire des classes distinctes, variables explicites, commentaires, ...), de plus cette approche donne l'exemple sur là façon de travailler et devient normalement claire. Si on ne fait que des trucs crades (et dieu sait qu'il y en a) tout le monde va faire pareil.

Le fait de faire ici une classe pour gérer la socket à part est au contraire plus simple pour ma part que tout mettre dans une Form. Si j'avais tout mis dans la form principale (comme fond certains) on ne sait plus quoi appel quoi (surtout le système des événements) et on ne sait plus ce qui appartient à la form et ce qui est lié à la socket.

Après les appelles aux ressources et l'utilisation des classes devrait normalement être étudié avant l'utilisation des sockets. Normalement un débutant devrait maitriser certaines approches avant d'autres... sinon effectivement on y arrive pas. J'ai d'ailleur classé cette source comme "Initié", et ici le mot débutant est assez relatif.. ce sont surtout les débutants en Socket.

En tout cas merci pour ta réaction.

Commentaire de Afyn le 11/09/2008 17:56:07

Bonjour

Y at il une possibilité d'insérer des émoticones dans le texte ?

Afyn - Navedac

Commentaire de Neolander le 26/03/2009 03:25:45

Bonjour, est ce qu'en partant du module ElgSocketClient.vb, on peut lancer plusieurs sockets au même temps?

Pour l'instant j'ai réussi a utiliser ce fichier précis pour lancer une sorte de client pour un serveur personnel, mais disons que suis a un défi, je doit pouvoir lancer 9 connections a partir d'une seule windows.form, est ce que c'est possible avec ce bout de code.

Si oui, pouvez vous m'aiguiller sur la façon de proceder?

Commentaire de Neolander le 31/03/2009 23:48:19

Alors, je le redit

A la base j'aurais donc Plusieurs serveurs, il faudrait que je puisse me connecter sur chacun d'entre eux, qui a un serv qui utilise le même code source que tu a la du coté serveur, et chacun devra répondre a des commandes qui seront envoyées a des intervalles minutées.

Pour l'instant disons que c'est juste un défi entre collègues, un proof of concept, pour peut être plus tard surveiller nos serveurs et plus.
Maintenant il est propable que tu me dise y'a de meilleurs solutions, mais je ne suis qu'un tres debutant qui debute a peine donc bon.

Aussi tu me dis qu'on peut piocher dans la liste pour gerer, sa veut dire qu'ils ne peuvent pas etre actifs et repondre a des données qui arrivent en temps reel tous au meme temps?

Commentaire de Neolander le 01/04/2009 22:23:24

Merci beaucoup de ton aide, j'ai essayé, et sa marche vachement bien (hyper fier de moi ^^')

Je vais pouvoir avancer a grands pas.

Il me reste encore un truc, une petite histoire de synchronisation entre les serveurs, dés que le serv 1 envoie un certain packet, on dis a serv 2 voila ce packet applique le, pareil pour le 3 , le 4 et ainsi de suite, j'ai une petite idée la dessus, mais l'impression que je m'embrouille trop dessus, tu pourrais me filer juste ce dernier petit coup de pouce? ^^'?

Commentaire de violent_ken le 10/05/2009 13:56:40

Très bonne source !

Pour compléter un peu, voilà une classe qui permet de sérializer/compresser, c'est à dire transformer un objet serializable en tableau de bytes (compressé par GZip).

En gros, plutôt que d'envoyer juste une string comme message, on envoie l'instance d'une classe. Il faut juste ajouter <Serializable()> devant le 'Public Class XXXX' pour que la classe soit serializable.




' =======================================================
' Yet Another (remote) Process Monitor (YAPM)
' Copyright (c) 2008-2009 Alain Descotes (violent_ken)
' https://sourceforge.net/projects/yaprocmon/
' =======================================================


' YAPM is free software; you can redistribute it and/or modify
' it under the terms of the GNU General Public License as published by
' the Free Software Foundation; either version 3 of the License, or
' (at your option) any later version.
'
' YAPM is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with YAPM; if not, see http://www.gnu.org/licenses/.


Option Strict On

Imports System.IO
Imports System.IO.Compression
Imports System.Runtime.Serialization.Formatters.Binary

Public Class cSerialization

    ' Return byte array from data class
    Public Shared Function GetSerializedObject(ByVal obj As cSocketData) As Byte()
        Dim formatter As System.Runtime.Serialization.IFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
        Using ms As New MemoryStream()
            formatter.Serialize(ms, obj)
            Return CompressByteArray(ms.ToArray())
        End Using
    End Function

    ' Return data class from byte array
    Public Shared Function DeserializeObject(ByVal dataBytes As Byte()) As cSocketData
        Try
            Dim formatter As System.Runtime.Serialization.IFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
            Using ms As New MemoryStream(DeCompressByteArray(dataBytes))
                Return DirectCast(formatter.Deserialize(ms), cSocketData)
            End Using
        Catch ex As Exception
            Trace.WriteLine("Error during serialization : " & ex.Message)
            Return Nothing
        End Try
    End Function

    Private Shared Function CompressByteArray(ByRef b() As Byte) As Byte()
        'Return b
        Dim ms As New MemoryStream()
        Dim s As Stream = New GZipStream(ms, CompressionMode.Compress)
        s.Write(b, 0, b.Length)
        s.Close()
        Return DirectCast(ms.ToArray(), Byte())
    End Function

    Private Shared Function DeCompressByteArray(ByRef b() As Byte) As Byte()
        'Return b
        Dim writeData(4096) As Byte ' = new byte[4096]
        Dim memStream As MemoryStream = New MemoryStream()
        Dim s2 As Stream = New GZipStream(New MemoryStream(b), CompressionMode.Decompress)
        Dim size As Integer = 1

        While (size > 0)
            size = s2.Read(writeData, 0, writeData.Length)
            memStream.Write(writeData, 0, size)
            memStream.Flush()
        End While
        Return memStream.ToArray()

    End Function

End Class


@+

Commentaire de Xiu le 21/07/2009 04:27:18

Salut,
Super simpa ta source, maintenant comment envoyé un socket en réponse à un autre socket

Exemple " Salut " -> " Sa va ? "

Une réponse précise à un socket précis, dans un ordre.
Merci

Commentaire de benamarj le 21/08/2009 17:22:47

Bonjour,

Premièrement bravo pour la source.

Un vraiment tout petit bémol pour la gestion de la réponse, je m'explique.

Lorsqu'on envoi un message de 30 caractère et que ensuite on en envoi un de 10 il sera compléter par les 20 derniers du premier message.

Je vais réparer ce petit problème et adapter ton code a mes besoins encore merci et joli boulot.

Commentaire de elguevel le 03/11/2009 20:37:38

Désolé pour le disclaimer, il faut l'ignorer. Tu peux tout à fait distribuer, modifier ou publier cette source à volonté. J'utilise en fait des templates pour mes projets, et du coup ce texte n'a rien à faire là.

Commentaire de elguevel le 05/11/2009 20:45:39

Je ne comprend pas trop ta question. Il suffit de lancer le serveur et 1 client et çà communique, non ?