Un exemple de serveur

Télécharger le projet
Commenter

Description

voici un exemple simple montrant comment realiser un serveur en visual basic

vous pourrez decouvrir de nombreux autres composants relatifs aux connections reseaux tels que Inet, WebBrowser, etc ...

Source / Exemple : 


Private Sub Client_Close() 'le client clôt volontairement la connection
    Client.Close
    Shape1.BackColor = vbRed
End Sub

Private Sub Client_DataArrival(ByVal bytesTotal As Long)
    Client.GetData stmp, , bytesTotal
    Client.SendData stmp 'on renvoi au client se qu'il nous a envoyer
End Sub

' une erreur d'envoi ou de reception a eu lieu
Private Sub Client_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Client.Close
    Shape1.BackColor = vbRed
End Sub

Private Sub Form_Load()
    Server.LocalPort = 54321
    Server.Listen 'a ce stade le serveur est lancé, et en attente de client
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Server.Close
    Client.Close
End Sub

Private Sub Server_ConnectionRequest(ByVal requestID As Long)
    If Client.State = sckConnected Then 'un client est deja connecté
        Temp.Accept requestID
        Temp.Close 'on refuse la nouvelle connection
    Else
        Client.Accept requestID
        Shape1.BackColor = vbGreen
    End If
End Sub

Conclusion :


ce type de serveur est appelé serveur ECHO, car il renvoi au client tout ce que celui-ci lui envoi.
Vous pouvez tester ce serveur avec telnet en tapant : "telnet localhost 54321"
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (gg00xiv)