IDE рушится при работе с GetMem

[VBTerminator]

Работая с API-функцией GetMem, я обнаружил одну неприятную особенность: если она работает с переменной, находящейся вне области видимости вызывающего её места, то IDE рушится. Поясню на примере:

Код: Выделить всё

Option Explicit

Public Declare Function GetMem4 Lib "msvbvm60" _
    (ByVal pSrc As Long, ByVal pDst As Long) As Long


Sub MAIN()
   
    Dim myvar As Long
    myvar = 1234
   
    CopyMyVar VarPtr(myvar)
   
End Sub

Public Sub CopyMyVar(ByVal VarAddr As Long)
   
    Dim copy As Long
    GetMem4 VarAddr, copy    'Здесь и происходит обрушение
   
    MsgBox copy
   
End Sub


Вопрос: как обойти эту проблему, особенно если процедура CopyMyVar() будет располагаться во внешней DLL-библиотеке как API-функция?

[Debugger]

Public Sub CopyMyVar(ByVal VarAddr As Long)

Dim copy As Long
GetMem4 VarAddr, copy 'Здесь и происходит обрушение

MsgBox copy

End Sub

VarAddr, исходя из названия - адрес переменной. Значит, первый аргумент - адрес.
copy, судя по всему - просто переменная, куда ты хочешь скопировать. Значит, со вторым аргументом беда: ты хочешь скопировать что-то из адреса VarAddr в ноль (copy = 0). Отсюда вылет.
Вроде бы так.

[Alec]

VarAddr, исходя из названия - адрес переменной. Значит, первый аргумент - адрес.

http://bbs.vbstreets.ru/viewtopic.php?f=68&t=36758

[Debugger]

Ссылка никак не связана с цитатой. Разве я отговариваю от использования GetMem?

Либо

Код: Выделить всё

GetMem4 VarAddr, VarPtr(copy)

- передаются 2 указателя, всё хорошо

Либо

Код: Выделить всё

Public Declare Function GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, ByRef pDst As Long) As Long
. . .
GetMem4 VarAddr, copy


При этом мы указываем, что pDst всегда будет ссылкой. Не очень красиво мешать смысл аргументов таким способом (как это сделал автор).

Либо

Код: Выделить всё

Public Declare Function GetMem4 Lib "msvbvm60" _
    (ByRef pSrc As Long, ByRef pDst As Long) As Long
. . .
GetMem4 ByVal VarAddr, copy


Указываем, что мы передаём ссылки, но передаём адрес как ByVal.

Первый и последний варианты предпочтительней.

[Хакер]

Debugger во втором посте всё правильно сказал. Вообще, объявляйте всегда As Any, будет возможность при вызове указать ByVal или ByRef вы хотите.

[Alec]

Ссылка никак не связана с цитатой. Разве я отговариваю от использования GetMem?

Что ты, конечно нет. Просто я не знаю как сделать ссылку на определенный абзац другого топика. Имелось ввиду:

(Обе функции принимают src и dst -- адреса откуда копировать и куда копировать. CopyMemory принимает ещё и length -- сколько копировать).
Что делает GetMem4:
В eax записывается src.
В ecx записывается dst
В eax записываются 4 байта по адресу, хранящемуся в eax.
В память, по адресу, хранящемуся в ecx, записывается значение (те самые 4 байта), которые хранятся в eax.

[Filyus]

Используйте Type Library, тогда вызовы будут быстрее и удобнее.
Примеры объявлений (создаём в Visual C++ или в блокноте файл mem4.id):

Код: Выделить всё

