Передача строк из DLL, написанной на Delphi

[Faust]

Вопрос, насколько я понимаю, классический. Те ответы, которые я на него находил сводятся к "исправляй код функции в Delphi".
Есть плата АЦП/ЦАП, для доступа к драйверу которой имеется DLL. В документации к ней функцию инициализации работы с драйвером предлагают объявлять вот так:

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

function  ET_StartDrv: string; stdcall; external 'ET1255.DLL'

Наскоро проставленного Delphi 5 (ай-ай-ай, авторское право) и прочитанного хелпа хватило на то, чтобы написать библиотеку-"обертку" для возвращающих строковые значения функций. Хотелось бы узнать, реализовывал ли кто-то способы поэлегантней (и есть ли они вообще). Комментарий в начале пустого DLL-проекта в Delphi намекает копать в сторону BORLNDMM.DLL. Или лучше не стоит?

[Денис]

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

Private Declare Function ET_StartDrv Lib "ET1255.DLL" () As String

[ANDLL]

Функция которая вернет строку?
Ээээээ. Не представляю себе какой ужасный программер писал такое, но он явно не хотел что бы его либу юзали из других языков.
Вообще, Faust, коль скоро мы не знаем что там в делфях со строками, логика следующая:
Во первых попробовать конечно объявление из предыдущего поста, авось чудо и оно заработает.
Если нет - обявить as long, и посмотреть что там за число возвращается.
Если там указатель на юникодную строку, да еще и на BSTR - делаем просто копирование указателя в стринговую переменную.
Если работает(а это наиболее вероятный вариант) - ура.
Если нет, или там не BSTR, определяем что же именно там такое, потом копируем это в нашу VBшную строку.... Потом либо ищем функцию в делфийской библиотеке которая освобождает память, либо.... забиваем

[Faust]

Во первых попробовать конечно объявление из предыдущего поста, авось чудо и оно заработает.
Если нет - обявить as long, и посмотреть что там за число возвращается.

Что первое, что второе - приводит к "вылетающему" с ошибкой IDE.
Пытался объявлять как Sub (вообще-то, эта строка не так уж и интересует, в ней хранится сообщение об ошибке) - те же результаты.
Насколько я понял из чтения тредов с описанием подобных проблем, в Delphi при попытке функции возвратить string происходит выделение локальной памяти, которая освобождается сразу после того, как вызванная из DLL функция прекратит работу. И только (только ли?) SharedMem, который используют написанные на Deplhi проекты, способен предотвратить непоправимое. Сейчас планирую поэкспериментировать (сказывается отсутствие фундаментальной подготовки в отношении системного программирования - надо ЗНАТЬ такие вещи), измениться ли что-то при вызове этой функции через LoadLibrary->GetProcAddress->CallWindowProc.

[ANDLL]

Ненене, секундочку.

Насколько я понял из чтения тредов с описанием подобных проблем, в Delphi при попытке функции возвратить string происходит выделение локальной памяти, которая освобождается сразу после того, как вызванная из DLL функция прекратит работу.

Это брiд
Нужно либо посмотреть сгенерированный код самой функции. Либо что лучше, написать на делфи маленкью прогу которая вызывает функцию, и в отладчике посмотреть какой код генерируется для вызова.

[Vi]

Есть плата АЦП/ЦАП, для доступа к драйверу которой имеется DLL. В документации к ней функцию инициализации работы с драйвером предлагают объявлять вот так:

И что говорит еще твоя документация? На каком языке вообще написан драйвер? Есть ли прототип для С/С++, который проще может быть переведен на VB?

[Faust]

И что говорит еще твоя документация?

Много чего.

На каком языке вообще написан драйвер?

Подозреваю, что на Delphi. Этот язык в фирме-разработчике любят, судя по всему.

Есть ли прототип для С/С++, который проще может быть переведен на VB?

С-call? Нет.
Повторюсь, если для кого-то это не очевидно: я не ищу метода решения задачи любой ценой - задача уже решена. Мною движет академический интерес. Вдруг кто-то из посетителей форума сталкивался с подобной проблемой или просто знает более красивые способы её решения. Впрочем, похоже, что таких нет.