插件之接口实现

在插件中需要对接口中的方法进行具体的实现，主控程序才能调用并执行插件中的具体功能。

unit uPlug;

interface

uses
  uInterface, Forms, Windows, Classes, SysUtils;

type
  TModelService = class(TInterfacedObject, IModelInts)
  private
    function CheckFormExists(aClassName: pchar): Boolean;
  public
    procedure Cmd(aClassName: PChar);         // create visual plugin
    procedure Cmd2(aClassName: PChar);        // create non-visual plugin
  end;

implementation

{ TModelService }

function GetModelInts: IModelInts;
begin
  result := TModelService.Create();
end;

exports
  GetModelInts;

function TModelService.CheckFormExists(aClassName: pchar): Boolean;
var
  i: Integer;
begin
  result := False;
  for i := 0 to screen.FormCount - 1 do
  begin
    if UpperCase(screen.Forms[i].ClassName) = UpperCase(aClassName) then
    begin
      result := True;
      Screen.Forms[i].BringToFront;
      break;
    end;
  end;
end;

procedure TModelService.Cmd(aClassName: PChar);
var
  f: TForm;
begin
  if CheckFormExists(aClassName) then Exit;
  f := TFormClass(FindClass(aClassName)).Create(Application);
  f.Top := Application.MainForm.Height;
  f.Show;
end;

procedure TModelService.Cmd2(aClassName: PChar);
var
  f: TForm;
begin
 // if CheckFormExists(aClassName) then Exit;
  f := TFormClass(FindClass(aClassName)).Create(Application);
  f.Hide;
end;

end.

转载于:https://www.cnblogs.com/hnxxcxg/archive/2012/02/19/2358378.html