Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Está en la página 1de 27

Tutorial de cliente/servidor en Visual Basic 6.

0
1.
Qu es cliente/servidor?
2. Preparando el Visual Basic
3. Descripcin del componente Winsock
4. Mi primera aplicacin cliente
5. Mi primera aplicacin servidor
6. Aplicacin servidor multi-conexin
7. Conclusin
INTRODUCCION
Este tutorial pretende explicar en forma prctica la implementacin
y desarrollo de aplicacionescliente y servidor, ya sea mono-conexin o multi-conexiones,
usando el componente WinsockControl 6.0 sobre el entorno de desarrollo de VisualBasic v6.0.
Cualquier otra versin de este control debera funcionar tambin.
Para el seguimiento de este texto, se recomienda ir practicando las cosas mencionadas a la vez
que las vallas leyendo, as podrs familiarizarte de mejor manera con el entorno y no te
perders por el camino.
Se da por entendido que el lector conoce el lenguaje Visual Basic y este familiarizado con su
sintaxis y metodologa de programacin.
QUE ES CLIENTE/SERVIDOR?
Imagino que esta es la primera pregunta que se harn todos, que es eso de cliente servidor?,
cliente/servidor no es ms que la forma de llamar a las aplicaciones que trabajan en conjunto
como "nodos" de informacin (por as decirlo). Esto es que existe una aplicacin totalmente
independiente de la parte cliente la cual esta dispuesta a servir informacin cuando
el cliente se la solicita.
Ejemplos de estos pueden ser los servidores de Paginas Webs (HTTP), servidores de
Transferencia de Archivos (FTP), etc.
No podemos continuar sin antes dar una breve definicin de los trminos Cliente y Servidor.
Cliente: Es toda aplicacin que se conecta a un Servidor para solicitarle alguna
informacin.
Servidor: Es toda aplicacin que se mantiene a la espera de un cliente que solicite
informacin, la cual se la entregara si fuese posible. Se dice que este ofrece o sirve un servicio.
Para que quede mas claro, voy a dar un ejemplo sobre el funcionamiento del servidor de
Paginas Webs (HTTP). Para ello realizaremos una visita a un sitio Web en particular y
analizaremos despus lo sucedido:
1. Ejecutamos nuestro navegador (Internet Explorer, Netscape, Firefox, etc.)
2. Ingresamos la direccin del sitio Web que deseamos ver, por ej. www.google.com
3. Le damos al botn "Ir", "Ver", etc. Para que nuestro navegador se conecte a la direccin.
4. Nuestro navegador inmediatamente comienza a recibir poco a poco
la pgina Web solicitada.
5. Una vez concluida la descarga nuestro navegador se desconecta del sitio de forma oculta
al usuario.
Ahora si analizamos los pasos que fueron necesarios para visitar un sitio Web, veremos que lo
primero que tenemos que hacer es ejecutar un programaespecfico el cual tiene la habilidad de
conectarse a una direccin Web. Este programa que se conecta a X direccin, lo
llamaremos Cliente, porque es el que solicita la informacin, en este caso solicita una pagina
Web. Y quien le entrega dicha informacin al cliente se llamara Servidor, que en este caso es
una aplicacin que corre bajo la direccin del sitio en un computador remoto conectado
a Internet (www.google.com).
Como conclusin, si analizamos la peticin de la pgina Web podemos obtener que
los elementos bsicos que necesitamos para una conexin cliente/servidor son:
Un programa Cliente (el que solicita la informacin)
Un programa Servidor (el que sirve la informacin que necesitamos)
Una direccin hacia el servidor (para poder saber a donde conectar)
Con estos tres elementos podemos realizar una conexin cliente/servidor sin problemas y es
la base de las aplicaciones.
Tambin es muy importante mencionar, que en lo que a "direccin" se refiere, esta formada por
un nmero IP (o DNS) y un nmero de PUERTO. Este ltimo es as porque un computador
puede tener muchos puertos destinados para ofrecer distintos servicios, ya sean Paginas Webs
(Puerto 80), Mails (Puerto 25 y 110), FTP (puerto 21), Telnet (23), etc.
Estos puertos que he mencionado son los acostumbrados para estos servicios, eso no quiere
decir que tenga que ser siempre as, por ej. Podemos usar el puerto 80 (Comnmente para
HTTP) para ofrecer un servicio FTP, o bien implementar un Chat o cualquier cosa que se nos
ocurra. Los puertos solo estn disponibles para cualquier uso que le queramos dar.
Como referencia es bueno saber cuantos puertos puede usar una computadora. Los puertos
estn direccionados por 16 Bits, esto es que existe un total de 2^16 puertos, lo que equivale a
65.536 puertos disponibles, aunque como el puerto 0 no se puede usar solo tenemos utilizables
desde el puerto 1 al puerto 65.535.
PREPARANDO EL VISUAL BASIC
El Visual Basic v6.0 por defecto no esta preparado para trabajar con aplicaciones
cliente/servidor, y hace falta acomodar algunas cosas antes de comenzar a trabajar.
1. Lo primero ser crear un nuevo proyecto. Elige Aplicacin Estndar (prcticamente
puede ser cualquier otra, pero en este caso se trabajara as)
2.
a. Ve al men "Proyecto" y selecciona "Componentes".
b. En la lista de componentes busca "Microsoft Winsock Control 6.0", puede ser otra
versin o bien terminar con "(SP6)".
c. Marca este control y dale al botn "Aceptar".
3. Ahora necesitaremos cargar el Control Winsock, para ello realiza lo sig.:

