statcurve_imp.~pas

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

unit StatCurve_IMP;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, StatCurve_TLB, StdVcl, StatCurve_F;

type
  TStatCurve_COM = class(TAutoObject, IStatCurve_COM)
  protected
    function MMInvoke(const POperation, PTmpID, PUser,
      PConnString: WideString): WideString; safecall;
    { Protected declarations }
  end;
var
  AllResult: String;  //返回给主调模块
  DataString: String; //接收连接字符串
implementation

uses ComServ;

function TStatCurve_COM.MMInvoke(const POperation, PTmpID, PUser,
  PConnString: WideString): WideString;
begin
  DataString := PConnString;
  frmStatCurve := TfrmStatCurve.Create(nil);
  try
    frmStatCurve.ShowModal;
    Result := AllResult;
  finally
    frmStatCurve.Free;
  end;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TStatCurve_COM, Class_StatCurve_COM,
    ciMultiInstance, tmApartment);
end.