插件？？？？？？？？？？？？ 高手赶快来！！！-----50分

[fsybaby]

如何实现插件原理？？

最好带例子

[e-mail]

接受任何回答方式

[tanqth]

up, 不知道你是什么意思

[WuLoveXue]

好像是写注册表吧！

[dickeybird888]

//??

[tonylk]

主程序：
======
PCompCardItem = ^TCompCardItem;
TCompCardItem = record
DllHandle:Hwnd;
FileName:String;
CardGUID:TGUID;
CardName:String;
GetCompEditor:GetCompEditorProc;
GetCompController:GetCompControllerProc;
GetCompLoader:GetCompLoaderProc;
end;

//将某个dll中的内容信息保存在队列内
procedure TCompCardManager.AddCompCard(AFileName:String);
var
Item:PCompCardItem;
DllHandle:Hwnd;
GetCardGUID:GetCardGUIDProc;
GetCardName:GetCardNameProc;
FileName:String;
begin
FileName:=ExtractFileName(AFileName);
if Assigned(FOnLoading) then begin
FOnLoading(self,Format('Loading %s...',[FileName]),300);
end;
DllHandle:=LoadLibrary(PChar(AFileName));
if DllHandle<>0 then begin
GetCardGUID:=GetProcAddress(DllHandle,'GetCardGUID');
GetCardName:=GetProcAddress(DllHandle,'GetCardName');
if (@GetCardGUID<>nil) and (@GetCardName<>nil) then begin
new(Item);
Item^.DllHandle:=DllHandle;
Item^.FileName:=AFileName;
Item^.CardGUID:=GetCardGUID();
Item^.CardName:=GetCardName();
Item^.GetCompEditor:=GetProcAddress(DllHandle,'GetCompEditor');
Item^.GetCompController:=GetProcAddress(DllHandle,'GetCompController');
Item^.GetCompLoader:=GetProcAddress(DllHandle,'GetCompLoader');
FCompCardList.Add(Item);
end
else begin
FreeLibrary(DllHandle);
raise CompCardException.CreateFmt('Card "%s" is not a valid card file!',[FileName]);
end;
end
else begin
raise CompCardException.CreateFmt('Can not load card "%s"!',[FileName]);
end;
end;

//从已存在的Dll列表中找到要找的那个，并且调用其中的函数，让其返回某个类（是类不是对象）
function TCompCardManager.FindCompLoader(ACardGUID:TGUID):TCompLoaderClass;
var
Item:PCompCardItem;
I:Integer;
begin
Result:=nil;
for I:=0 to FCompCardList.Count-1 do begin
Item:=FCompCardList.Items[I];
if IsEqualGUID(Item^.CardGUID,ACardGUID) then begin
if Assigned(Item^.GetCompLoader) then begin
Result:=Item^.GetCompLoader();
end;
exit;
end;
end;
end;

//程序最终通过该找到的类来创建出真正的对象。
procedure TRoundManager.LoadCompetition(ATypeGUID:String;AFileName:String;ARoundID:Integer);
var
CompLoaderClass:TCompLoaderClass;
CompLoader:TCompLoader;
begin
CompLoaderClass:=GCardManager.FindCompLoader(StringToGUID(ATypeGUID));
if not Assigned(CompLoaderClass) then begin
raise RoundMgrException.Create('Can not found CompLoaderClass!');
end;
CompLoader:=CompLoaderClass.Create();
if not Assigned(CompLoader) then begin
raise RoundMgrException.Create('Can not create CompLoader!');
end;
CompLoader.LoadCompetition(AFileName,ARoundID,FDataStream);
end;

dll中：
======
function GetCompLoader():TCompLoaderClass;
begin
Result:=TBasketballLoader;
end;

exports
GetCompLoader;

//TCompLoader的具体实现
type
TBasketballLoader = class(TCompLoader)
public
procedure LoadCompetition(AFileName:String;ARoundID:Integer;ADataStream:TMemoryStream);override;
end;

//主程序和dll都共有的基类声明，这样主程序才能知道到底哪些方法是该类所支持的。
type
TCompLoaderClass = class of TCompLoader;

TCompLoader = class(TObject)
public
procedure LoadCompetition(AFileName:String;ARoundID:Integer;ADataStream:TMemoryStream);virtual;abstract;
end;

需要使用sharemem,或是runtime bpl,我比较喜欢后者.


[e-mail]
www.tonixsoft.com

[fsybaby]

谁弄点例子来？？
[e-mail]

[FrameSniper]

偶是来学习的！

[ilmself0451]

[e-mail]

[Miracle]

我很久以前在www.codelphi.com发表过一篇完整的文章，带例子，你用“插件”作关键字搜索一下，应该能找到。

[qixp231]

l