unit PrjInterfaceImp;



interface

uses
  PrjInterface, Windows;

type
  TMyClass = class(TInterfacedObject, IMyInterface)
  private
  protected
  public
    function MyFunc: WideString; safecall;
  end;

var
  MyClass: TMyClass;

function GetInterface: IMyInterface;
procedure FreeInterface;

implementation

{ TMyClass }

function GetInterface: IMyInterface;
begin
  MyClass := TMyClass.Create();
  result := IMyInterface(MyClass);
end;

procedure FreeInterface;
begin
  //MyClass.Free;
end;

function TMyClass.MyFunc: WideString;
begin
  Result := 'Test Interface<D10.天地弦DKSoft>';
end;

end.