Con esto veremos que se nos agrega un nuevo control llamado Winsock, con el icono .
Ahora ya nos encontramos listos para realizar una aplicacin Cliente/Servidor.
DESCRIPCION DEL COMPONENTE WINSOCK
El componente Winsock del Visual Basic es el que permite realizar conexiones Cliente/Servidor
a travs de protocolos TCP y UDP. Este nico componente puede trabajar de dos formas, como
Cliente (Conecta a un servidor) y como Servidor (Recibe conexiones), adems de poder
realizarvectores de Winsock lo que permite administrar varias conexiones con un
mismo cdigo en comn.
Este componente depende directamente del control ActiveX MSWINSCK.OCX.
A continuacin paso a describir las principales propiedades, mtodos y eventos del
componente.
Propiedades
Property BytesReceived As Long (Solo lectura)
Retorna el nmero de Bytes recibidos en la conexin.
Property Index As Integer (Solo lectura)
Retorna/Asigna el numero que identifica al control en un arreglo de controles.
Property LocalHostName As String (Solo lectura)
Retorna el nombre de la maquina local.
Property LocalIP As String (Solo lectura)
Retorna la direccin IP de la maquina local.
Property LocalPort As Long (Solo lectura)
Retorna el puerto usado en la maquina local.
Property Protocol As ProtocolConstants
Retorna/Asigna el tipo de protocolo que usara el Socket
Estos valores pueden ser dos: sckTCPProtocol y sckUDPProtocol.
Property RemoteHost As String
Retorna/Asigna el nombre (direccin) usado para identificar a la maquina remota.
Property RemoteHostIP As String (Solo lectura)
Retorna la direccin IP del Host Remoto.
Property RemotePort As Long
Retorna/Asigna el puerto al cual se conectara en el computador remoto.
Property SocketHandle As Long (Solo lectura)
Retorna el manejador (Handle) del Socket. (Solo para usuarios avanzados)
Property State As Integer (Solo lectura)
Retorna el estado de la conexion del Socket.
Metodos
Sub Accept(requestID As Long)
Acepta un peticin de conexin entrante.
Sub Bind([LocalPort], [LocalIP])
Amarra un socket a un especfico puerto y adaptador.
Sub Close()
Cierra la conexin actual.
Sub Connect([RemoteHost], [RemotePort])
Conecta a un computador remoto.
Sub GetData(data, [type], [maxLen])
Recibe datos enviados por el computador remoto.
Sub Listen()
Se pone a la escucha de peticiones de conexin entrantes.
Sub PeekData(data, [type], [maxLen])
Mira los datos entrantes sin removerlos desde el buffer.
Sub SendData(data)
Enva datos al computador remoto.
Eventos
Event Close()
Ocurre cuando la conexin a sido cerrada remotamente.
Event Connect()
Ocurre cuando la operacin de conexin se ha completo.
Event ConnectionRequest(requestID As Long)
Ocurre cuando un cliente remoto se intenta conectar.
Event DataArrival(bytesTotal As Long)
Ocurre cuando se reciben datos desde un computador remoto.
Event Error(Number As Integer, Description As String, Scode As Long, Source As String,
HelpFile As String, HelpContext As Long, CancelDisplay As Boolean)
Se dispara cuando ocurre algn error.
Event SendComplete()
Ocurre despus que una operacin de envio se haya completado.
Event SendProgress(bytesSent As Long, bytesRemaining As Long)
Ocurre mientras se esta enviando un dato.
Constantes
Enum StateConstants
Estas son las constantes devueltas por la propiedad State.
Constante Descripcin
sckClosed El socket se encuentra cerrado.
sckClosing El socket esta cerrando la conexin al computador remoto.
sckConnected El socket ha conectado al computador remoto.
sckConnecting El socket esta conectando al computador remoto.
sckConnectionPending El socket tiene una peticin pendiente
sckError Se ha producido un error
sckHostResolved El socket ha resuelto el nombre del equipo remoto.
sckListening El socket esta a la escucha de peticiones entrantes.
sckOpen El socket esta actualmente abierto.
sckResolvingHost El socket esta resolviendo el nombre del computador remoto.
Enum ProtocolConstants
Estos son los valores permitidos por la propiedad Protocol.
Constante Descripcin
sckTCPProtocol Protocolo TCP.
sckUDPProtocol Protocolo UDP.
Enum ErrorConstants
Constantes de errores, devueltas por el evento Error.
Constante Descripcin
sckAddressInUse Direccin en uso.
sckAddressNotAvailable La direccin no esta disponible desde la maquina local.
sckAlreadyComplete La operacin esta completa. En progreso la operacin de
no bloqueo.
sckAlreadyConnected El socket esta actualmente conectado.
sckBadState Protocolo o estado de conexin equivocada para la
transaccin o peticin demandada.
sckConnectAborted La conexin es abortada debido a que se ha superado
el tiempo de conexin u otra falla.
sckConnectionRefused La conexin a sido rechazada.
sckConnectionReset La conexin a sido reinicializada por el lado remoto.
sckGetNotSupported La propiedad es de Escritura solamente.
sckHostNotFound Respuesta autorizada. No se ha encontrado el Host.
sckHostNotFoundTryAgain Respuesta no autorizada. No se ha encontrado el Host.
sckInProgress Una operacin winsock de bloqueo esta en progreso.
sckInvalidArg El argumento pasado a la funcin no posee un formato o
rango valido.
sckInvalidArgument Argumento invalido
sckInvalidOp Operacin invalida en el estado actual.
sckInvalidPropertyValue Valor de propiedad invalido.
sckMsgTooBig El datagrama es muy largo para acomodarlo dentro del
buffer y ha sido truncado.
sckNetReset Ha finalizado el tiempo de conexin cuando
SO_KEEPALIVE estaba seteado.
sckNetworkSubsystemFailed Falla en el subsistema de red.
sckNetworkUnreachable La red no puede ser alcanzada desde este host.
sckNoBufferSpace No hay espacio disponible en el buffer,
sckNoData Nombre valido. No hay tipo de datos
del registro demandado.
sckNonRecoverableError Error irrecuperable.
sckNotConnected El socket no esta conectado.
sckNotInitialized WinsockInit debe ser llamado primero.
sckNotSocket El descriptor no es un socket.
sckOpCanceled Esta operacin es cancelada.
sckOutOfMemory La memoria se ha colapsado.
sckOutOfRange El argumento esta fuera de rango.
sckPortNotSupported El puerto especificado no esta soportado.
sckSetNotSupported La propiedad es de solo lectura.
sckSocketShutdown El socket haba sido cerrado.
sckSucces Concluido.
sckTimedout Tiempo fuera en el intento de conexin.
sckUnsupported No soporta tipos Variants.
sckWouldBlock El socket no esta bloqueando y la especifica operacin
ser realizada.
sckWrongProtocol Protocolo equivocado para la especifica transaccin o
peticin.
MI PRIMERA APLICACIN CLIENTE
Esta aplicacin trabajara como un cliente simple que conecte a cualquier servidor, permita
enviar texto plano y a la vez mostrar la informacin devuelta por este. Parecido a como trabajan
los clientes de Telnet.
1. Creando la interfaz del usuario
Realiza un formulario como el mostrado abajo, con los nombres por defecto de cada control y
guarda el proyecto con el nombre "Cliente.vbp".

