插件之接口实现
在插件中需要对接口中的方法进行具体的实现,主控程序才能调用并执行插件中的具体功能。
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