конвертация текста ANSI-UNICODE при импорте/експорте функций

[san*]

Однажды в этом форуме выцепил возможность написания dll на визуал бейсик. Решил воспользоваться. Есть експортируемая функция с использованием текстовой переменной. Указую ее с ByRef. При вызове ф-ции туда(в библиотеку dll) присылаются вместо 20 байт текста - 10. Судя по всему кто-то из двух (основная программа или библиотека) сделала переконвертацию ANSI-UNICODE. Подскажите, что делать? Не хочется текст передавать по символам, а потом его собирать.

[alibek]

Передавай указатель, а не текст.

[san*]

Беру переменную стринг, присваюю ей тескт, передаю по ByRef. Что конкретно мне надо сделать?

[alibek]

Передавай ByVal StrPtr

[san*]

Где именно писать?
--------------------------------------------------
Ф-ция_в_библиотеке (ByRef Var As String)
-------------------------------------------
Объявление в программе:
Declare Function Ф-ция_в_библиотеке Lib "biblioteka.dll" (ByRef Var As String)
-----------------------------------------
Вызов в программе:
Var="Триклятый текст"
Ф-ция_в_библиотеке (Var)

[Viper]

Declare Function Ф-ция_в_библиотеке Lib "biblioteka.dll" (ByVal Var As String)

[san*]

А вдругих местах ByRef?

[alibek]

Я имел ввиду ByVal As Long.
А в других местах -- StrPtr или указатель на SysAllocateString/GlobalAlloc/GlobalLock

[san*]

Спасиибо. Это получилось. Но появилась новая проблема. В библиотеке объявляю структурный тип. Объявляю статический массив этого типа. Хочу что-то присвоить полю - выбивает программа. Когда библиотека была обычной программой, то все работало отлично.

Может открыть новую тему

[san*]

Оказалось, что при объявлении масива ка Приват или Паблик, программа выбивает. Получется, что в длл нельзя пользоваться глобальными массивами?

[Konst_One]

что, что

какие еще паблик массивы? в каком месте DLL вы их декларируете и как используете?

[san*]

У меня длл состоит из модулей. Функции модулей между собой логически связаны через паблик массивы. Когда-то проект был прстой программой на ВБ. Но пришло время его оформить в виде библиотеки. И вот такая вот загогулина получилась, что локально объявленые массивы работают, а паблик - нет.

[ANDLL]

Давай-ка код.

[san*]

Код в длл типа следующего:

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

Public m(1 To 120) As integer
Public Sub sub1()
      m(1) = 1
end sub


[alibek]

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

Private m(1 To 120) As Integer
Public Function ValueGet(ByVal Index As Long) As Integer
  ValueGet = m(Index)
End Function


Какие, нафиг, массивы в Native DLL.

[san*]

Извините за мою безграмотность, но насчет "Какие, нафиг, массивы в Native DLL" я нифига не понял.
К масивам типа Приват и Паблик напрямую вобще нельзя доступаться в длл? Почему?
Мне не нужно доступаться из внешней проги, а внутри самой длл.

[ANDLL]

Если в модуле ты их объявляешь то можно

[san*]

А уменя че-то не получается. Код, который я привел выше приводит к ошибке обращения в молоко, когда я вызываю функцию sub1 из внешней программы.

[alibek]

ANDLL, это как? Так?
Declare Array m Lib "biblioteka.dll" (Index As Long) As Integer

[san*]

Я на всякий случай повторю:мне нужно доступаться к масиву внутри самой длл, а не извне.

[ANDLL]

ANDLL, это как? Так?
Declare Array m Lib "biblioteka.dll" (Index As Long) As Integer

Извините за мою безграмотность, но насчет "Какие, нафиг, массивы в Native DLL" я нифига не понял.
К масивам типа Приват и Паблик напрямую вобще нельзя доступаться в длл? Почему?
Мне не нужно доступаться из внешней проги, а внутри самой длл.

[GSerg]

san*, если ты увидел в топике про native dll только саму native dll и пропустил мысли о том, что это чисто академический пример, в котором куча серьёзных недостатков, делающих невозможным его нормальное использование, то ты ССЗБ.

[san*]

Gserg, я понимаю Ваш шаманский взгляд, но я в форум залез не из-за чисто академичиских соображений. У меня конкретная проблема и ее нужно решить. Мне нужно использовать готовый кусок программы как библиотеку. На С++ писать или на Delphi у меня нет никакого желания. Если есть возможность зделать это на ВБ- это отлично. Если нет, придется делать ActiveX.dll, чего я тоже не умею.
Есть у кого-то решение моей проблемы, помогите пожалуйста.
P.S. Я не знаю, что значит ССЗБ, и попрошу не обзываться, ведь в правилах форума насколько я понимаю этого делать нельзя.

[GSerg]

У меня конкретная проблема и ее нужно решить. Мне нужно использовать готовый кусок программы как библиотеку.

Уже лучше. Описание настоящей, исходной проблемы подошло бы совсем хорошо.

Если нет, придется делать ActiveX.dll, чего я тоже не умею.

Если для тебя нет разницы, использовать native dll или activex, значит совершенно точно ты плохо представляешь, что и зачем ты делаешь. Опиши исходную задачу.

P.S. Я не знаю, что значит ССЗБ

Сам себе злобный буратино. Выражение, используемое в случаях, когда человек сознательно косит траву в противогазе.

[ANDLL]

san*
Если так, то тебе нужно создать класс и установить у него свойство Instancing = GlobalMultyUse.
Тогде все его открытые методы будут "глобальными" внутри другого приложения.