2. Implementando la conexin
La primera accin a realizar y fundamental para toda aplicacin de este tipo, es crear la
conexin al servidor, ya que solo se puede transmitir informacin si la conexin
cliente/servidor se encuentra activa.
Propiedades necesarias
- RemoteHost: Asignamos la direccin a la que deseamos conectar.
- RemotePort: Asignamos el puerto al que deseamos conectar en RemoteHost.
Mtodos necesarios
- Connect(): Conecta al servidor.
- Close(): Cierra la conexin al servidor.
Eventos involucrados
- Connect(): Ocurre cuando hemos establecido con xito la conexin al servidor
- Close(): Ocurre cuando el servidor nos cierra la conexin.
- Error(): Ocurre en caso de errores.
Para realizar la conexin utilizamos el siguiente cdigo:
Private Sub Command2_Click()
'asignamos los datos de conexion
Winsock1.RemoteHost = Text3.Text
Winsock1.RemotePort = Text4.Text
'conectamos el socket
Winsock1.Close
Winsock1.Connect
End Sub
Aqu se pueden ver claramente dos partes principales:
En las primeras dos lneas asignamos los datos de conexin al host remoto, como son la
IP/DNS (RemoteHost) y Puerto (RemotePort).
En la ltima lnea llamamos al mtodo "Connect" para realizar la conexin, siempre
asegurndonos que el Socket no este utilizndose. Para ello llamamos al mtodo "Close" que se
encarga de cerrar toda conexin pendiente en el Socket.
Nota: Tambin se puede especificar los datos de conexin (IP y Puerto) directamente en el
comando "Connect" como parmetros, de la sig. Forma: Winsock1.Connect(Host, Puerto).
Si la conexin se realiza con xito se dispara un evento para tal fin, en donde podemos
realizar acciones inmediatas en el momento preciso en que se logra establecer la conexin con
el servidor. El evento es el siguiente:
Private Sub Winsock1_Connect()
'desplegamos un mensaje en la ventana
Text1.Text = Text1.Text & _
"*** Conexion establecida." & vbCrLf
'desplazamos el scroll
Text1.SelStart = Len(Text1.Text)
End Sub
En este caso solo nos limitamos a mostrar un mensaje en pantalla especificando que la
conexin se ha realizado con xito.
En este momento ya tenemos creado los lazos bsicos para realizar cualquier intercambio de
datos con el servidor, ya sea texto ASCII o datos binarios.
Tambin hay que tener presente que en cualquier momento el servidor nos puede cerrar la
conexin, o bien cerrarse por algn error, para ello es que contamos con el evento "Close", que
se dispara al perder la conexin con el servidor:
Private Sub Winsock1_Close()
'cierra la conexion
Winsock1.Close
'desplegamos un mensaje en la ventana
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "*** Conexion cerrada por el servidor." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
Aqu solo desplegamos un mensaje en la pantalla informando del evento ocurrido, y cerrando
previamente el Socket para asegurarnos de que este actualice sus valores segn el estado actual.
En cambio si queremos cerrar nosotros mismos la conexin con el servidor basta con llamar al
mtodo "Close" directamente:
Private Sub Command3_Click()
'cierra la conexion
Winsock1.Close
'desplegamos un mensaje en la ventana
Text1.Text = Text1.Text & _
"*** Conexion cerrada por el usuario." & vbCrLf
'desplazamos el scroll
Text1.SelStart = Len(Text1.Text)
End Sub

