Turning a MemoryBlock of Bytes back into an integer.

[Christian Miller <rblists@pariahware.com>]

I'm receiving a DWORD (integer) from a Windows API call.  I toss the integer 
into a 4 byte MemoryBlock.  Some how I need to convert the bytes back into an 
integer.  The routine is as follows:

I'm pretty sure I need to do some bitwise math on the bytes pulled out, but I'm 
just not getting it right.  Please help. Thanks. :)

Private Function IntegerToPort(int as UInt32) As String
  dim myNewMagicBlock as new MemoryBlock(4)
  myNewMagicBlock.UInt32Value(0) = int
  
  dim a, b, c, d as byte
  dim e as UInt64
  dim f as string
  
  a = myNewMagicBlock.Byte(0)
  b = myNewMagicBlock.Byte(1)
  c = myNewMagicBlock.Byte(2)
  d = myNewMagicBlock.Byte(3)
  'e = ?
  f = Str(e)

  Return f
  
End Function


Christian
Pariahware, Inc.
Mac, Windows, Linux, & iPhone Consulting
<pariahware@pariahware.com>
<http://www.pariahware.com>
--
God loved you so much that He gave His only son Jesus.  What have you done with 
God's gift?






_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>