1、以下此异常,为exe没有加载到Tangram_Core.bpl 放到exe当前文件夹下即可
2、此例子的接口实现在exe中,exe中下发通知到dll,dll 中 as 获取接口传窗体到exe中;
procedure TFrmMain.load; //exe下发通知
var intf:INotifyService;
begin
if SysService.QueryInterface(INotifyService,Intf)=S_OK then
begin
self.lst_sel.Clear;
Intf.SendNotify(NotifyFlag,self);
end;
end;
procedure TUserModule.Notify(Flags: Integer; Intf: IInterface);
begin
if Flags=NotifyFlag then
begin
(Intf as IClsRegister).RegCls('浏览器',TFrmWebbrowser);
(Intf as IClsRegister).RegCls('选 项',TFrmOptions);
end;
end;
dll中接收通知后
3、看不到什么时候加载了dll,难道是每一个dll自己注册自己?
initialization
RegisterModuleClass(TUserModule); 也不是这句起的作用?