взять переменную из dll

[Roof]

Как мне переменную, полученную в dll передать в основное приложение?
В данном случае мне нужно передать переменную a из dll. Исходник прилагается.
Mainn.dpr - проект основного приложения.
libr.dpr - проект библиотеки.
Unit1.pas - модуль с формой, которую загружаю в dll.

[BOBAH13]

Мда... а исходник то забыли Может:

procedure SendA: Pointer; stdcall; export;
begin
  Result := @a;
end;

[Ulagay700]

А в чем разница с передачей из обычной переменной?

[Roof]

dll parametrs.rar - это первоначальный исходник.
dll parametrs popitka.rar - это я пытался экспортировать функцию, содержащую переменную, но выходит, что она передается только со второго раза...

[alexBlack]

У Вас делается вызов:

ShowForm(Application.Handle, Self.Handle);
Label1.Caption:= ex_a; // ворзвращает a

и только потом на форме ButtonClick присваивает возвращаемой переменной значение. Поэтому со второго раза.

Непонятно, что Вы хотите добиться ?
Или делайте ShowModal или вызов функции ex_a в другом месте (после закрытия формы) или инициализацию переменной по-другому

// ShareMem must be the first unit in your library's USES clause AND your project's

Пример во вложении

[Roof]

Непонятно, что Вы хотите добиться ?

У меня на форме в dll идут расчеты. Результат мне нужно вывести на главную форму в мое приложение.

ли вызов функции ex_a в другом месте (после закрытия формы) или инициализацию переменной по-другому

- вот как это в моем примере сделть?

[alexBlack]

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

У меня на форме в dll идут расчеты. Результат мне нужно вывести на главную форму в мое приложение.
- вот как это в моем примере сделть?

Принцип тот-же, как показано в примере.
Данные для расчетов передаются при вызове функции dll. В dll - ShowModal и результаты записываются в структуру. Или без формы. Просто вызов функции, которая и будет делать все расчеты.

[Roof]

2 alexBlack - не ShowModal меня не устраивает так как необходимо свободное переключение между формами и без формы меня не устраивает. Сделал без ShowModal и с формой. Но по-другому.
Вопрос решен.

[Stilet]

Как мне переменную, полученную в dll передать в основное приложение?

Можно обьявить ее на экспорт и получать ее адрес через GetProcAddress
Или пусть какая нить функа возвращает ее значение

[Roof]

2 Stilet а примерчик можно?