Вызов функции из DLL

[GNDragonFly]

Сообщение от Vapaamies

В современных версиях Delphi использование ShareMem уже спорно, поскольку у FastMM есть свой механизм разделяемых указателей. А FastMM, как известно, является системным диспетчером памяти, начиная с Delphi 2005.
Самый простой способ -- обмениваться WideString-ами, которые сами по себе межмодульны, ShareMem им не нужен (в теории).

О-о-очень спорное утверждение. Спецом форумы не штудировал. Но только что создал проект dll в Delphi XE7. Тут же в проекте автоматически появилась надпись (PS может она кочует из древнейших делфи и сейчас не актуальна, а разработчики Embasadero просто "забыли" этот текст удалить):

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

Переводя на человеческий, я понял:
при использовании строк в качестве параметров либо результата выполнения функции, необходимо:
1-й вариант. В самой библиотеке и в программе подключить модуль ShareMem, который "потянет" за собой ещё и BORLNDMM.dll.
2-й вариант. Использовать PChar либо ShortString.
PS В "современных" "ёмбасадеровских" делфях все строки уже по-умолчанию WideString, если их указывать как String.

[Vapaamies]

Сообщение от GNDragonFly

Тут же в проекте автоматически появилась надпись (PS может она кочует из древнейших делфи и сейчас не актуальна, а разработчики Embasadero просто "забыли" этот текст удалить)

Мне тоже так кажется. Они же штамповкой новых версий заняты, им некогда.

Сообщение от GNDragonFly

PS В "современных" "ёмбасадеровских" делфях все строки уже по-умолчанию WideString

На самом деле нет. Они UnicodeString, а это не то же самое, что WideString.

[GNDragonFly]

Кстати, еще пару замечаний по приведенному в первом посте коду:
1. Зачем в uses нужен Dialogs;
2. function ExecTest(tempStr: string): string; export;
a) export - необязательно писать в конце, т.к. ниже пишется exports, а затем перечисляются функции, которые надо экспортировать, например у Вас ExecTest;
б) Лучше использовать соглашение stdcall, особенно в Вашем случае ("... проект в одной среде разработке пишу, а библиотеку в другой .."), если языки программирования разные. Подробнее читать в "Соглашении о вызове подпрограмм", например, даже на wikipedia или тут http://rsdn.ru/ARTICLE/DELPHI/DELPHI_7_05.XML
в) tempStr: string - не используется (т.к. надо писать Result:=s.Text;, о чем Вам непрозрачно намекнули), зачем ее тогда объявлять?
3. При описании объекта TStringList внутри функции у вас написано " s: STringList;", а надо s: TSringList; Как она могла откомпилироваться и сбилдиться %(
PS Введите в поисковике Delphi dll - и будет Вам счастье...

Сообщение от Vapaamies

На самом деле нет. Они UnicodeString, а это не то же самое, что WideString.

Согласен. Хотя это уже не совсем разные типы:

UnicodeString
Note: In RAD Studio, string is an alias for UnicodeString.
~2^30 characters
4 bytes to 2GB
Unicode characters, 8-bit (ANSI) characters, multiuser servers and multilanguage applications

UnicodeString is the default string type.

WideString
~2^30 characters
4 bytes to 2GB
Unicode characters; multiuser servers and multilanguage applications. WideString is not supported by the Delphi mobile compilers, but is supported by the Delphi desktop compilers. Using UnicodeString is generally preferred to WideString, except for COM applications.


Note: The default string type is UnicodeString. WideString is provided to be compatible with the COM BSTR type. You should generally use UnicodeString for non-COM applications; for most purposes UnicodeString is the preferred type. The type string is an alias for UnicodeString.