Передать pointer на свою структуру.

[SergeySV]

Подскажите как лучше передать указатель на структуру в функцию API.

Когда например мы обрабатываем сообщение WM_ или функцию API, которая возвращает указатель (pointer) lParam, на структуру в памяти tNCR. То мы в VB делаем так:
1. создаем аналогичную пустую структуру
2. используем функцию CopyMemory lParam, ByVal tNCR, Len(tNCR) для заполнения нашей структуры по указателю lParam

Можно почти также и обратно запихнуть изменные нами данные в в первоначальную структуру: CopyMemory ByVal lParam, tNCR, Len(tNCR)

Но во всех этих вариантах винды уже создавали структуры, выделяли им память, а нам передавали указатель на нее.
А вот если мне надо наоборот, мне нужно создать структуру, заполнить ее и передать в функцию API указатель на мою структуру.... как это можно реализовать? Подскажите оптимальное решение?

У меня пока на выбор токо функции типа LocallAlloc...Free, HeapAlloc....Free, VirtualAllocEx ..... еще вроде через Shell32 - GetMalloc что-ли....... может я что-то упускаю, есть проще варианты?

[RayShade]

Есть такая штука как AddressOf. Обычно ей и пользуются в таких случаях.

[SergeySV]

Есть такая штука как AddressOf. Обычно ей и пользуются в таких случаях.

Пробовал я ее присобачить, но у меня во первых сложилось впечатление что это оператор только для функций..(хотя может я и ошибаюсь), но главное, у меня проблема немного посложнее:

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

Private Type NCCALCSIZE_PARAMS
   .......
   lppos As Long       'pointer на струк. WINDOWPOS
End Type

Private Type WINDOWPOS
   hwnd As Long
   .......
   flags As Long
End Type


И передать мне надо lParam, который является указателем (pоinter) на структ. NCCALCSIZE_PARAMS. Получается в одной структуре я должен сохранить указатель на другую.

Если подсунуть NCCALCSIZE_PARAMS через AddressOf еще можно:
SendMessage vchWnd, WM_NCCALCSIZE, True, AddressOf lParam
(надо еще проверить через Spy++ что там передаться)

то написать вот так:
Dim tWinpos as WINDOWPOS

With NCCALCSIZE_PARAMS
....
.lppos = AddressOf tWinpos
End With
для lppos компиллятор мне не дает.

Только конечно если через какй-нибудь вспомог. функцию все это провернуть.....?! попробую ща посмотреть

[SergeySV]

Неаа, ща еще раз проверил.
Не хочет AddressOf работать с типами, только с Sub, Function, Property

Кто еще что может предложить,.... так, по ходу дела

[SergeySV]

Мдам....
Значит:
обращение к COM SHGetMalloc (shell32) вызвал крах.
функ. LocalAlloc отработала нормально, но возвращенный ей адрес отвергла функция SendMessage и вызвала очередной крах...

[SergeySV]

Блин, нет слов, перерыв MSDN, совершенно случайно наконец наткнулся на статью: http://msdn.microsoft.com/library/defau ... topic1.asp - Win32 API Programming with Visual Basic

из которой узнал, что оказывается есть такие замечательные недокументированные функции:

VarPtr, StrPtr

которые возвращают адрес: для VarPtr - адрес объектной переменной , StrPtr адрес строки сконв. в формат BSTR
Причем используя VarPtr можно получить адрес даже конкретного элемента своей структуры, а не только ее начало


Эти недокументированные функции валяются в скрытом модуле под названием, конечно же - _HiddenModule. Сделайте в свойствах Show Hidden Members и увидите его.

Ох уж это мелкософт...

[GSerg]

Рейшейду кол за незнание матчасти

Структуры в VB передаются только по указателю и никак иначе. Поэтому объявление апишки типа

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

Declare Function CreateBrushIndirect Lib "gdi32" Alias "CreateBrushIndirect" (lpLogBrush As LOGBRUSH) As Long

суть передача указателя на структуру, и собственно всё.

[SergeySV]

Хм, все.... то что API функции часто передают указатели на структуры я это знал давно и все время с ними работал,..............
но никогда до этого дня мне не приходилось создавать свою структуру и передавать API-функции указатель на нее, как это часто делает она сама (прошу не путать с заполнением структуры по указателю через CopyMemory)