login_imp.pas

汽车行驶记录仪数据采集处理系统

unit Login_IMP;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, Login_TLB, StdVcl, Login_F;

type
  TLogin_COM = class(TAutoObject, ILogin_COM)
  protected
    function MMInvoke(const PAddition: WideString): WideString; safecall;
    { Protected declarations }
  private
    frmLogin: TfrmLogin;
  end;

var
  AResult : String;

implementation

uses ComServ;

function TLogin_COM.MMInvoke(const PAddition: WideString): WideString;
begin
  frmLogin := TfrmLogin.Create(nil);
  try
    frmLogin.ShowModal;
    Result := AResult;
  finally
    frmLogin.Free;
  end;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TLogin_COM, Class_Login_COM,
    ciMultiInstance, tmApartment);
end.