[
  uuid(30A98234-7CB6-44c8-94CA-D166BAE71234),
  version(1.0),
  helpstring("Using GetMem4")
]
library GetMem4
{   importlib("stdole2.tlb");

   [
      dllname("msvbvm60"),
      helpstring("GetMem4 Functions")
   ]
   module msvbvm60 {

       [entry("GetMem4"), propget,helpstring("Returns or sets the value referenced by the source parameter cast to a DWord Long.")]
      HRESULT __stdcall AsLong(
         [in]          void *            Ptr,
         [out, retval]   long *            lpRetVal
      );
       [entry("PutMem4"), propput,]
      HRESULT __stdcall AsLong(
         [in]            void *            Ptr,
         [in]            long               NewValue
      );

      [entry("GetMem4"),helpstring("Returns the argument cast to a DWord structure.")]
      HRESULT __stdcall AsDWord([in] void * Ptr, [out, retval] DWord * lpRetVal);
      
       [entry("GetMem4"), propget,helpstring("Sets or returns the 32-bit Long integer value at the specified memory address.")]
      HRESULT __stdcall Mem(
         [in]          long               Address,
         [out, retval]   long *            lpRetVal
      );
       [entry("PutMem4"), propput,]
      HRESULT __stdcall Mem(
         [in]            long               Address,
         [in]            long               NewValue
      );

       [entry("GetMem4"), propget,helpstring("Returns or sets the value of the source string's BSTR pointer. This property allows read/write access to the same value that is returned by Visual Basic's (hidden) StrPtr function.")]
      HRESULT __stdcall StringPtr(
         [in]          BSTR *            Source,
         [out, retval]   long *            lpRetVal
      );
       [entry("PutMem4"), propput,]
      HRESULT __stdcall StringPtr(
         [in]          BSTR *            Source,
         [in]            long            NewValue
      );

       [entry("GetMem4"), propget,helpstring("Returns or sets the value of an array's SAFEARRAY descriptor pointer. This property allows read/write access to the value referenced by the pointer returned by ArrPtr. Use StrSAPtr for string arrays to prevent the implicit ANSI/Unicode conversion.")]
      HRESULT __stdcall SAPtr(
         [in]          SAFEARRAY(void) *   Array,
         [out, retval]   long *            lpRetVal
      );
       [entry("PutMem4"), propput,]
      HRESULT __stdcall SAPtr(
         [in]          SAFEARRAY(void) *   Array,
         [in]          long               NewValue
      );

       [entry("GetMem4"), propget,helpstring("Returns or sets the value of the SAFEARRAY descriptor pointer of a string array. This property allows read/write access to the value referenced by the pointer returned by StrArrPtr.")]
      HRESULT __stdcall StrSAPtr(
         [in]          SAFEARRAY(BSTR) *   Array,
         [out, retval]   long *            lpRetVal
      );
       [entry("PutMem4"), propput,]
      HRESULT __stdcall StrSAPtr(
         [in]          SAFEARRAY(BSTR) *   Array,
         [in]          long               NewValue
      );
      
       [entry("GetMem4"),propget,helpstring("Expects a ByRef object argument and returns or sets the value of the object pointer. This property allows read/write access to the same value that is returned by ObjPtr.")]
      HRESULT __stdcall ObjectPtr(
         [in]          void *             Object,      // IUnknown **
         [out, retval]   long *            lpRetVal
      );
       [entry("PutMem4"),propput,]
      HRESULT __stdcall ObjectPtr(
         [in]          void *             Object,      // IUnknown **
         [in]          long               NewValue
      );
      
       [entry("GetMem4"),propget,helpstring("Returns or sets the value of the source object's VTable interface pointer. This property allows read/write access to the value referenced by the pointer returned by both ObjPtr and ObjectPtr. Should not be used on objects equal to Nothing.")]
      HRESULT __stdcall VTablePtr(
         [in]          IUnknown *         Object,
         [out, retval]   long *            Value
      );
       [entry("PutMem4"),propput,]
      HRESULT __stdcall VTablePtr(
         [in]          IUnknown *         Object,
         [in]          long               NewValue
      );

       [entry("GetMem4"),helpstring("Assigns a 32-bit dword value from the source to the destination parameter's memory location.")]
      HRESULT __stdcall AssignDWord(
         [in]      long               Source,
         [in, out]   void *               Destination
      );

   };

};


Для компиляции введите в командоной строке или пропишите в .BAT-файле:

Код: Выделить всё

cd C:\Program Files\Microsoft Visual Studio\VC98\Bin\
MIDL.exe mem4.idl


Добавьте полученный TLB-файл в VB (меню Project -> References -> Browse..) *
Доступные методы можно посмотреть по F2.

* Перед использованием Type Library, импортирующей msvbvm60.dll, установите Visual Studio Service Pack 6.

Ваш пример с использованием Type Library:

Код: Выделить всё

Option Explicit

Sub Main()
  Dim myvar As Long
  myvar = 1234
  CopyMyVar VarPtr(myvar)
End Sub

Public Sub CopyMyVar(ByVal VarAddr As Long)
  MsgBox Mem(VarAddr)  'показывает 1234
End Sub


[Хакер]

Используйте Type Library, тогда вызовы будут быстрее и удобнее.

viewtopic.php?f=68&t=42926

[VBTerminator]

Всем большое спасибо!

Я думал, что это проблема областей видимости, а оказалось - банальная опечатка!