elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Aver si alguien puede ayudarme con este codigo. BinaryWriter y BinaryReader
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Aver si alguien puede ayudarme con este codigo. BinaryWriter y BinaryReader  (Leído 3,411 veces)
70N1


Desconectado Desconectado

Mensajes: 355


Ver Perfil
Aver si alguien puede ayudarme con este codigo. BinaryWriter y BinaryReader
« en: 1 Octubre 2011, 02:54 am »

me da un fallo marcado abajo en verde


Código:
Imports system.io

Public Class Form1

    Const count As Integer = 100 * 1048576
' constante para la capacidad de buffer

    Public FileLen As Integer, inputPath As String
'declaro como publicas filelen que es el tamaño del archivo y inputpath que es el 'archivo de entrada


    Public Sub escribir(ByVal output1 As String, ByVal buffer() As Byte)

        Dim brWriter As System.IO.BinaryWriter
        Dim brReader As System.IO.BinaryReader
        Dim buffer(count) As Byte
        Dim bytesRead() As Integer

        FileLen = My.Computer.FileSystem.GetFileInfo(inputPath).Length

        While FileLen > 0
            ReDim buffer1(count )
          bytesRead(StrReverse(FileLen)) = brReader.Read(buffer, 0, (count))<---fallo
'hago una cuenta atras del tamaño del archivo          
 MsgBox(bytesRead)
            If bytesRead(StrReverse(FileLen)) = 0 Then
'observo si bytesread esta vacio
                Exit While
            End If
            brWriter.Write(buffer, 0, bytesRead(StrReverse(FileLen)))
' escribo en el archivo el buffer que es un array de bytes
            FileLen = FileLen - bytesRead(StrReverse(FileLen))
' resto los bytes leidos
        End While
        brWriter.Close()
        brReader.Close()
        End
    End Sub
End Class

Si pudiecen exarme una manita... se escribir en el archivo todos los bytes completos de una, pero lo que quiero es escribir bytes por bytes.


« Última modificación: 1 Octubre 2011, 03:09 am por 70N1 » En línea

70N1
Keyen Night


Desconectado Desconectado

Mensajes: 496


Nothing


Ver Perfil
Re: Aver si alguien puede ayudarme con este codigo. BinaryWriter y BinaryReader
« Respuesta #1 en: 2 Octubre 2011, 00:50 am »

¿Por qué no lo haces con Stream? tan sencillo como abrir un FileStream, recorrer los Bytes a escribir, escribilos con .WriteByte() y cerrar el Stream. con menos de 10 líneas de código lo haces.


En línea

La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...
70N1


Desconectado Desconectado

Mensajes: 355


Ver Perfil
Re: Aver si alguien puede ayudarme con este codigo. BinaryWriter y BinaryReader
« Respuesta #2 en: 18 Octubre 2011, 13:53 pm »

ok. muchas gracias
En línea

70N1
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines