statcurvebig_imp.~pas

来自「汽车行驶记录仪数据采集处理系统」· ~PAS 代码 · 共 43 行

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.