我測試自訂了以下的物件: type atp = array of string; type Tarrays = class(TObject) public a: atp; function b:string; end; function Tarrays.b; begin result := self.a; end; 以上的自訂物件要如何置入dll裡呢? 又要如何叫出使用呢? 請各位高手教教我吧!

都用指針傳遞。不過使用Delphi String 必須先 SetLength。 否則容易出現錯誤。

感謝您的回覆 那有範例可以參考嗎? 最簡單的就好了 拜託拜託了

//----------------------------------------- AB.Dll
library AB;    uses
  SysUtils,Controls,stdctrls,Classes;    {$R *.RES}      Function RunTest(Test :Pointer;Caption:PChar):integer; export;
  begin
    StrCopy(Caption,PChar(TLabel(Test).Caption));
  end;      exports
    RunTest;
begin    end.
//-----------------------------------------
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;
  Function RunTest(Test :Pointer;Caption:PChar):integer; external 'AB';    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.Button1Click(Sender: TObject);
var
  AStr : PChar;
begin
  GetMem(AStr,255);
  Try
    RunTest(Pointer(Label1),AStr);
    Showmessage(AStr);
  finally
    FreeMem(AStr);
  end;
end;

參考參考！

感謝回覆.. 但如果我dll裡想放的是object呢? method 和 property又要如何宣告呢? 謝謝^^