Работа с DLL. Строковые переменные

[MSpirit]

Товарищи, есть DLL для работы со спец. БД.
ТАк вот, есть функция чтения полей.

Declare Function IsisRecSubField Lib "isis32.dll" (ByVal Handle&, ByVal Index&, ByVal Tag&, ByVal FldOcc&, ByVal SubField$, ByVal SubFieldArea$, ByVal AreaSize&) As Long

В нее в качестве строкового параметра передается параметр SubFieldArea$. ТАк вот, не изменяет эта функция его, как ни парься.

В доках на DLL написано, что для дельфи этот параметр должен иметь тип PChar (практически массив байтов). Для VB непонятно какой тип должон быть. Пробую строковую переменную - ничего, пробую байтовую - тоже, массив байтов - тож самое.

Помогите, неужели придется на Дельфи делать.

[Александр Андреев]

А там есть проблема одна... точно не помню, но кажется DLL использует иное адресное пространство, нежели программа, которая с ней работает. Отсюда всякие заморочки...

[MSpirit]

И чего, как с этим бороться?

[alibek]

VB6 всегда хранит строки как Unicode. А API-функции ты декларируешь скорее всего, как ANSI
Пример:

Декларация ANSI:
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long

Декларация Unicode:
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextW" (ByVal hWnd As Long, ByVal lpString As String) As Long

Т.е. используй Unicode-декларацию (в системах с ядром NT почти все функции имеют два варианта, ANSI и Unicode).

Если же ты собрался использовать ANSI, то объявляй аргументы не как String, а как Long (указатель на строку), а саму строку вначале преобразуй из Unicode в ANSI, например так:

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

Declare Function SetWindowText Lib "user32" Alias "[color=red]SetWindowTextA[/color]" (ByVal hWnd As Long, ByVal lpString As Long) As Long
...
Dim txt As String, B() As Byte
txt = ...
B=StrConv(txt, vbFromUnicode)
SetWindowText Me.hWnd, B