UNICODE и API

[Vi]

В-общем так:

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

long StrRest(BSTR*str)
{
   str++;
   MessageBoxW(NULL,*str,L"Строка",0);
   return 0;
}


И:

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

Private Declare Function StrRest Lib "X-Lib.dll" (ByRef xStr As String) As Long

StrRest "VB-String"


И сее работает. Если убрать str++, то не работает.

Эта программа не будет работать, если передать не строку-константу. Т.е.

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

Dim s As String
s = "VB-String"
StrRest s


[ANDLL]

Только объявление надо поменять:

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

long StrRest(LPCSTR*str)
...


Тогда действительно все работает.
Ну так?

[tyomitch]

Только объявление надо поменять:

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

long StrRest(LPCSTR*str)
...


Тогда действительно все работает.
Ну так?

Что и требовалось доказать - при передаче строки по ссылке, VB её всё равно переводит в ANSI. Т.е. это тупиковый путь.

[ANDLL]

Почему не работает выясняли.
А почему работает?

[tyomitch]

Почему не работает выясняли.
А почему работает?

Потому что при вызове со строковой константой случайно получается так, что "правильный" BSTR лежит в памяти сразу же после "неправильного" ABSTR.
Т.е.

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

переданный адрес -> ABSTR -> первый символ временной ANSI-копии
                    BSTR -> первый символ правильной Unicode-строки


А вот при передаче настоящей строки этот трюк уже не срабатывает.
Ещё (NB!) проверь твой трюк для процедуры с двумя BSTR*-параметрами. Если моя гипотеза верна, то там придётся инкрементировать каждый из указателей дважды.