این دستور Memory.AllocHLocal توی این کد ارور میده، چکارش کنم؟

[javad2000]

سلام

لطفاً این نمونه کد رو نگاه کنید، خط هایی که دستور Memory در آنها به کار رفته (با فلش مشخص کرده ام) این ارور را می دهند:
Name 'Memory' is not declared

باید چکار کنم؟
(در ضمن لطفاً از اشتباهاتی که در کد زیر به دلیل دستکاری ویرایشگر تالار ایجاد شده، مثل چسبیدن بعضی کلمات به هم چشمپوشی کنید)

PrivateStructure RASCONN

Dim dwSize AsInteger

Dim hRasCon As IntPtr

Dim szEntryName() AsChar

EndStructure

<DllImport("coredll.dll", SetLastError:=True)> _

PrivateSharedFunction RasEnumConnections(ByVal lpRasCon As IntPtr, ByRef lpCb AsInteger, ByRef lpcConnections AsInteger) AsInteger

EndFunction

PublicSharedFunction EnumerateConnections() AsBoolean

Dim structPtr As IntPtr

Dim size, lpCb, lpcConn AsInteger

Dim rasConn AsNew RASCONN

size = Marshal.SizeOf(rasConn) + (20 * Marshal.SystemDefaultCharSize)

rasConn.dwSize = size

ReDim rasConn.szEntryName(20)

lpCb = size

'--------------------->

structPtr = memory.AllocHLocal(size)

Marshal.StructureToPtr(rasConn, structPtr, False)

If (RasEnumConnections(structPtr, lpCb, lpcConn) = 0) Then

For i AsInteger = 0 To lpcConn - 1

rasConn = CType(Marshal.PtrToStructure(structPtr, GetType(RASCONN)), RASCONN)

Next

Else

ReturnFalse' failure

EndIf

'--------------->

Memory.FreeHLocal(structPtr)

ReturnTrue' success

EndFunction

 

 

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(Me.EnumerateConnections)

EndSub

[__H2__]

سلام
خوب واضح است، اصلاٌ ماژولی به نام Memory نداریم.
مثل اینه که من همینوطر بنویسیم "برو و تابع Ali را اجرا کن" باید تابع Ali وجود داشته باشه یا نه؟؟؟؟؟

احتمالاً کدهای فوق را از C گیر آورده اید.
به هرحا برای حافظه گیری برای Structure ها نیازی به هیچ کاری نیست. ذات تعریف یک Structure در VB.Net موجب حافظه گیری خودکار میشود، به آزاد سازی حافظه هم کلاً نیازی نیست.

شاید کد زیر مشکلتان را حل کنید

Private Declare Ansi Function RasEnumConnections Lib"coredll.dll" (<System.Runtime.InteropServices.MarshalAs(Runtime  .InteropServices.UnmanagedType.LPStruct)> ByVal lpRasCon As RASCONN, ByRef lpCb As Integer, ByRef lpcConnections As Integer) As Integer

 

Private Structure RASCONN

  Public dwSize As Integer

  Public hRasCon As Integer

 

  <Global.Microsoft.VisualBasic.VBFixedString(20)> Public szEntryName As String

 

  '<Global.Microsoft.VisualBasic.VBFixedArray(19)> _

  '<System.Runtime.InteropServices.MarshalAs(Runtime  .InteropServices.UnmanagedType.LPStr)> _

  'Public szEntryName() As Char





  Public Sub New(ByVal CharSize As Integer)

      Me.szEntryName = New String(" "c, CharSize)

     'Me.szEntryName = NewChar(CharSize) {}

      Me.dwSize = 4 + 4 + 20

  End Sub

End Structure

 

Public Shared Function EnumerateConnections() As Boolean

  Dim lpCb, lpcConn As Integer

  Dim rasConn As New RASCONN(20)

  lpCb = rasConn.dwSize



  If RasEnumConnections(rasConn, lpCb, lpcConn) = 0 Then

      'Already rasConn

      Return True' success

  Else

      Return False' failure

  End If

End Function

اگر به حالت آرایه خواستید میتوانید دستورات نارنجی رنگ را فعال کنید و دستور بالایی را حذف کنید

در مورد جایی هم که در خط اول بولد شده.
بهتر است ترکیبات دیگر مثل:
Struct)> ByVal
LPStruct)> ByRef
Struct)> ByRef

را هم امتحان کنید، یکی از این چهار ترکیب به خوبی جواب میدهد ولی الآن یادم نیست و وقت امتحان کردن هم ندارم.

ضمناً دستور For شما کاملاً بی معنی بود.

[javad2000]

سلام
تا حالا حداقل 15 تا Sample Code از جاهای مختلف دریافت کردم که همه شون روش درست برای فراخوانی تابع RasenumConnections رو نشون میدن فقط همه شون یه ایراد کوچک دارند. اون هم این که کار نمی کنند.

این نمونه کد شما هم همینطوره. هر کاری می کنم نمیتونم کارش بندازم.
بابا من یه تازه کارم. یکی یه کد تست شده بده لطفاً که خیلی لازم دارم.
خیلی ممنون