一般在LOAD PACKAGE時都要先知道它的CLASS NAME才可以LOAD進來， 有沒有可能在使用一個BPL時，不需先知道它的CLASS NAME， 而是可以動態取得的？

我之前是用個偷吃步的作法，滿爛的 :P 給您參考看看.. 假設我的 class 名為 TClass1 的話， 則我的 BPL 名字就叫 Class1 這樣的話，我只要讀 BPL 的檔名再加個 T 就是 class 名了 :P 之前是在想說，如果作出自動的 plugin 只要把 BPL 丟在同目錄下，程式就能自動 add on 上去.. -- Regards, Skyer

------
--
Regards,
Skyer

BPL is Borland's special DLL. You should be able to exports functions (could return your defined list of classes). Put the export statements in any unit other than the project file (Delphi will overwrite it automatically).

引言: BPL is Borland's special DLL. You should be able to exports functions (could return your defined list of classes). Put the export statements in any unit other than the project file (Delphi will overwrite it automatically).

版主，不是很懂你的意思說，能不能解釋一下Put the export statements in any unit other than the project file (Delphi will overwrite it automatically).是什麼意思啊??

引言: 版主，不是很懂你的意思說，能不能解釋一下Put the export statements in any unit other than the project file (Delphi will overwrite it automatically).是什麼意思啊?? < face="Verdana, Arial, Helvetica"> Oh... very hard to type Chinese here .... class="code">procedure MyClassList(ClassList: TStringList); stdcall; begin ClassList.Clear; { add your class name to ClassList } end; exports MyClassList; Put above codes in any .pas unit inside the package. After loading the package

var
    GetClassList: procedure(ClassList: TStringList); stdcall;
{...}
    Lib := LoadPackage(YourPackageFile);
    GetClassList := GetProcAddress(Lib,'MyClassList');
    GetClassList(ClassList);
{...}

In simple words, use the bpl file as a dll

其實,用TComponent Class是最通用的ClassName ,待建立之後看看有沒有辦法取出該Class的ClassType 以及 ComponentName(如果可以正確地抓取的話);應該就可以建立該Class的Instance.理論上這樣是可行的,不過還是要實際Test過才知道喔!!

其實,william 的Example的意思是說 1.在你的Package Source Code加入一個Export ClassName的Function   (知道為什麼嗎? 因為*.BPL 也是 DLL 的一種!!) 2.藉由LoadPackage函式以及取得該Export ClassName的Function的Proc位址   最後只要呼叫該Export ClassName的Function就可以知道該BPL的ClassName   了...!!

謝謝大家的提出的解決辦法，各種方法我都會去試試，謝謝。

我在bpl中的code exports GetClassName; procedure GetClassName(var classname: String); stdcall; begin classname := 'TfrmFtp'; end; 載入時的code procedure TForm1.Button1Click(Sender: TObject); var AClass: TPersistentClass; AForm: TCustomForm; a: procedure(var classname:string); stdcall; b:string; begin pStr := LoadPackage('d:\ui\TfrmFTP.bpl'); a := GetProcAddress(pStr, 'GetClassName'); a(b); ------------------------>在這一行就出現access violation的錯誤訊息了 AClass := GetClass(b); if AClass <> nil then begin ........ end; end; 發表人 - junlin 於 2003/08/20 14:25:57

if pStr<>0 then
    a := GetProcAddress(pStr, 'GetClassName');
if Assigned(a) then
    a(b);

BTW, you are using string... used ShareMem in both your application and package?