Para enterder el correcto funcionamiento del
protocolo TCP/IP vamos a empezar por programar
la aplicación Servidor a la cual luego
se conectará el Cliente.
Comenzamos por crear un proyecto nuevo (EXE
estándar) para el Servidor, y agregamos
la siguiente lista de controles al formulario
principal. La ubicación de dichos controles
es a gusto del programador, siempre tratando
de que el usuario final este a gusto con el
producto y que se pueda manejar libremente sin
problemas por el entorno del mismo.
- WinSock Control
- 2 cajas de texto (TextBox)
- 2 botones.
A continuación hace falta que cambiemos
algunas propiedades de los controles, debajo
la lista de controles con las respectivas propiedades
a cambiar.
Control (nombre predeterminado) Propiedad (nuevo
valor)
WinSock1 LocalPort = 888
Text1 Text =
Text2 Text =
Command1 Caption = "Escuchar"
Para que el ejemplo funcione a la perfección
conviene que seguir la ubicación de los
controles como esta indicado en la figura 1.
Una vez hecho esto podemos empezar a tipear
código. El sangrado del programa es una
cuestión de entendimiento para el programador,
algunos recurren a éste como otros no,
eso también queda a criterio del que
programa.
En el Evento Click del Command1 incluimos el
siguiente código; (sólo lo que
esta en NEGRITA, el resto es en modo de ayuda,
ya que aparece cuando se hace doble click en
algun control).
Private Sub Command1_Click()
Winsock1.Listen
End Sub
Microsoft explorer 6.0