Al utilizar el protocolo TCP, si necesita crear una aplicación cliente, debe identificar el nombre o la dirección IP del servidor. El puerto de comunicación de la aplicación monitoreará cuidadosamente los mensajes enviados por la otra parte en cualquier momento, lo que es una garantía de una conexión confiable del sistema. Una vez que se produce la conexión, cualquiera de las partes puede enviar y recibir datos a través de SendData y separar sus propios datos a través de GetData. Al transmitir datos, primero debe configurar el atributo LocalPort del cliente. El servidor solo necesita configurar el atributo RemoteHost en la dirección Ethernet del cliente, configurar la misma dirección de puerto que el atributo LocalPort del cliente y comenzar a enviar mensajes con el método SendData. El cliente separa la información enviada a través del evento DataArrival en el evento GetData. Un control Winsock permite que una computadora local se conecte a una computadora remota usando los protocolos UDP o TCP. Ambos protocolos pueden crear aplicaciones de cliente y servidor.
Cuando se utiliza el control Winsock, ambas partes de la comunicación deben seleccionar el mismo protocolo. El protocolo TCP es adecuado para transmitir archivos de datos de gran capacidad que requieren garantías de seguridad, mientras que el protocolo UDP es adecuado para situaciones en las que necesita comunicarse con muchos subordinados por separado, o donde hay muchas conexiones establecidas y variables en el tiempo, especialmente cuando el cantidad de datos es pequeña. Puede usar el método Winsock1.PRotocol=sckTCPProtocol al configurar. Primero, busque el nombre de su computadora y agréguelo a la propiedad LocalHost de Winsock.
Al crear una aplicación, primero debe determinar si está creando una aplicación cliente o un servicio de servidor. Solo cuando la aplicación del servidor establecida comienza a funcionar y entra en estado de escucha, la aplicación cliente comienza a establecer una conexión y entra en un estado de comunicación normal. . El autor creó una aplicación cuya función es que cuando el mouse del cliente se mueve, la aplicación del servidor pueda mostrar la posición del mouse en tiempo real.
A continuación se explica cómo crear una aplicación de servidor:
1. Cree un nuevo archivo EXE estándar;
2. Agregue un control Winsock;
3. Agregue el siguiente código:
Carga de subformulario privado()
tcpServer.LocalPort=1001
tcpServer.Localhost=servidor
tcpServer.remotePort=1002
tcpServer.Localhost=klint
tcpServer.Escuchar
FinSub
'Comprobación de conexión
Solicitud de conexión de servidor subtcp privada (por solicitud de valor IDAsLong)
IftcpServer.State＜＞sckClosedThen
tcpServer.Cerrar
tcpServer.AcceptrequestID
FinSub
'Enviar datos
PrivateSubfrmservermonsemove(x,y)
tcpServer.SendDatax&str(x)
tcpServer.SendDatay&str(y)
FinSub
Cómo construir una aplicación de cliente es:
1. Cree un nuevo archivo EXE estándar;
2. Agregue un control Winsock;
3. Agregue dos cuadros de texto: txtx y txty;
4. Agregue el siguiente código:
Carga de subformulario privado()
tcpServer.LocalPort=1002
tcpServer.Localhost=klint
tcpServer.remotePort=1001
tcpServer.Localhost=servidor
tcpServer.Escuchar
FinSub
'Comprobación de conexión
Solicitud de conexión privadaSubtcpklint
(PorValrequestIDAsLong)
Iftcpklint.State＜＞sckClosedThen
tcpklint.Cerrar
tcpklint.AcceptrequestID
FinSub
recibir datos
PrivadoSubtcpClientDataLlegada
(PorValbytesTotalAsLong)
DimstrDataAsString
tcpklint.GetDatastrData
ifleft(strData,1)=Xentonces
txtx.Text=strDatos
demás
txty.Text=strDatos
endif
FinSub
La rutina anterior implementa una comunicación punto a punto muy simple. Con ligeras modificaciones sobre esta base, se puede formar un sistema de comunicación interactivo AA de red informática en tiempo real funcionalmente complejo para control, simulación de gráficos, etc. Winsock en VB nos proporciona un método de transmisión de datos simple, lo que nos permite lograr fácilmente una comunicación de red punto a punto.
->