Programación General > Visual Basic 6.0 e inferiores

 Como Enviar Varios Datos Con Winsock

(1/2) > >>

oscar_937:
:devil: HOLA A TODOS :devil:

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 :devil:

RadicalEd:
TAL VES ASI

--- Código: Text --- Private Sub CmdSend_Click()Dim send1, send2, send3 As Stringsend1 = Text1.Textsend2 = Text2.Textsend3 = Text3.TextWinsock1.SendData send1, send2, send3End Sub  

oscar_937:
GRACIAS RADICALE

DESDE AHORA PROBARE TU CONSEJO  :hola:

DESPUES ESCRIBO PARA DARTE RESULTADOS

SEE YOU

ATM OSCAR :comp:

RadicalEd:
:D JEJEJE :D  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 StringWinsock1.GetData datos1Text1.Text = Text1.Text + datos1Winsock1.GetData datos2Text2.Text = Text2.Text + datos2Winsock1.GetData datos3Text3.Text = Text3.Text + datos3End 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 :comp:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente