Je veut faire une application avec un server et un client
le server sert juste a envoyer des messages etle client juste a les recevoir
pour l instant cela n accepte qu un seul client ! (seulement unseulclient
recoit le message )
comment dois je m y prendre ?
voila le source ( je suis debutant alors si lecode n est paspropredite le
moi ;o) ... ) :
file://*** server
Const PORT = 1001
'bouton
Private Sub Command1_Click()
tcpserver.SendData (txtSend.Text)
txtSend.Text = ""
End Sub
Private Sub Form_Load()
tcpserver.LocalPort = PORT
tcpserver.Listen
End Sub
'demande de connection
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
tcpserver.Close
tcpserver.Accept requestID 'accepte la connection
End Sub
Private Sub afficher(txt As String)
MsgBox (txt)
End Sub
file://*** client
Const PORTSERVER = 1001
Private Sub Form_Load()
'cacher le formulaire
Frmclient.Visible = False
'connection
tcpclient.Close ' fermeture des connection precedentes
tcpclient.RemoteHost = getIpServer ' ip du server
tcpclient.RemotePort = PORTSERVER ' port du server
DoEvents
tcpclient.Connect
End Sub
'arrivee de donnees
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
tcpclient.GetData Data
'affichage des donnees recues
afficher (Data)
End Sub
'affichage du message du support
Private Sub afficher(txt As String)
MsgBox txt, , "Support"
End Sub
'renvoit l adresse ip du server contenu dans "server.ip"
Private Function getIpServer() As String
Dim intFileNum
Dim ipServer As String
'lecture du fichier
intFileNum = FreeFile
Open App.Path & "/server.ip" For Input As #intFileNum
Line Input #intFileNum, ipServer
Close #intFileNum
getIpServer = ipServer
End Function
Private Sub tcpclient_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)
Form_Load
End Sub
