Создание переменной

[Tarantul]

Как в VB создать буфер определенной длинны и получить на него указатель (API функция ?). Другими словами, как найти замену обычному выражению
Dim Var as SomeType
И еще, как освободить выделленую память, если буфер уже не нужен?

[tyomitch]

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

Dim b() As Byte
...
ReDim b(1024)
MsgBox VarPtr(b(0))
...
Erase b


[Jenizix]

Сразу видно человек пришел к нам из мира С++ и прямого кода... ИМХО

[Tarantul]

На самом деле я не пришел из мира C++, а мне надо "вручную" создать строку, имея указатель на BSTR(Указатель на указатель), а BSTR указывает на массив символов, который, мне собственно, и нужно создать

[tyomitch]

Tarantul, чем SysAllocString не подошла?
Или надо именно вручную?

[Tarantul]

Вполне подошла бы, просто я о этой функции не знал А можно о ней по подробнее?

[tyomitch]

Конечно же, можно!
http://msdn.microsoft.com/library/en-us ... 7_8r53.asp

[Tarantul]

Самое веселое то, что пару минут назад сам докопался до описания SysAllocString, а заодно и до SysFreeString, и ради приличия, обновил этот форум:) . Но все равно спасибо

[Tarantul]

Опять фигня

Вот моя функция:

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

Sub FormateStringAPI(lVarPtr As Long, Value As String)
Dim S As String
Dim m1 As Long

'Получаем указатель на строку
CopyMemory m1, ByVal lVarPtr, 4

'Нечего надеяться на самоудаление
SysFreeString m1

'Опять используем волшебную функцию
S = StrConv(SysAllocString(StrPtr(Value)), vbFromUnicode)

'Присваиваем указатель
CopyMemory ByVal lVarPtr, StrPtr(S), 4

End Sub


Она должна изменять строку, имея только лиш ее VarPtr. Все вроде хорошо, но после выхода из процедуры удаляется переменная S, а вместе с ней освобождается память, которая хранит нужную строку. Вот и получается, что при ближайшей возможности данные перезаписываются.
Причем моя цель - не использовать никаких внешних буферов. Может, опять какая - то API будет рулить

[tyomitch]

Хахаха! У тебя SysAllocString объявлена как As String? Переобъяви как As Long, и будет тебе щастье.
Конверсию в этом случае делай до вызова StrPtr, а не после.

[Tarantul]

Да работает нормально (пока что ). Кстати, а конверсия теперь не нужна вообще.