library myFuns;
uses
  ShareMem,  SysUtils,  Classes;
  myFuns_u in 'myFuns_u.pas';
{$R *.RES}
exports ttt;
begin
end.
----------------------------------------
unit myFuns_u;
interface
uses
  Windows, SysUtils, Classes, Controls, Forms, DB, DBClient, Jpeg, dbctrls,
  Graphics, IniFiles, StdCtrls, Menus, ExtCtrls, ComCtrls, DBGrids, Dialogs;
procedure ttt(frm: TForm); export;
implementation
procedure ttt(frm: TForm);
var i: Integer;
begin
  for i:= 0 to frm.ComponentCount - 1 do
  begin
    ShowMessage((frm.Components[i]).Name);
    if (frm.Components[i] is TLabel) then  <<-----為何沒作用!
       ShowMessage('aaaaa');  
  end;
end;
end.
-------------------------------------------------------
program Test;
uses
  ShareMem,  Forms;
  Test_u in 'Test_u.pas' {Test_Form};
{$R *.RES}
begin
  Application.Initialize;
  Application.CreateForm(TTest_Form, Test_Form);
  Application.Run;
end.
-----------------------------------------------------
unit Test_u;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls;
type
  TTest_Form = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Test_Form: TTest_Form;
  procedure ttt(frm: TForm); far; external 'myFuns.dll';
implementation
{$R *.DFM}
procedure TTest_Form.Button1Click(Sender: TObject);
begin
  ttt(Self);  //<<--呼叫DLL
end;
end.
請問上述程式在呼叫ttt()的DLL時其
    if (frm.Components[i] is TLabel) then <<-----為何沒作用!
       ShowMessage('aaaaa');  
 

Delphi follower 發表人 - ying0515 於 2005/04/11 17:29:12 發表人 - ying0515 於 2005/04/11 17:31:13

------
Delphi

因为dll并不能共享资料，Test.exe里的TLabel并不是myFuns.dll里的TLabel,也就是TTest_Form里的TLabel并不是myFuns.dll里的TLabel。 而bpl可以很好地共享这些RTTI信息，如果dll用Runtime Package编译，Test.exe也用Runtime Package编译就可以了。     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

請問如何改寫成Rentime Package? Delphi follower

------
Delphi

Sorry!我試出來了!原來在Porject->Options->Packages->將Build with runtime packages 打勾就好!感謝! Delphi follower

------
Delphi