Programacion con Sockets

[LOUNELSON]

HOLA ME LLAMO LOURDES
PORFAVOR NECESITO AYUDA EN VERDAD PARA APROBAR MI CLASE...DIOS LES BENDIGA
ESTOY PROGRAMANANDO UN SERVER TIPO FTP...LO QUE NECESITO ES ENVIAR UN ARCHIVO DE TEXTO DEL CLIENTE AL SERVER HE AUI ALGUNOS PUNTOS Y EL CODIGO QUE YA TENGO...



CLIENTE...
Una vez seleccionado el archivo, el nombre del mismo debe ser  enviado al servidor por
medio de un mensaje “ARCHIVO: <nombre del archivo>”.
  Después de enviar el nombre del archivo, el cliente debe esperar un mensaje “OK” para
empezar a transmitir el archivo texto. 
  El archivo debe ser transmitido línea por línea.
  Cuando  se  lea  el  fin  de  archivo,  se  debe  enviar  un mensaje  “FIN”  al  servidor  y  debe
desplegar un mensaje “Archivo Transmitido Satisfactoriamente”.

Código [Seleccionar] Expandir


Imports System.Net
Imports System.Net.Sockets
Imports System.IO

Public Class Form1
    Dim clienteSocket As New System.Net.Sockets.TcpClient()
    Dim serverStream As NetworkStream
    Dim fs As FileStream = Nothing
    Dim NombreArchivo As String

    Public Sub txtConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtConectar.Click
       
        Try
            clienteSocket.Connect(txtIP_FTPServer.Text, txtPuerto_FTPServer.Text)
            txtEstatus.Text = "Estatus : Connectado ..."
            serverStream = clienteSocket.GetStream()
            txtLog.Text = "" & "Conectado" & vbCrLf
        Catch ex As Exception
            txtEstatus.Text = "Error de conexión : " & ex.Message
        End Try
    End Sub
    Private Sub txtBuscarArchivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBuscarArchivo.Click
        NombreArchivo = "c:\temp\" & txtfileName.Text & ".txt"

        Try                                     
            OpenFileDialog1.ShowDialog()
            NombreArchivo = OpenFileDialog1.FileName
            txtfileName.Text = NombreArchivo

        Catch ex As Exception
            MsgBox("Error al crear/abrir archivo : " & NombreArchivo & " " & ex.Message) 'metodo indica q tipo de error es el que se encuentra
        End Try

    End Sub
    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click ' enviar informacion
        Dim nombre As String
        nombre = Path.GetFileName(NombreArchivo)

        Dim outStream As Byte() = System.Text.Encoding.ASCII.GetBytes("ARCHIVO: " & nombre) 'ESTE OBJETO SE NECESITA SIEMPRE
        Dim buffSize As Integer ' PARA QUE EL SERVIDOR SEPA CUANTA INFO SE LE VA A ENVIAR

        Dim inStream(10024) As Byte
        Dim returndata As String = System.Text.Encoding.ASCII.GetString(inStream)
        Try
            'PARA ENVIARLE DATA AL SERVIDOR
            serverStream.Write(outStream, 0, outStream.Length) ' PARA ENVIAR LA INFO...ARREGLO DE BYTES, DESDE DOMDE COMIENZA LA INFO, CUANTO LE ESTAMOS ENVIANDO
            serverStream.Flush()
         
            txtLog.Text = txtLog.Text & "Cliente dice >> " & "ARCHIVO: " & nombre

            'Socket recibida del server
            buffSize = clienteSocket.ReceiveBufferSize
            serverStream.Read(inStream, 0, buffSize)
            returndata = System.Text.Encoding.ASCII.GetString(inStream)

            txtLog.Text = txtLog.Text & returndata & vbCrLf

            txtEstatus.Text = "Socket desconectado"

        Catch ex As Exception
            txtEstatus.Text = "Error : " & ex.Message
        End Try
   
    End Sub

    Private Sub btnDesconectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDesconectar.Click
        serverStream.Dispose() ' CERRAR LA CONEXION
        clienteSocket.Close()
    End Sub
End Class




EL SERVIDOR..........

Después de aceptar la conexión del cliente, el servidor debe parsear el mensaje:
o  Si  el mensaje  inicia  con  el  substring  “NOMBRE:  “, debe  leer  el  resto del  string y
crear el archivo con el nombre  recibido en el mensaje,  luego enviar un mensaje
“OK” al cliente.
o  Si el mensaje  inicia con el substring “FIN”, el servidor debe cerrar el archivo que
creó.
o  Si  el mensaje no  comienza  con ninguna de  las  substrings  anteriores,  el  servidor
debe grabar completamente el mensaje en el archivo de texto.
El servidor debe grabar el archivo en la carpeta c:\temp por default.


Imports System.Net
Imports System.Net.Sockets
Public Class Form1
    Dim serverstream As NetworkStream
    Dim server As TcpListener

    Private Sub btnActivar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnActivar.Click

        Dim IPLocal As IPAddress = IPAddress.Parse(txtIP_FTPServer.Text) 
        Dim Puerto As Integer = Val(txtPuerto_FTPServer.Text)
        Dim clienteSocket As TcpClient
        server = New TcpListener(IPLocal, Puerto)

        Try
            txtLog.Text = "Chat Server activo ...." & vbCrLf
            Application.DoEvents()

            server.Start()
            clienteSocket = server.AcceptTcpClient()

            While (True)
                Dim bytesFrom(10024) As Byte 'ARREGLO DE BYTES
                Dim dataFromClient As String
           
                'Socket recibido del cliente

                Dim networkStream As NetworkStream = clienteSocket.GetStream()
                networkStream.Read(bytesFrom, 0, CInt(clienteSocket.ReceiveBufferSize))

                dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom) 'CONVERTIR EL ARREGLO DE BYTES Q VIENE A TYPO STRNG , EN CODIF ASSCI, TIPO TEXTO Y SE ASIGNA A DATAFROMCLIENTE
                ' dataFromClient = dataFromClient.Substring(0, dataFromClient.IndexOf("$")) 'REMOVER EL SIMBOLO
                Application.DoEvents()

                txtLog.Text = txtLog.Text & "Cliente dice >> " & dataFromClient & vbCrLf

                'Código que responde al cliente

                Dim serverResponse As String = "Servidor dice >> ok"

                Dim sendBytes As [Byte]() = System.Text.Encoding.ASCII.GetBytes(serverResponse)
                networkStream.Write(sendBytes, 0, sendBytes.Length)
                networkStream.Flush()

                txtLog.Text = txtLog.Text & serverResponse & vbCrLf
                Me.Refresh()
            End While
        Catch ex As Exception
            MsgBox("Error " & ex.Message)
        End Try
        server.Stop()

    End Sub
End Class


[spiritdead]

primero que todo, el titulo del post no va en mayus :/

segundo te recomiendo usar serialize de objetos y crees 1 libreria (DLL) con un tipo de structure que usaras al serializar, y asi pdoer transmitirlo del cliente al server

la cosa es investigar pero vas bien, al usar sockets