3. Enviando/recibiendo datos
Una vez realizada con xito nuestra conexin, solo resta comenzar a transferir datos, cabe
mencionar que estos datos se envan siempre en forma binaria aunque sea solo texto, ya que el
texto en si es una representacin grafica de un numero binario, con esto quiero expresar que a
travs de un socket puedes enviar texto normal o datos binario, todos como variables de tipo
String (cadenas).
Mtodos necesarios
- SendData: Enva datos al otro extremo de la conexin (socket remoto).
- GetData: Recibe datos enviados por el extremo remoto (socket remoto).
Eventos involucrados
- DataArrival(): Ocurre cuando el socket remoto nos esta enviando datos.
- Error(): Ocurre en caso de errores.
Para enviar datos utilizamos el mtodo "SendData" de la sig. forma:
Private Sub Command1_Click()
'enviamos el contenido de Text2
Winsock1.SendData Text2.Text & vbCrLf
'apuntamos al final del contenido del TextBox e
'insertamos los nuevos datos obtenidos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
Text1.Text = Text1.Text & "Cliente >" & Text2.Text & vbCrLf 'mostramos los datos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
'borramos Text2
Text2.Text = ""
End Sub
Al mtodo SendData solo se le pasa como parmetro el dato a enviar (en este caso el contenido
de un TextBox + los caracteres de nueva lnea y retorno de carro) y este lo enva
inmediatamente al socket remoto.
Cuando el socket remoto nos enva un dato (de la misma forma que realizamos anteriormente)
se nos genera el evento "DataArrival()" indicando que tenemos nueva informacin disponible, y
esta informacin la cogemos con el mtodo "GetData":
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String 'variable para guardar los datos
'obtenemos los datos y los guardamos en una variable
Winsock1.GetData Buffer
'apuntamos al final del contenido del TextBox e
'insertamos los nuevos datos obtenidos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
Text1.Text = Text1.Text & "Servidor >" & Buffer 'mostramos los datos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
End Sub
En este ejemplo solo obtenemos los datos y lo mostramos inmediatamente en la ventana del
cliente, no hacemos ningn tratamiento previo de los datos, como sera lo habitual.
4. Manejo de errores
Es muy importante tomar alguna accin cuando se produzca algn error, aunque esta accin
tan solo sea cerrar la conexin e informar al usuario de lo ocurrido.
Para el manejo de errores producidos durante la conexin contamos con un evento dedicado,
llamado "Error()" el cual retorna varios valores para darnos informacin al respecto, entre ellos
los mas comunes son:
Number As Integer Informa sobre el numero del error producido
Description As String Entrega una breve descripcin del error
En caso de producirse algn error la accin ms simple de realizar es simplemente cerrar la
conexin con el mtodo "Close":
Private Sub Winsock1_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)
'cerramos la conexion
Winsock1.Close
'mostramos informacion sobre el error
MsgBox "Error numero " & Number & ": " & Description, vbCritical
End Sub
5. Prueba de la aplicacin
En este punto ya estamos listo para comenzar a usar nuestro programa cliente, solo le damos a
ejecutar desde el entorno del Visual Basic o bien compilamos y ejecutamos el archivo.
Para asegurarnos que todo ha salido bien, vamos a realizar una pequea prueba, conectaremos
a www.google.com y solicitaremos la pgina de inicio:
En el campo "Servidor" de nuestro programa escribimos "www.google.com", y en el campo
"Puerto" colocamos el "80". Le damos al botn "Conectar".
Si todo va bien, deberamos obtener el mensaje "Conexin establecida", si es as entonces en el
campo de enviar texto, escribimos "GET / HTTP/1.1":

