statcurve360_imp.~pas

来自「汽车行驶记录仪360小时的全程速度时间曲线图的组件。」· ~PAS 代码 · 共 42 行

unit StatCurve360_IMP;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, StatCurve360_TLB, StdVcl, StatCurve360_F, StatCurve360_DataList_F;

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

uses ComServ;

function TStatCurve360_COM.MMInvoke(const POperation, PTmpID, PUser,
  PConnString: WideString): WideString;
begin
  DataString := PConnString;
  frmStatCurve360 := TfrmStatCurve360.Create(nil);
  frmDataList := TfrmDataList.Create(nil);
  try
    frmStatCurve360.ShowModal;
    Result := AllResult;
  finally
    frmStatCurve360.Free;
  end;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TStatCurve360_COM, Class_StatCurve360_COM,
    ciMultiInstance, tmApartment);
end.