Lazarus创建带窗体的动态库(DLL and SO)的方法

bugxiong

两种方法，一种为下面的代码部分，另一种在后面的附件中：
程序的代码：

1. unit MainUnit;
3. {$mode objfpc}{$H+}
5. interface
7. uses
8.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, dynlibs;
10. type
12.   { TForm1 }
14.   TForm1 = class(TForm)
15.     Button1: TButton;
16.     procedure Button1Click(Sender: TObject);
17.     procedure FormCreate(Sender: TObject);
18.   private
19.     { private declarations }
20.   public
21.     { public declarations }
22.   end;
24. var
25.   Form1: TForm1;
26.   UI: TLibHandle;
27.   ShowDLLForm: procedure; stdCall;
28. implementation
30. {$R *.lfm}
32. { TForm1 }
36. procedure TForm1.FormCreate(Sender: TObject);
37. begin
38.   UI:=LoadLibrary('UI.dll');
39.   Pointer(ShowDLLForm):=GetProcAddress(UI, 'ShowDLLForm');
40. end;
42. procedure TForm1.Button1Click(Sender: TObject);
43. begin
44.   ShowDLLForm;
45. end;
47. end.

复制代码

DLL的代码：

1. library Userinterface;
3. {$mode objfpc}{$H+}
5. uses
6.   Classes, Interfaces, UnitDllForm
7.   { you can add units after this };
9. {$R *.res}
11. procedure ShowDLLForm; stdCall;
12. begin
13.   Form1.Show;
14. end;
17. // Exports
18. exports
19.   ShowDLLForm; stdCall:
21. begin
22. end.

复制代码

下面是个例子：



或直接用网盘下载：
下载地址

逍遥派掌门人

代码的方法是可行的。

wylton

linux下编译不过。

birdboy0911

procedure DisplayForm; stdcall; external 'libthedll.so';
紧急求教，此句一加，就不行。在ubantu下