Autor Tema: Como Enviar Varios Datos Con Winsock (Leído 3019 veces)

oscar_937 · « **en:** Martes 5 de Octubre de 2004, 01:12 »

HOLA A TODOS

TENGO UN PROGRAMA CLIENTE Y OTRO SERVIDOR, LOS COMUNICO POR MEDIO DE WINSOCK, AHORA , EN EL FRM CLIENTE TENGO 3 TXTBOX Y UN CMDBUTON Y EN EL FRM SERVIDOR TAMBIEN TENGO 3 TXTBOX Y UN CMDBUTON ENTONCES QUIERO QUE AL DAR CLICK EN EL CMDBUTON DEL FRM CLIENTE, LOS DATOS QUE ESTAN EN LOS 3 TXTBOX LOS ENVIE A LOS 3 TXTBOX QUE ESTAN EN FRM SERVIDOR COMO PUEDO HACERLO??? PARA QUE LOS DATOS LOS ACOMODE EN CADA UNO DE LOS TXTBOX, NO HE PODIDO PORQUE NO SE COMO REPARTIRLOS ME PUEDEN AYUDAR POR FAVOR ENVIANDOME ALGUN CODIGO A : oscar_937@hotmail.com SE LOS AGRADECERE

GRACIAS AMIGOS PROGRAMADORES

RadicalEd

TAL VES ASI

Código: Text

 
Private Sub CmdSend_Click()
Dim send1, send2, send3 As String
send1 = Text1.Text
send2 = Text2.Text
send3 = Text3.Text
Winsock1.SendData send1, send2, send3
End Sub
 
 

oscar_937

GRACIAS RADICALE

DESDE AHORA PROBARE TU CONSEJO

DESPUES ESCRIBO PARA DARTE RESULTADOS

SEE YOU

ATM OSCAR

RadicalEd

JEJEJE

SE ME OLVIDO EL DE RECIBIDO O EL DE CLIENTE

Código: Text

 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
Dim datos1, datos2, datos3 As String
Winsock1.GetData datos1
Text1.Text = Text1.Text + datos1
Winsock1.GetData datos2
Text2.Text = Text2.Text + datos2
Winsock1.GetData datos3
Text3.Text = Text3.Text + datos3
End Sub
 
 

TAL VES TE FUNCIONE NO LO HE PROBADO

oscar_937

JE JE JE

ESO EXACTAMENTE TE KERIA PREGUNTAR, GRACIAS, Y YA PROBE AL ENVIARLOS PERO ME MANDA ERROR, COMO LOS MANDO UNO POR UNO?

WINSOCK.SENDDATA SEND1
WINSOCK.SENDDATA SEND2
WINSOCK.SENDDATA SEND3
ASI?

O COMO ?

GRACIAS AMIGO PROGRAMADOR

tiquinho

Yo lo que hago es enviar todo de una vez, en una sóla string, y para separarlas utilizo un caracter raro, y después lo separas:

Código: Text

 
Private Sub CmdSend_Click()
Dim send1 As String
send1 = Text1.Text & Chr(174) & Text2.Text & Chr(174) & Text3.Text
Winsock1.SendData send1
End Sub

Y para recibir:

Código: Text

 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
Dim datos1 As String
Dim datosArray() As String
Winsock1.GetData datos1
datosArray = Split(datos1,Chr(174))
Text1.Text=datosArray(0)
Text2.Text=datosArray(1)
Text3.Text=datosArray(2)
End Sub
 
 

Espero que te funcione, alguna duda pregunta

oscar_937

MUCHAS GRACIAS ME FUNCIONO COMO DICE TIQUINHO ASI SI SE RECIBEN LOS DATOS DE UNO POR UNO Y YA LOS PUEDO MANIPULAR CORRECTAMENTE, GRACIAS A TODOS.

OTRA DUDA:

COMO PUEDO ENVIAR POR EL PUERTO SERIE BYTES, CREO QUE LOS TENGO QUE ENVIAR COMO MATRIZ O COMO LE HAGO? KIERO ENVIAR DATOS NUMERICOS POR EJEMPLO: 2, 5 , 56, 34, 78 ETC ETC, ASI TAL CUAL LOS MANDO POR EL MSCOMM? CON MSCOMM.OUTPUT Y LA MAQUINA LOS CAMBIA A BYTES? O LOS TENGO QUE CAMBIAR A BYTES? O COMO LE HAGO?

DE ANTEMANO GRACIAS AMIGOS PROGRAMADORES

Y PARA ENVIAR UNA IMAGEN CAPTADA POR UNA WEBCAM ESTO MEDIANTE EL CONTROL WINSOCK COMO SE LE HACE

HAST APRONTO AMIGOS

SoloCodigo

Autor Tema: Como Enviar Varios Datos Con Winsock (Leído 3019 veces)

oscar_937

Como Enviar Varios Datos Con Winsock

RadicalEd

Re: Como Enviar Varios Datos Con Winsock

oscar_937

Re: Como Enviar Varios Datos Con Winsock

RadicalEd

Re: Como Enviar Varios Datos Con Winsock

oscar_937

Re: Como Enviar Varios Datos Con Winsock

tiquinho

Re: Como Enviar Varios Datos Con Winsock

oscar_937

Re: Como Enviar Varios Datos Con Winsock