Cliente / Servidor
Necesito algún código que me explique como funciona un sistema cliente servidor, Si fueras tan amable de explicarme no sabes cuanto te lo agradecería. Gracias
1 respuesta
Respuesta de julioarango
1
No especificas si es cliente/servidor de bases de datos o mediante sockets.
Envío ejemplo de c/s mediante winsock
Para crear un servidor rudimentario, realice los siguientes pasos:
Para crear un servidor TCP
Cree un nuevo proyecto EXE estándar.
Cambie el nombre del formulario predeterminado a frmServer.
Cambie el titulo del formulario a "Servidor TCP".
Cree un control Winsock en el formulario y cambie su nombre a tcpServer.
Agregue dos controles TextBox al formulario. Llame al primero txtSendData y al segundo txtOutput.
Agregue el código siguiente al formulario.
Private Sub Form_Load()
' Establece la propiedad LocalPort en un entero.
' Después invoca el método Listen.
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show ' Muestra el formulario del cliente.
End Sub
Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
' Comprueba si el estado del control es cerrado.
' De lo contrario, cierra la conexión antes de
' aceptar la nueva conexión.
If tcpServer.State <> sckClosed Then _
tcpServer.Close
' Acepta la petición con el parámetro
' requestID.
tcpServer.Accept requestID
End Sub
Private Sub txtSendData_Change()
' El control TextBox llamado txtSendData
' contiene los datos que se van a enviar. Siempre
' que el usuario escribe en el cuadro de texto,
' se envía la cadena mediante el método SendData.
tcpServer.SendData txtSendData.Text
End Sub
Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
' Declara una variable para los datos entrantes.
' Invoca el método GetData y establece la propiedad
' Text de un control TextBox llamado txtOutput
' con los datos.
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
Los procedimientos anteriores permiten crear una aplicación de servidor sencilla. No obstante, para completar el ejemplo, deberá crear también una aplicación cliente.
Para crear un cliente de TCP
Agregue un nuevo formulario al proyecto y llámelo frmClient.
Cambie el titulo del formulario a "Cliente TCP".
Agregue un control Winsock al formulario y llámelo tcpClient.
Agregue dos controles TextBox a frmClient. Llame al primero txtSend y al segundo txtOutput.
Cree un control CommandButton en el formulario y llámelo cmdConnect.
Cambie el titulo del control CommandButton a Connect.
Agregue el código siguiente al formulario.
Importante Asegúrese de que cambia el valor de la propiedad RemoteHost al nombre descriptivo del equipo.
Private Sub Form_Load()
' El nombre del control Winsock es tcpClient.
' Nota: para especificar un host remoto, puede usar
' la dirección IP (como "121.111.1.1") o
' el nombre "descriptivo" del equipo, como se muestra aquí.
tcpClient.RemoteHost = "NombreEquipoRemoto"
tcpClient.RemotePort = 1001
End Sub
Private Sub cmdConnect_Click()
' Invoca el método Connect para iniciar
' una conexión.
tcpClient.Connect
End Sub
Private Sub txtSendData_Change()
tcpClient.SendData txtSend.Text
End Sub
Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub
El código anterior crea una aplicación cliente-servidor sencilla. Para probar las dos aplicaciones al mismo tiempo, ejecute el proyecto y haga clic en Conectar. A continuación, escriba texto en el control TextBox txtSendData de cualquiera de los formularios y el mismo texto aparecerá en el control TextBox txtOutput del otro formulario.
Envío ejemplo de c/s mediante winsock
Para crear un servidor rudimentario, realice los siguientes pasos:
Para crear un servidor TCP
Cree un nuevo proyecto EXE estándar.
Cambie el nombre del formulario predeterminado a frmServer.
Cambie el titulo del formulario a "Servidor TCP".
Cree un control Winsock en el formulario y cambie su nombre a tcpServer.
Agregue dos controles TextBox al formulario. Llame al primero txtSendData y al segundo txtOutput.
Agregue el código siguiente al formulario.
Private Sub Form_Load()
' Establece la propiedad LocalPort en un entero.
' Después invoca el método Listen.
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show ' Muestra el formulario del cliente.
End Sub
Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
' Comprueba si el estado del control es cerrado.
' De lo contrario, cierra la conexión antes de
' aceptar la nueva conexión.
If tcpServer.State <> sckClosed Then _
tcpServer.Close
' Acepta la petición con el parámetro
' requestID.
tcpServer.Accept requestID
End Sub
Private Sub txtSendData_Change()
' El control TextBox llamado txtSendData
' contiene los datos que se van a enviar. Siempre
' que el usuario escribe en el cuadro de texto,
' se envía la cadena mediante el método SendData.
tcpServer.SendData txtSendData.Text
End Sub
Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
' Declara una variable para los datos entrantes.
' Invoca el método GetData y establece la propiedad
' Text de un control TextBox llamado txtOutput
' con los datos.
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
Los procedimientos anteriores permiten crear una aplicación de servidor sencilla. No obstante, para completar el ejemplo, deberá crear también una aplicación cliente.
Para crear un cliente de TCP
Agregue un nuevo formulario al proyecto y llámelo frmClient.
Cambie el titulo del formulario a "Cliente TCP".
Agregue un control Winsock al formulario y llámelo tcpClient.
Agregue dos controles TextBox a frmClient. Llame al primero txtSend y al segundo txtOutput.
Cree un control CommandButton en el formulario y llámelo cmdConnect.
Cambie el titulo del control CommandButton a Connect.
Agregue el código siguiente al formulario.
Importante Asegúrese de que cambia el valor de la propiedad RemoteHost al nombre descriptivo del equipo.
Private Sub Form_Load()
' El nombre del control Winsock es tcpClient.
' Nota: para especificar un host remoto, puede usar
' la dirección IP (como "121.111.1.1") o
' el nombre "descriptivo" del equipo, como se muestra aquí.
tcpClient.RemoteHost = "NombreEquipoRemoto"
tcpClient.RemotePort = 1001
End Sub
Private Sub cmdConnect_Click()
' Invoca el método Connect para iniciar
' una conexión.
tcpClient.Connect
End Sub
Private Sub txtSendData_Change()
tcpClient.SendData txtSend.Text
End Sub
Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub
El código anterior crea una aplicación cliente-servidor sencilla. Para probar las dos aplicaciones al mismo tiempo, ejecute el proyecto y haga clic en Conectar. A continuación, escriba texto en el control TextBox txtSendData de cualquiera de los formularios y el mismo texto aparecerá en el control TextBox txtOutput del otro formulario.
