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

[artemavd]

Доброе утро!
Создал библиотеку и написал в ней, для примера, так:

library Test;
uses SysUtils,Classes,Dialogs;
{$R *.res}
function ExecTest(tempStr: string): string; export;
var
 s: STringList;
begin
 s:=TStringList.Create;
 s.Add('1');
 s.Add('2');
 tempStr:=s.Text;
 s.Free;
end;

exports ExecTest;

begin
end.

Потом в своем проекте написал, из которого вызываю свою функцию:

...
function ExecTest: string; external 'Test.dll'; //подключил свою dll
...
procedure TForm1.Button(Sender: TObject);
begin
 ShowMessage(ExecTest);
end;

Мне нужно, чтобы появилось сообщение с текстом
1
2
но оно появляется пустым.
Что не так я делаю? Раньше как-то не заморачивался с библиотеками, а сейчас решил разделить проект на библиотеки.

[Toxa]

а что возвращает функция ExecTest?
добавь

result := s.text;

[artemavd]

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

а что возвращает функция ExecTest?
добавь

result := s.text;

В какое именно место добавить?

[Stilet]

В uses sharemem пропиши для начала, раз уж string используешь.

[artemavd]

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

В uses sharemem пропиши для начала, раз уж string используешь.

В uses библиотеки прописать? Сделал, все равно пустое сообщение отображается.

[Stilet]

library Test;
uses ShareMem,SysUtils,Classes,Dialogs;
{$R *.res}
function ExecTest(tempStr: string): string; export;
var
 s: STringList;
begin
 s:=TStringList.Create;
 s.Add('1');
 s.Add('2');
 Result:=s.Text;
 s.Free;
end;

exports ExecTest;

begin
end.

Увидел?

[artemavd]

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

library Test;
uses ShareMem,SysUtils,Classes,Dialogs;
{$R *.res}
function ExecTest(tempStr: string): string; export;
var
 s: STringList;
begin
 s:=TStringList.Create;
 s.Add('1');
 s.Add('2');
 Result:=s.Text;
 s.Free;
end;

exports ExecTest;

begin
end.

Увидел?

Ага, увидел
Написал и в вместо сообщения появилась такая ошибка:

Access violation at address 00A374E8 in module 'Test.dll'. Read of address FFFFFFFA

Это же ничего, что я проект в одной среде разработке пишу, а библиотеку в другой?) В смысле она одна, просто два окна делфи открыто и проект и библиотека по-разному пишутся.

[Stilet]

Ну вот это проблема стрингов. Они плохо натягиваются на ножки библиотек
В таком случае я делаю так:
1) использую TStringList, передавая его в процедуру. В процедуре в библе его наполняю.

function ExecTest(tempStr: TStrings): Boolean; export;

Далее просто использую то, что передал в параметр
2) Возвращаю PChar а не стринг.
Сам предпочитаю первое, глюков меньше.

[Vapaamies]

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

Самый простой способ -- обмениваться WideString-ами, которые сами по себе межмодульны, ShareMem им не нужен (в теории).

[Stilet]

Ну в современных Делфи да. Тут я не скажу как они там уже сделали.