hardwareinitialize_imp.pas

来自「汽车行驶记录仪的数据初始化组件」· PAS 代码 · 共 43 行

unit HardWareInitialize_IMP;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, HardWareInitialize_TLB, StdVcl, HardWareInitialize_F, HardWareInitialize_F_USBItem;

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

uses ComServ;

function THardWareInitialize_COM.MMInvoke(const POperation, PTmpID, PUser,
  PConnString: WideString): WideString;
begin
  DataString := PConnString;
  frmHardWardInit:=TfrmHardWardInit.Create(nil);
  frmUSBItem := TfrmUSBItem.Create(nil);
  try
    frmHardWardInit.ShowModal;
    Result := AllResult;
  finally
    frmUSBItem.Free;
    frmHardWardInit.Free;
  end;
end;

initialization
  TAutoObjectFactory.Create(ComServer, THardWareInitialize_COM, Class_HardWareInitialize_COM,
    ciMultiInstance, tmApartment);
end.