tangram2.6(XE2)\framework框架加载包异常 调试的地方

添加以下的项目到项目组中,

  \tangram2.6(XE2)\framework\Core\Tangram_Core.dpk

调试此包的SysModuleMgr.pas的函数,本人还没有测试

function TTangramModule.LoadModule: THandle;
begin
  try
    Result:=0;
    case GetModuleType of
      mtBPL:Result:=SysUtils.LoadPackage(self.FModuleFileName);
      mtDLL:Result:=Windows.LoadLibrary(Pchar(self.FModuleFileName));
    end;
  except
    on e:Exception do
      if SysService.QueryInterface(ILog,log)=S_OK then
      begin
        log.WriteLog(e.Message);
      end;
  end;
end;

 

posted @ 2016-09-07 16:47  海蓝7  阅读(306)  评论(0编辑  收藏  举报