Problema con punteros

25/10/2004 - 11:23 por David Sans | Informe spam

Hola,

Tengo la siguiente duda. He realizado una función que transforma una variable de un formato a Single.

Me he quedo en el siguiente punto, tengo 4 bytes. con la variable transformada y ahora me interesa que estos 4 bytes sean los 4
bytes de una variable Single.

Creo que tengo que utilizar la función :

MARSHAL.COPY(Ieee, 0, PUNTERO_VARIABLE_SINGLE, 4)

La definición de las variables és la siguiente :
DIM Ieee(3) as Byte
DIM Resultado as Single
DIM PUNTERO_VARIABLE_SINGLE as IntPtr

Como se el puntero de la variable de tipo Single?
El volcado a la variable single esta bien?

Muchas gracias.
David

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]

26/10/2004 - 02:47 | Informe spam

Con VB.net no puedes obtener el puntero a la variable pues no soporta
punteros. Con C# si puedes usar punteros pero tiene sus restricciones. Si
pasar el codigo a C# no es una opcion lo unico que se me ocurre es que uses
un MemoryStream donde guardes los bytes y luego los leas como un Single.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Responder a este mensaje

#2 David Sans

26/10/2004 - 15:27 | Informe spam

Creo que la solución que me das ya me vale, mejor dicho es la mas apropiada, ya que lo que quiero hacer es convertir 4 bytes en un
single.
Pero como guardo los 4 bytes en MemoryStream y como los leo como Signle?

Muchas gracias.

"Eduardo A. Morcillo [MS MVP VB]" <emorcilloATmvps.org> escribió en el mensaje news:

Con VB.net no puedes obtener el puntero a la variable pues no soporta
punteros. Con C# si puedes usar punteros pero tiene sus restricciones. Si
pasar el codigo a C# no es una opcion lo unico que se me ocurre es que uses
un MemoryStream donde guardes los bytes y luego los leas como un Single.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Responder a este mensaje

#3 Eduardo A. Morcillo [MS MVP VB]

26/10/2004 - 17:38 | Informe spam

Pero como guardo los 4 bytes en MemoryStream y como los leo como
Signle?

Function ConvertirASingle(ByVal bytes() As Byte) As Single

' Creo el memory stream
Dim stream As New IO.MemoryStream(4)

Try
' Escribo los bytes en el stream
stream.Write(bytes, 0, 4)

' Vuelvo al comienzo del stream
stream.Position = 0

' Creo un BinaryReader para leer el Single
Dim reader As New IO.BinaryReader(stream)

' Leo y devuelvo el Single
Return reader.ReadSingle

Finally
stream.Close()
End Try

End Function

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Responder a este mensaje

#4 David Sans

28/10/2004 - 09:09 | Informe spam

Muchas gracias
Problema solucionado.

David

"Eduardo A. Morcillo [MS MVP VB]" <emorcilloATmvps.org> escribió en el mensaje news:

> Pero como guardo los 4 bytes en MemoryStream y como los leo como
> Signle?

Function ConvertirASingle(ByVal bytes() As Byte) As Single

' Creo el memory stream
Dim stream As New IO.MemoryStream(4)

Try
' Escribo los bytes en el stream
stream.Write(bytes, 0, 4)

' Vuelvo al comienzo del stream
stream.Position = 0

' Creo un BinaryReader para leer el Single
Dim reader As New IO.BinaryReader(stream)

' Leo y devuelvo el Single
Return reader.ReadSingle

Finally
stream.Close()
End Try

End Function

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida