插件管理框架 for Delphi（三）

{ TServerDll }

procedure TServerDll.DoDllLoaded;

begin

  FQueryInterface := GetProcAddress(csQueryInterface);

  if not Assigned(FQueryInterface) then

    raise EServerDllError.Create(''''No found of "QueryInterface" Proc.'''');

  inherited; //此句需要放在后面

end;

procedure TServerDll.DoDllUnLoaded;

begin

  inherited;

  FQueryInterface := nil;

end;

procedure TServerDll.RefreshAllFunctionsPermit;

var

  I: Integer;

begin

  Assert(FFunctions <> nil);

  for I := 0 to TFunctionList(FFunctions).Count - 1 do

    if TFunction(TFunctionList(FFunctions)[I]).Dll = Self then

      TFunction(TFunctionList(FFunctions)[I]).Permit := Permit;

end;

end.

3.3.2    组件使用

略。

[文终]

上一页  [1] [2] [3] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18