Y para enviar presionamos dos veces el botn "Enviar". La razn de esto es para que envi la
cadena que escribimos mas dos caracteres de retorno de carro o nueva lnea (vbCrLf), esto por
especificaciones del protocolo HTTP (que es lo que estamos utilizando aqu).
Deberamos ver algo como esto:

Si recibimos texto desde el servidor (Las cadenas que inician con "Servidor >") es que nuestro
cliente funciona perfectamente y hemos realizado la conexin, enviado y recibido datos con
xito. Ya podemos descasar un rato y celebrar :).
MI PRIMERA APLICACIN SERVIDOR
Vamos a realizar una aplicacin que se mantenga a la escucha de una conexin entrante y la
acepte, podr enviar y recibir datos desde el cliente.
Al principio ser mono-conexin, es decir, solo permitir una conexin a la vez al servidor, pero
luego la implementaremos para mltiples conexiones.
Algunas partes del cdigo para el servidor son idnticas al del cliente (realizado anteriormente)
as que solo me limitare a mostrar como queda el cdigo y la explicacin de la misma se
entender que es la correspondiente a la del cliente.
1. Creando la interfaz del usuario
Realiza un formulario como el mostrado abajo, con los nombres por defecto de cada control y
guarda el proyecto con el nombre "Servidor.vbp".

