Mensajes

Yo creo que si esta conectado porque logro enviar el mensaje sin problemas desde el SERVIDOR para el CLIENTE, y quiero poder hacer lo mismo del CLIENTE para el SERVIDOR, nada mas entra en ese Sub cuando cierro el Socket !!

Salu2 y gracias cualquier ayuda !!

Hola bro,

Gracias por tu pronta respuesta...

Como decia aún con tu ejemplo no se solucciona la problemática y es que cuando hago el debug y me detengo a ver la el contenido de la variable es este:

"""Hola"" ""Mundo"" ""Mi"" ""Primer"" ""Mensaje"""

Y yo necesito que este asi:

"Hola" "Mundo" "Mi" "Primer" "Mensaje"

Para pasarlo a otra función...

Toy trabajando con este proyecto

http://tech.reboot.pro/showthread.php?tid=86&highlight=sockets

Y le falta la opción de que el cliente pueda enviar datos al servidor.

El desarrollador añadio esto en el cliente

Código (vbnet) [Seleccionar] Expandir


    Private Sub Send(ByVal msg As String, ByVal clientSocket As Socket)
        'get bytes to send
        Dim sendBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(msg)
        'begin sending (notice the client is sent as an AsyncState)

        clientSocket.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), clientSocket)
    End Sub

    Private Sub OnSend(ByVal ar As IAsyncResult)
        Dim client As Socket = ar.AsyncState
        client.EndSend(ar)
    End Sub


Esto al parecer funciona y digo al parecer porque aun no logro recibirlo en el servidor, el autor dice que para ello usen el mismo codigo que tiene el cliente, lo añado y sigue sin funcionar

Código (vbnet) [Seleccionar] Expandir


    Private Sub OnAccept(ByVal ar As IAsyncResult)
        clientSocket = serverSocket.EndAccept(ar)
        serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
        AddClient(clientSocket)
'Línea añadida para recibir dato       
clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, New AsyncCallback(AddressOf OnRecieve), clientSocket)

    End Sub

    Private Sub OnRecieve(ByVal ar As IAsyncResult)
        Dim client As Socket = ar.AsyncState
        client.EndReceive(ar)
        Dim bytesRec As Byte() = byteData
        Dim message As String = System.Text.Encoding.ASCII.GetString(bytesRec)
        Read(message)
        clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, New AsyncCallback(AddressOf OnRecieve), clientSocket)
    End Sub

    Delegate Sub _Read(ByVal msg As String)
    Private Sub Read(ByVal msg As String)
        If InvokeRequired Then
            Invoke(New _Read(AddressOf Read), msg)
            Exit Sub
        End If
        RichTextBox1.Text &= msg
    End Sub



Depurandolo nunca entra en esos metodos unicamente cuando cierro el cliente es que el entonces entra y genera un error porque el socket esta cerrado y no puede leer nada.

Alguna idea..

Salu2

Gracias lo veré

Salu2

Estoy tratando de que un STRING que se guarda en una variable me quede así:

"Hola" "Mundo" "Mi" "Primer" "Mensaje"

La cuestión es que estoy usando el Chr(34) para crear este resultado pero cuando debugueo la aplicación me doy cuenta que para obtener este resultado el se ve así:

""Hola"" ""Mundo"" ""Mi"" ""Primer"" ""Mensaje""

Ahora esto me representa un problema y es que si quiero trabajar con ese STRING tengo que hacer malabares por las doble comillas, me di cuenta que al insertarlo en un TEXTBOX queda como en el primero, osea que tendría que crear un objeto TEXTBOX pegar el resultado y recuperar el TEXTO de él sin las doble comillas y poder continuar.

Hay alguna otra forma de hacerlo sin necesidad de ese paso ?

Saludos y gracias

Muchas gracias lo analizaré y acomodaré.

Thx a lot..

Holas,

Cuando yo pongo la restriccion de la cantidad de conexiones que puede realizar un usuario al mismo tiempo y este lo sobre pasa el SQUID no me lo debería de informar ?

Salu2

Necesito pasar una estructura:

Usuario
Contraseña
Ip

Pudiera usar la misma idea, verdad?

La duda que tengo y me tiene pensativo es como paso esa estructura de una forma no muy rebuscada (para futuro entendimiento) hacia la otra aplicación y esta la pueda utilizar sin mucha complicación.

Salu2 y gracias de antemano

Añado que desde el Server Explorer del Visual Studio me deja conectarme perfectamente y ver todas las tablas sin problema alguno el lio es cuando supongo va a enlazarlo con el projecto como tal pienso yo.

Salu2

Estoy tratando de conectarme a una BD en MySql baje el conector para integrarlo con el Visual Studio y todo bien me carga las tablas una vez que hago la conexion pero cuando voy a continuar despues de

"Choose your data connection"

me da un error

cannot obtain provider factory for data provider named 'Mysql.Data.MysqlClient'

busque por la web posibles soluciones, no logro resolverlo añadi la dll y nada tengo vs2105

desde ya gracias