如何改写VB.NET内存指针

这篇文章主要为大家展示了“如何改写VB.NET内存指针”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“如何改写VB.NET内存指针”这篇文章吧。

为平远等地区用户提供了全套网页设计制作服务,及平远网站建设行业解决方案。主营业务为成都网站设计、成都做网站、平远网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!

近日心血来潮,花巨资购进多普达智能手机一台, 系统为微软的Smartphone2003 ,由于对"瘟倒死"操作系统的熟悉,很快已步入正轨,各种图片、程序安装了一大堆后,开始发挥自己的程序特长,试着为爱机写一个资源管理器的简单程序。

我选择的编程工具当然是Visual Basic NET2003,实话说Microsoft .NET Framework SDK 提供的功能实在不感恭维,微软好象又要将所有走上光明大道的.NET程序员拖入API的黑暗时代,指针、句柄、地址操作,最令人恼火就是没有为VB.NET程序做WinCE的API 声明(令人怀念VB6的API浏览器)很快我就在如何启动手机中的应用程序的代码上困住了,Net没有为WinCE提供Process 对象这种不付责任的做法害得我好苦啊!

开始时声明时老是将ShellExecuteEx 和CreateProcess这两个熟悉得不能再熟悉的Win32在VB 6中的声明直接粘到程序中,仅是将VB6的long改为NET的int32,结果老是报错。在网上查了N天资料,才发现原来Win CE的核心API都是在一个coredll.dll文件中,使得我差点没气死!还有一点是SHELLEXECUTEINFO结构中的lpFile这种指向字符串常量的指针由于字符的编码问题不能象在Win32编程中简单声明为String类型,所在必须声明为Intptr,这样问题就出现了,使用 ShellExecuteEx函数必须使用微软在VB.NET中不直接提供的指针操作,所以我只好根据网上的资料改写了一个对VB.NET内存指针的封装类,详细代码及解释如下(新建一个模块,将以下代码粘贴进去即可使用):

  1. Imports System.Runtime.InteropServices '引及Net框架中对底层操作支持的命名空间  

  2. Public Class clsDAMSMobileMarshal '我写的内存管理类  

  3. #Region "与内存有关的API声明"  

  4. REM 以下是与内存有关的移动设备API  

  5. Public Declare Function LocalAlloc Lib "coredll.dll" Alias "LocalAlloc" 
    (ByVal wFlags As Int32, _ByVal wBytes As Int32) As IntPtr  

  6. Public Declare Function LocalFree Lib "coredll.dll" Alias "LocalFree" 
    (ByVal hMem As Int32) As Int32  

  7. Public Declare Function LocalLock Lib "coredll.dll" Alias "LocalLock" 
    (ByVal hMem As Int32) As Int32  

  8. Public Declare Function LocalReAlloc Lib "coredll.dll" Alias "LocalReAlloc" 
    (ByVal hMem As IntPtr, _ByVal wBytes As Int32, ByVal wFlags As Int32) As IntPtr  

  9.  

  10. #End Region  

  11.  

  12. #Region "API常量声明"  

  13. Public Const LMEM_FIXED = 0 

  14. Public Const LMEM_MOVEABLE = &H2  

  15. Public Const LMEM_ZEROINIT = &H40  

  16. Public Const LPTR = LMEM_FIXED Or LMEM_ZEROINIT  

  17. #End Region  

  18.  

  19. Public Shared Function fnAllocHLocal(ByVal ni_i32Size As Int32) As IntPtr  

  20. '申请本地内存,返回一个指向该内存块的指针  

  21. Return LocalAlloc(LPTR, ni_i32Size)  

  22. End Function  

  23.  

  24. Public Shared Function fnFreeHLocal(ByRef ni_pLocal As IntPtr) As Int32  

  25. REM 释放指定的内存块柄  

  26. Dim ti32FunctionReturnValue As Int32  

  27. If ni_pLocal.Equals(IntPtr.Zero) = False Then  

  28. ti32FunctionReturnValue = (LocalFree(ni_pLocal.ToInt32))  

  29. If ti32FunctionReturnValue = 0 Then  

  30. ni_pLocal = IntPtr.Zero  

  31. End If  

  32. End If  

  33. Return (ti32FunctionReturnValue)  

  34. End Function  

  35.  

  36. Public Shared Function fnReAllocHLocal
    (ByVal ni_pIn As IntPtr, ByVal ni_i32Size As Int32) As IntPtr  

  37. '对指定的内存块重新定义大小  

  38. Return LocalReAlloc(ni_pIn, ni_i32Size, LMEM_MOVEABLE)  

  39. End Function  

  40.  

  41. Public Shared Function fnStringToHLocalUni(ByVal ni_strIn As String) As IntPtr  

  42. '将指定的字符串复制到一个内存块中,并返回该内存块的指针,这个指针必须使用fnFreeHLocal函数释放  

  43. Dim ti32StringBufLength As Int32  

  44. Dim tpTempA As IntPtr  

  45.  

  46. If Not (ni_strIn Is Nothing) Then  

  47. If ni_strIn.Length = 0 Then  

  48. Return IntPtr.Zero  

  49. Else  

  50. ti32StringBufLength = (ni_strIn.Length + 1) * 2 ' 包括***一个中止字符  

  51. tpTempA = fnAllocHLocal(ti32StringBufLength)  

  52. If tpTempA.Equals(IntPtr.Zero) = False Then '申请内存成功  

  53. Marshal.Copy(ni_strIn.ToCharArray, 0, tpTempA, ni_strIn.Length)  

  54. Return tpTempA  

  55. End If  

  56. End If  

  57. End If  

  58. End Function  

  59. End Class 

以上是“如何改写VB.NET内存指针”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


本文名称:如何改写VB.NET内存指针
本文地址:http://myzitong.com/article/geshoo.html