2. Implementando la conexin
Al igual que en el cliente, lo primero es habilitar el socket para que pueda quedar esperando
una conexin, se dice que queda "a la escucha de". Para esto solo necesitamos un botn
"Escuchar" y como datos un puerto local (a eleccin) en el cual deseamos recibir conexiones
entrantes.
Propiedades necesarias
- LocalPort: Asignamos el puerto local en el cual deseamos recibir conexiones.
Mtodos necesarios
- Listen(): Escucha peticiones entrantes.
- Close(): Cierra la conexin al servidor.
Eventos involucrados
- ConnectionRequest(): Ocurre cuando un cliente nos solicita una conexin al servidor.
- Close(): Ocurre cuando el servidor nos cierra la conexin.
- Error(): Ocurre en caso de errores.
El cdigo utilizado para el botn "Escuchar" es el siguiente:
Private Sub Command2_Click()
'cerramos cualquier conexion previa
Winsock1.Close
'asignamos el puerto local que abriremos
Winsock1.LocalPort = Text3.Text
'deja el socket esuchando conexiones
Winsock1.Listen
'desplegamos un mensaje en la ventana
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "*** Esuchando conexiones." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
La primera lnea de cdigo cierra la conexin actual, para luego poder modificar los datos y
crear una nueva conexin sin que nos de errores.
La siguiente lnea le dice en que puerto deseamos recibir conexiones, y luego llama al socket
para que quede a la escucha de conexiones en ese puerto.
Hasta aqu el socket solo esta "escuchando" conexiones, es decir aun nadie se puede conectar al
servidor completamente porque no se ha implementado esa parte por el momento.
Esto solo nos permite avisarnos cada vez que un cliente se quiera conectar o bien cada vez que
un cliente "Solicita una conexin entrante". Cuando este sucede se genera el evento
"ConnectionRequest()":
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'mostramos un mensaje en la ventana
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "*** Peticion numero " & requestID & vbCrLf
Text1.SelStart = Len(Text1.Text)
'cerramos previamente el socket
Winsock1.Close
'aceptamos la conexion
Winsock1.Accept requestID
'desplegamos un mensaje en la ventana
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "*** Conexion aceptada, listo para interactuar." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
Con estas lneas ya estamos conectado completamente, pero de seguro que quedan muchas
dudas, y precisamente este punto es uno de los mas importantes, as que pasare a detallar cada
cosa.
Lo primero que habamos realizado es dejar el socket a la escucha de conexiones (para esto
utilizamos el mtodo "Listen"). Con esto ya tenemos un puerto abierto y atento a toda
actividad.
Cuando un "Cliente" se intenta conectar a ese puerto, el socket lo detectara y para ello generara
el evento "ConnectionRequest()" que significa "Peticin de conexin" y adems le asigna
una identidad a esa "Peticin" que identifica al "Cliente" remoto. Esta identidad es pasada
como parmetro en el evento "ConnectionRequest()" con el nombre de "requestID" y es de tipo
"Long".
Cuando se genera el evento lo que tenemos que hacer es "Aceptar" la conexin entrante
"requestID" mediante el metodo "Accept", si no lo hacemos al llegar al "End Sub" del evento, la
conexin del "Cliente" ser cerrada automticamente.
Algo interesante es ver que antes de aceptar la conexin con "Accept" primero cerramos la
conexin con "Close", esto que puede parecer ilgico no lo es, porque el socket lo tenamos
ocupado y activo "escuchando conexiones", y ahora necesitamos que establezca una conexin
par a par con el cliente, por ello es que cerramos la funcin de "Escuchar conexiones del socket"
y le decimos que acepte la conexin entrante y as automticamente se conecta en forma directa
con el cliente y ya no entender nuevas conexiones entrantes. (No puede realizar
dos funciones a la vez)
Para cerrar la conexin basta con usar el mtodo "Close" en cualquier momento:
Private Sub Command3_Click()
'cierra la conexion
Winsock1.Close
'desplegamos un mensaje en la ventana
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "*** Conexion cerrada por el usuario." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
Private Sub Winsock1_Close()
'cierra la conexion
Winsock1.Close
'desplegamos un mensaje en la ventana
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "*** Conexion cerrada por el Cliente." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
3. Enviando/recibiendo datos
Esto es idntico al explicado en la parte del cliente:
Private Sub Command1_Click()
'enviamos el contenido de Text2
Winsock1.SendData Text2.Text & vbCrLf
'apuntamos al final del contenido del TextBox e
'insertamos los nuevos datos obtenidos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
Text1.Text = Text1.Text & "Servidor >" & Text2.Text & vbCrLf 'mostramos los datos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
'borramos Text2
Text2.Text = ""
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String 'variable para guardar los datos
'obtenemos los datos y los guardamos en una variable
Winsock1.GetData Buffer
'apuntamos al final del contenido del TextBox e
'insertamos los nuevos datos obtenidos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
Text1.Text = Text1.Text & "Cliente >" & Buffer 'mostramos los datos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
End Sub
4. Manejo de errores
Esto es idntico al explicado en la parte del cliente:
Private Sub Winsock1_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)
'cerramos la conexion
Winsock1.Close
'mostramos informacion sobre el error
MsgBox "Error numero " & Number & ": " & Description, vbCritical
End Sub
5. Prueba de la aplicacin
Despus de mucho "copiar/pegar" :), ya estamos listos con nuestra aplicacin servidor y listos
para realizar las primeras pruebas y ver si todo trabaja correctamente.
Lo primero, ejecuta la aplicacin servidor y donde dice "Puerto" coloca cualquier nmero de los
65.535 disponibles, por ej. el "23". Luego dale al botn "Escuchar":

Ahora ejecuta la aplicacin Cliente y en "Servidor" coloca "localhost" o "127.0.0.1" y en "Puerto"
coloca el "23". Dale al botn "Conectar".

En el servidor obtienes:

Ya estamos listos y trabajando con nuestra aplicacin Cliente/Servidor!!, No lo crees?, prueba
a enviar texto entre cliente->servidor y servidor->cliente y comprubalo tu mismo:


Ahora que sabemos que todo trabaja correctamente te invito a hacer una prueba ms. Con la
conexin establecida y funcionando de par a par ente cliente/servidor, ejecuta una nueva
aplicacin "Cliente" e intenta conectar al servidor en el mismo puerto (en este caso servidor
"localhost" y puerto "23"), y espera los resultados:

