delphiµÄdllÖÐ×Ô¶¨ÒåµÄÀàÈçºÎÔÚµ÷ÓóÌÐòÖÐʵÀý»¯?

Delphi(Pascal) code:
unit Unit1;

interface
type
Module=class
published
function ReadTest: integer;
procedure WriteTest(const Value: integer);
published
property Test:integer read ReadTest write WriteTest;
end;
ModuleClass=class of Module;


implementation

{ Module }

function Module.ReadTest: integer;
begin
result:=Test;
end;

procedure Module.WriteTest(const Value: integer);
begin
Test:=value;
end;

end.


Delphi(Pascal) code:
function GetModule():ModuleClass;stdcall;
begin
result:=Module;
end;

ÉϱßÁ½¸öÊÇÔÚdllÖж¨ÒåµÄ.
function GetModule():ModuleClass;far;external 'Project3.dll';
Delphi(Pascal) code:

procedure TForm4.Button1Click(Sender: TObject);
var
m1:ModuleClass;
m:Module;
begin
//

m1:=GetModule();

m:=m1.Create() as Module;
m.Test:=100;
end;

ÏñÉϱßÕâÑùÐÐÂð?
ÎÒʵ¼Êµ÷ÓõÄʱºò.ÄÚ´æÒç³öÁË.ºÃÏñ.²»ÖªµÀÕ¦×ö!!

---

ѧϰ

---

ÎÒÔÎ.¿´µ½Óлظ´.ºÃ¸ßÐË.µ«ÎÒµ£ÐĵÄÊ»¹ÊÇ·¢ÉúÁË......

---

ÒýÓÃ

²»Óà interface »á²úÉúÐí¶àÂé·³£¬¹âÒ»¸öÄÚ´æ¹ÜÀí¾Í¹»ÇºµÄÁË£¬ÔÙŪµã¶ù is/