unit StatCurveBig_IMP;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, StatCurveBig_TLB, StdVcl, StatCurveBig_F;

type
  TStatCurveBig_COM = class(TAutoObject, IStatCurveBig_COM)
  protected
    function MMInvoke(const PCarID, PCurveID,
      PConnString: WideString): WideString; safecall;
    { Protected declarations }
  end;
var
  AllResult: String;  //返回給主調模塊
  strCarID: String;    //車輛自動編號
  strCurveID: String;  //曲線編號
  DataString: String; //接收連接字符串
implementation

uses ComServ;

function TStatCurveBig_COM.MMInvoke(const PCarID, PCurveID,
  PConnString: WideString): WideString;
begin
  DataString := PConnString;
  frmStatCurveBig := TfrmStatCurveBig.Create(nil);
  try
    frmStatCurveBig.ShowModal;
    Result := AllResult;
  finally
    frmStatCurveBig.Free;
  end;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TStatCurveBig_COM, Class_StatCurveBig_COM,
    ciMultiInstance, tmApartment);
end.