Nos dice que no logra establecer la conexin, este es el mismo mensaje que entrega si el
servidor al que intenta conectar No tiene ningn puerto abierto!!, lo que sucede es que el
servidor ya no se encuentra "a la escucha de conexiones" y por lo tanto no atender nuevas
peticiones de conexin.
APLICACIN SERVIDOR MULTI-CONEXIN
Ahora nos encontramos con los conocimientos suficientes para implementar un servidor que
pueda aceptar un nmero indefinido de conexiones entrantes.
En este proyecto usaremos el mismo cdigo fuente del servidor mono-conexin utilizado
anteriormente, ya que los cambios son muy pocos en realidad.
Bien, entonces abrimos el proyecto del servidor mono-conexin y lo guardamos como "Servidor
Multi.vbp" para comenzar a trabajar.
La interfaz la dejaremos tal cual, todo el cambio ser en relacin al cdigo mismo y a la
modificacin de algunos controles. Tambin trabajaremos con arreglo de controles, si nunca lo
has hecho podras buscar un poco de informacin al respecto o bien intentar seguir adelante,
que lo explicare de forma breve.
1. Vista general del funcionamiento
Como vimos anteriormente en el Servidor mono-conexin, dejbamos un socket a la escucha
de conexiones entrantes, y al recibir una peticin de conexin (evento "ConnectionRequest") le
decamos al Winsock que aceptara esa identidad y este a su vez estableca una conexin con el
cliente.
Los principios para crear un servidor multi-conexin son los mismos, salvo que necesitamos
dejar un socket escuchando permanentemente conexiones entrantes, este nunca se debe cerrar
(al contrario de lo que pasaba en el caso del servidor mono-conexin), entonces como
podemos aceptar una conexin si no podemos cerrar el socket que tenemos a la escucha?,
acaso podemos dejar un mismo socket escuchando conexiones y atendiendo otra a la vez?, la
respuesta es No podemos, pero nada nos impide hacer que otro socket que se encuentra
inactivo acepte y atienda una peticin de conexin. De esta forma el trabajo total se reparte
entre varios sockets: un socket permanentemente escuchando peticiones de conexin
(recepcionista) y otros tantos socket que se encargan de atender a cada uno de los clientes
(ejecutivos).
2. Creando el arreglo de WinSocks
Para poder trabajar con varias conexiones a la vez necesitamos varios sockets disponibles, ya
que cada uno solo puede trabajar con una sola conexin, y como en principio no conocemos la
cantidad de Winsocks que necesitaremos debemos inclinarnos por crear Arreglos de controles
Winsock e irlos cargando dinmicamente.
Si lo deseas tambin puedes crear una N cantidad de Winsocks y solo trabajar con ellos, pero tu
nmero mximo de conexiones posibles ser el mximo de Winsocks que tengas.
Entonces, para crear el arreglo debemos seguir los sig. pasos:
1. Agregar un nuevo Winsock al formulario (Winsock2)
2. Copiar el control (Clic derecho sobre este y seleccionar "Copiar")
3. Pegar el control en el formulario, y cuando pregunte por si deseas crear el arreglo dile que
"Si". (Clic derecho sobre el formulario y seleccionar "Pegar")
4. Borramos el nuevo Winsock que se ha creado (Winsock2(1)).
La razn de borrar este ltimo Winsock es porque no nos hace falta, como mencionamos en un
principio, nosotros crearemos los Winsocks necesarios de forma dinmica, solo necesitamos
tener existente el Winsock2 de ndice cero.
3. Limpiando cdigo innecesario
En realidad no hay cdigo innecesario pero si cdigo que debe cambiar de lugar, como veremos
en su momento, por ahora solo nos limitaremos a borrar todo el cdigo del evento
"Winsock1_DataArrival" ya que nunca lo usaremos en este Winsock porque solo trabajara
como repartidor de trabajoy "Winsock1_ConnectionRequest" que ser implementada mas
adelante, lo mismo para la accin del botn "Enviar" (Command1_Click).
4. Enviando/recibiendo datos
Vamos a ver como se realizan las acciones de recibir y enviar datos cuando tenemos arreglos de
sockets (Winsock2()), nos guardaremos laadministracin de las peticiones de conexiones para
ms adelante.
Para enviar datos (mediante el botn "enviar") podemos hacerlo directamente con algn socket
especfico, definiendo su identidad, o bien con todos los sockets recorriendo el arreglo. Esto
ltimo es lo que haremos a modo de ejemplo:
Private Sub Command1_Click()
Dim numElementos As Integer 'numero de sockets
Dim i As Integer 'contador
'obtiene la cantidad de Winsocks que tenemos
numElementos = Winsock2.UBound
'recorre el arreglo de sockets
For i = 0 To numElementos
'si el socket se encuentra conectado...
If Winsock2(i).State = sckConnected Then
'enviamos el contenido de Text2
Winsock2(i).SendData Text2.Text & vbCrLf
'apuntamos al final del contenido del TextBox e
'insertamos los nuevos datos obtenidos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
Text1.Text = Text1.Text & "Sock" & i & ":Servidor >" & Text2.Text & vbCrLf 'mostramos los datos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
End If
Next
'borramos Text2
Text2.Text = ""
End Sub
Y cuando recibamos datos desde el cliente se nos generara el evento "Winsock2_DataArrival"
que ahora incluye un nuevo parmetro "Index" de tipo "Integer" y contiene el nmero o ndice
del socket que genera el evento (todo en relacin al arreglo de sockets).
Para recibir datos solo tenemos que tomar en cuenta ese "Index" y el resto es igual a lo visto en
el servidor de conexin mono-usuario:
Private Sub Winsock2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Buffer As String 'variable para guardar los datos
'obtenemos los datos y los guardamos en una variable
Winsock2(Index).GetData Buffer
'apuntamos al final del contenido del TextBox e
'insertamos los nuevos datos obtenidos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
Text1.Text = Text1.Text & "Sock" & Index & ":Cliente >" & Buffer 'mostramos los datos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
End Sub
5. Evento Error y Close
El cdigo para los eventos "Error" y "Close" del arreglo de sockets es muy simple:
Private Sub Winsock2_Close(Index As Integer)
'cierra la conexion
Winsock2(Index).Close
'desplegamos un mensaje en la ventana
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "Sock" & Index & ":*** Conexion cerrada por el Cliente." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
Private Sub Winsock2_Error(Index As Integer, 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)
'cerramos la conexion
Winsock2(Index).Close
'mostramos informacion sobre el error
MsgBox "Error numero " & Number & ": " & Description, vbCritical
End Sub
5. Escuchando y atendiendo a las conexiones
El siguiente paso ser recibir las peticiones de conexin y asignrselas a cada socket para que
las atienda. Para ello necesitaremos crear un nuevo socket cada vez que recibamos una peticin
de conexin y decirle que acepte la identidad de la conexin.
Para facilitar las cosas nosotros haremos una funcin que se encargue de crear los sockets y que
adems devuelva el nmero del nuevo socket creado:
'Carga un nuevo socket al arreglo y devuelve su indice
Private Function NuevoSocket() As Integer
Dim numElementos As Integer 'numero de sockets
Dim i As Integer 'contador
'obtiene la cantidad de Winsocks que tenemos
numElementos = Winsock2.UBound
'recorre el arreglo de sockets
For i = 0 To numElementos
'si algun socket ya creado esta inactivo
'utiliza este mismo para la nueva conexion
If Winsock2(i).State = sckClosed Then
NuevoSocket = i 'retorna el indice
Exit Function 'abandona la funcion
End If
Next
'si no encuentra sockets inactivos
'crea uno nuevo y devuelve su identidad
Load Winsock2(numElementos + 1) 'carga un nuevo socket al arreglo
'devuelve el nuevo indice
NuevoSocket = Winsock2.UBound
End Function
Esta funcin no solo crea un nuevo socket, sino que adems si encuentra alguno que se haba
creado antes y este se encuentra inactivo (desconectado) lo selecciona para volverlo a utilizar y
as aprovechar mas los recursos del sistema.
Nota: Esta no es la forma ms ptima de manejar arreglos de objetos, ya que no nos permite
ir liberando de la memoria (borrando) los sockets que ya no son utilizados y solo se limita a
crear nuevos.
Ahora nos situamos en el evento "ConnectionRequest()" del "Winsock1" (el que har de
recepcin) y escribimos el siguiente cdigo:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Dim numSocket As Integer 'el numero del socket
'mostramos un mensaje en la ventana
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "*** Peticion numero " & requestID & vbCrLf
Text1.SelStart = Len(Text1.Text)
'creamos un nuevo socket
numSocket = NuevoSocket
'aceptamos la conexion con el nuevo socket
Winsock2(numSocket).Accept requestID
'desplegamos un mensaje en la ventana
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "Sock" & numSocket & ":*** Conexion aceptada, listo para interactuar." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
Aqu lo primero es crear un nuevo socket (o reutilizar alguno disponible) y decirle a ese socket
que acepte aquella conexin. Una vez realizado esto ya estamos libres nuevamente para recibir
otra conexin.
Tambin es posible denegar conexiones realizadas desde alguna IP especifica, para ello solo hay
que revisar la propiedad "Winsock1.RemoteHostIP" y ver si aceptamos su conexin o bien se la
rechazamos con "Close".
6. Prueba de la aplicacin
Ahora que todo parece estar completo, realizaremos la prueba del servidor.
Ejecuta la aplicacin, como "Puerto" coloca el "23" y dale al botn "Escuchar".

Ahora ejecuta dos aplicaciones "Cliente" y conctalos al puerto "23" de "Localhost". Notaras
que ya no da el error que vimos con el servidor mono-conexin y que ambos se encuentran
conectados:

Prueba a enviar mensajes entre ellos y veras que todo trabaja perfectamente!!, puedes
identificar cada conexin porque en el mensaje aparece "SockN" donde "N" es el ndice del
socket, as sabrs en cada momento que socket es el que esta enviando el mensaje:

y ya funciona todo ok!.
CONCLUSIN
Hemos llegado al final de este tutorial, y hemos aprendido a realizar conexin Cliente/Servidor
mono y multi-conexiones de forma bsica, digo bsica porque hay mejores maneras de
implementarlas y mas minuciosas, pero esta es la base de todas ellas, y el resto lo obtendrs por
la practica.
Espero que este texto les halla sido de utilidad y cualquier duda o errores encontrados no dudes
en comunicrmelo, que lo corregir tan pronto como pueda.

También podría gustarte