Array Bytes
08/09/2008
0
Preciso gerar uma array de byte de um arquivo de texto ou imagem, me passaram o seguinte exemplo em VB.NET, gostaria de saber se alguem poderia me explicar a função abaixo, pois ainda tenho que passa-la para Visual FoxPro.
Private Function ByteArrayArquivo(ByVal caminho As String) As Byte()
Dim sr As New StreamReader(caminho)
Dim st As Stream = sr.BaseStream
Dim br As New BinaryReader(st)
Dim arrBytes() As Byte = br.ReadBytes(st.Length + 1)
br.Close()
st.Close()
Return arrBytes
End Function
Obrigado.
Private Function ByteArrayArquivo(ByVal caminho As String) As Byte()
Dim sr As New StreamReader(caminho)
Dim st As Stream = sr.BaseStream
Dim br As New BinaryReader(st)
Dim arrBytes() As Byte = br.ReadBytes(st.Length + 1)
br.Close()
st.Close()
Return arrBytes
End Function
Obrigado.
Fms-marques
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)