Ayuda cliente/servidor



  • nesesito que del lado del servidor cuando yo aga click en un boton, del otro lado (del lado del cliente) aya otro boton que aparesca una X

    aca estan los codigos del cliente

    Private Sub Command1_Click()
    If Winsock1.Connect Then
    Command1.Caption = "X"

    End Sub

    Private Sub Command2_Click()
    Winsock1.RemoteHost = Text1.Text
    Winsock1.RemotePort = Text2.Text
    Winsock1.Close
    Winsock1.Connect
    End Sub

    Private Sub Command3_Click()
    Winsock1.Close
    End Sub

    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Winsock1.GetData Buffer

    End Sub

    y aca los del servidor

    Private Sub Command1_Click()
    Winsock1.Close
    Winsock1.LocalPort = Text1.Text
    Winsock1.Listen

    End Sub

    Private Sub Command2_Click()
    Winsock1.Close
    End Sub

    Private Sub Command3_Click()
    Command3.Caption = "X"
    End Sub

    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID

    End Sub

    Private Sub Winsock1_Close()

    Winsock1.Close

    End Sub

    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

    Dim Buffer As String
    Winsock1.GetData Buffer
    End Sub

    se que hay errores si alguno me ayuda

    la idea es que si yo toco un boton de un lado aparesca del otro lado (en otro boton) una X



  • Osea vos buscas tocar un boton en el cliente y q en el servidor se ponga una X?

    En el boton tendrias q poner que si esta coenctado, haga un SendData de determinada palabra, numero o lo que sea.
    Y en el dataArrival del otro (servidor si es q el que envia fue el cliente) lo que haces es obtener lo q llega guardarlo en el buffer, y ademas preguntar si lo que tiene el buffer es lo que mandaste desde el cliente (tu palabra, numero o lo q metiste).
    Si es lo que mandaste, ahi aplicar el cambio del caption.

    Porque por como lo tenes ahi, lo que haces es q cuando clickeas el boton se le ponga la X a ese mismo boton, y ademas tus dataarrival no hacen nada, y en ningun lado estas enviando informacion.

    Hay un tutorial para cliente servidor dando vueltas por aca, buscalo y fijate si te puede ayudar.


Log in to reply