[Fantomas_RUS]

Очень важно узнать как при помешении в dll формы и при выведении её в основной программе в режиме ShowModal, считать данные введённые пользователем в Edit и сохранить эти данные в переменной, которая в основной программе. Уже 2 дня мучаюсь по всякому, ни как не получаеться. Даже технологию не знаю. Учусь постепенно сам. Добрые люди, помогите....

[v1s2222]

Ну я думаю это делается так:
создаете функцию в библиотеке, которая будет возвращать string, и экспортируете ее (exports), а в результат самой функции как раз и вставляете то, что ввел человек в едит. В главной программе вызываете функцию из длл и результат этой функции записываете в нужную вам переменную... Надеюсь поняли что я имею ввиду.

[Fantomas_RUS]

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

Ну я думаю это делается так:
создаете функцию в библиотеке, которая будет возвращать string, и экспортируете ее (exports), а в результат самой функции как раз и вставляете то, что ввел человек в едит. В главной программе вызываете функцию из длл и результат этой функции записываете в нужную вам переменную... Надеюсь поняли что я имею ввиду.

Да понял. Но вот факт. При создании в dll формы, к ней присоединяеться её pas. Открываю в главной форме функцию dll, в которой прописаны такие строчки

Код:

var FormE: TForm1;
begin
FormE:=Tform2.Create(AOwner);
FormE.ShowModal;
.
.
.

При запуске открываеться окно в котором есть Edit. Так вот после ввода и нажатии кнопки ОК как передать данные введённые в Edit в главную или хотя бы чтоб Dll это увидел их. А так Dll не видит глобальную переменную которая описана в форме FormE. А при обращении из FormE к переменным которые прописаны в dll в моей функции компилятор выдаёт ошибку. Даже не знаю что делать...

[v1s2222]

Глобальную переменную вставь в саму длл, а при изменение едита, дописывай / изменяй.

[Fantomas_RUS]

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

Глобальную переменную вставь в саму длл, а при изменение едита, дописывай / изменяй.

Если можно приведите код. Так как я пытался глобальную переменную вставлять и в Dll но форма её не видит которая с editom.

[v1s2222]

Извеняюсь, в самой длл писать не надо (надо или создать модуль новый), или писать в самой форме.
Объявить переменную, после var Form1: TForm1; S: String;
А потом к ней обращаться...

[lmikle]

Код длл:

Код:

function ShowMyDLLForm(var OutParam1 : Integer; var OutParam2 : String) : Boolean;
begin
  With TForm1.Create(Nil) Do
     Begin
       Edit1.Text  := IntToStr(outParam1);
       Edit2.Text := OutParam2;

       Result  := ShowModal = mrOK;

       OutParam1 := StrToint(Edit1.Text);
       OutParam2 := Edit2.Text;

       Free;
     End;
end;

код вызова (импорт пропущен):

Код:

var
  I : Integer;
  S : String;
begin
   I := 5;
   S := 'call from main';

   if ShowMyDLLForm(I,S) 
     Then ShowMessage(Format('OK. New values is ''%d'' and ''%s''.',[I,S]))
      Else ShowMessage('Cancel');
end;