DLL с формой и ее вызов динамически.

[Alexandr17]

Исправил

Function TestForms(textbtn1, textbtn2, textdialog, resulttextmemo:PAnsiCHar):Boolean;
begin
  Form1:= TForm1.Create(nil);
  form1.Button1.Caption:=textbtn1;
  form1.Button2.Caption:=textbtn2;
  form1.Caption:=textdialog;
  if form1.ShowModal=mrok then begin
    resulttextmemo:=PAnsiChar(form1.Memo1.Text);
    result:=true;
    form1.Free;
  end else begin
    result:=false;
    form1.Free;
  end;
end;

вот ее вызов из проэкта

procedure TForm1.Button1Click(Sender: TObject);
type tTestForms=Function(textbtn1, textbtn2, textdialog, resulttextmemo:PAnsiCHar):Boolean;
var
  TestForms:TTestForms;
  dll_instance: Thandle;
begin
  dll_instance:= LoadLibrary('ProjectDll.dll');
  @TestForms:=GetProcAddress(dll_instance, 'TestForms');
  if TestForms('OK', 'No', 'DIALOG DLL FORMS', paNSIchar(form1.Caption)) then
    Form1.Caption:=Form1.Caption+';TRUE';
  FreeLibrary(dll_instance);
end;

Но почему та форме не присваивается текст из Memo

[StriderX]

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

...Но почему та форме не присваивается текст из Memo

1) Литералы дельфя сама кастует правильно, а String нельзя в лоб кастовать к PAnsiChar. Сначала надо сделать каст к AnsiString: PAnsiChar(AnsiString(MyString)).

2) paNSIchar(form1.Caption) - это плохой путь для обратной связи. Туда надо без кастов сразу передавать PAnsiChar (и предельную длину выделенной строки\памяти).

3) Можно подцепить в ехе и dll модуль simplesharemem (должен быть первым в списке модулей), тогда можно будет просто передавать обычный String (менеджер памяти сам будет разбираться, что где выделять\освобождать)

[Человек_Борща]

А вы его туда и не передаете.

[Alexandr17]

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

1) Литералы дельфя сама кастует правильно, а String нельзя в лоб кастовать к PAnsiChar. Сначала надо сделать каст к AnsiString: PAnsiChar(AnsiString(MyString)).

2) paNSIchar(form1.Caption) - это плохой путь для обратной связи. Туда надо без кастов сразу передавать PAnsiChar (и предельную длину выделенной строки\памяти).

3) Можно подцепить в ехе и dll модуль simplesharemem (должен быть первым в списке модулей), тогда можно будет просто передавать обычный String (менеджер памяти сам будет разбираться, что где выделять\освобождать)

А вообще этот код будет работать на компе без delphi языка

[evg_m]

Но почему та форме не присваивается текст из Memo

чтобы результат изменения внутренней переменной (а параметры процедуры есть ничто иное как внутренние переменные) был виден снаружи, его(параметр) надо ПРАВИЛЬНО объявить.

procedure X(const s: string);
procedure X(n: integer);
???????????

P.S. "правильного" для TC ответа нет, но указано в какую сторону рыть.

[Alexandr17]

Function TestForms(textbtn1, textbtn2, textdialog, resulttextmemo:PAnsiCHar):Boolean;
begin
  Form1:= TForm1.Create(nil);
  form1.Button1.Caption:=String(AnsiString(textbtn1));
  form1.Button2.Caption:=String(AnsiString(textbtn2));
  form1.Caption:=String(AnsiString(textdialog));
  if form1.ShowModal=mrok then begin
    resulttextmemo:=PAnsiChar(AnsiString(form1.Memo1.Text));
    result:=true;
    form1.Free;
  end else begin
    result:=false;
    form1.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
type tTestForms=Function(textbtn1, textbtn2, textdialog, resulttextmemo:PAnsiCHar):Boolean;
var
  TestForms:TTestForms;
  dll_instance: Thandle;
  pac:pansichar;
begin
  form1.Caption:='';
  dll_instance:= LoadLibrary('ProjectDll.dll');
  @TestForms:=GetProcAddress(dll_instance, 'TestForms');
  if TestForms('OK', 'No', 'DIALOG DLL FORMS', pac) then begin
    form1.Caption:=String(AnsiString(pac));
    Form1.Caption:=Form1.Caption+';TRUE';
  end;

  FreeLibrary(dll_instance);
end;

теперь форме присваивается какие то непонятные символы

[eval]

не ... не пойдзёць

[StriderX]

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

...теперь форме присваивается какие то непонятные символы

Тут проблема из-за очень слабой теоретической базы, надо почитать и подружиться с указателями. Надо полистать про то как устроены строки в Дельфи, чтобы иметь представление: какие, когда и где команды дописывает сам компилятор.
simplesharemem в отличие от своего предшественника sharemem не требует тащить за собой никаких дополнительных библиотек.
1)

pac : pansichar

Это указатель. При старте Button1Click там лежит мусор. Указатель в dll не меняется, поэтому как он был мусором, так и остаётся - это и рисуется.

2)

resulttextmemo:=PAnsiChar(AnsiString(form1.Memo1.Text)).

Здесь просто в "местный PAnsiChar" что-то там записалось (даже не будем говорить о том, что это что-то будет убито уже на следующей строке).

3) Чтобы что-то записать по указателю на строку надо вызывать StrPCopy(PAnsiChar, MyAnsiString) в dll. Записывать в мусор нам нельзя, поэтому ехе сначала должен выделить под это безобразие память с помощью AnsiStrAlloc(MyLength). После этого уже можно отдавать указатель в dll (и следить, чтобы dll не записывала туда строку длиннее MyLength). Когда работа с указателем будет закончена (например, отработает form1.Caption:=pac) следует освободить занятую память вызвав StrDispose(pac).

[Alexandr17]

А если неизвестна длина строки

[eval]

вам зачем форма в длл?