forms - 如何将 TForm 作为参数传递给 DLL？

Question

我想制作使用 tform 作为参数的 dll，简单的计划是如果该表单传递给 dll，则 dll 文件返回包含组件名称的数组。

可以将 tform 作为参数传递吗？

Answer 1

很可能您的进程中有两个 VCL 实例，一个用于主机 exe，一个用于 DLL。这是一个太多的例子。主机 exe 中的 TForm 类与 DLL 中的 TForm 类不同。

基本规则是您不能跨模块边界共享 VCL/RTL 对象，除非所有模块都使用相同的 VCL/RTL 运行时实例。实现这一点的方法是使用包链接到 VCL/RTL。

Answer 2

我假设你有一个框架，你的表单上有一个 TMemo：

声明两种类型：

type
  PTform                                  = ^TForm;
  TStringArray                            = array of string;

并使这些对 EXE 和 DLL 可见

.DPR 实施部分：

procedure dllcomplist(p_pt_form : PTForm;
                  var p_tx_component : TStringArray);
          stdcall;
          external 'dllname.dll';

...

var
  t_tx_component                          : TStringArray;
  t_ix_component                          : integer;

...

  Memo1.Lines.Add('Call DLL to return componentlist');
  dllcomplist(pt_form,t_tx_component);
  Memo1.Lines.Add('Result in main program');
  for t_ix_component := 0 to pred(length(t_tx_component)) do
    Memo1.Lines.Add(inttostr(t_ix_component) + '=' + t_tx_component[t_ix_component]);
  setlength(t_tx_component,0);

并在 DLL 的 .DPR 中

...

procedure dllcomplist(p_pt_form : PTForm;
                  var p_tx_component : TStringArray);
          stdcall;
var
  t_ix_component                          : integer;
  t_ix_memo                               : integer;
  t_tx_component                          : TStringArray;
begin with p_pt_form^ do begin
  setlength(t_tx_component,componentcount);
  setlength(p_tx_component,componentcount);
  for t_ix_component := 0 to pred(componentcount) do
  begin
    t_tx_component[t_ix_component] := components[t_ix_component].Name;
    p_tx_component[t_ix_component] := components[t_ix_component].Name;
    if components[t_ix_component].ClassName = 'TMemo' then
      t_ix_memo := t_ix_component;
  end;
  Tmemo(components[t_ix_memo]).lines.add('Within DLL...');
  for t_ix_component := 0 to pred(componentcount) do
    Tmemo(components[t_ix_memo]).lines.add(inttostr(t_ix_component) + ' ' 
            + t_tx_component[t_ix_component]);
  Tmemo(components[t_ix_memo]).lines.add('DLL...Done');
  setlength(t_tx_component,0);
end;
end;

...

exports dllcomplist;

{好的 - 这比严格需要的要复杂得多。我正在做的是在调用程序中建立一个动态数组，将其填充到 DLL 中，然后在调用者中显示结果

和

检测 DLL 中的 TMemo 并将数据从 DLL 中的相同动态数组写入调用者的 TMemo - 以显示数据相同}