ComPObject1.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit ComPObject1;
  2. interface
  3. uses
  4.   ActiveX, MtsObj, Mtx, ComObj, ComPlus1_TLB, StdVcl;
  5. type
  6.   TComPlus1Object = class(TMtsAutoObject, IComPlus1Object)
  7.   private
  8.     fValue: Integer;
  9.   protected
  10.     function AsString: WideString; safecall;
  11.     function Get_Value: Integer; safecall;
  12.     procedure Increase(Amount: Integer); safecall;
  13.     procedure Set_Value(Value: Integer); safecall;
  14.   end;
  15. implementation
  16. uses ComServ, SysUtils;
  17. function TComPlus1Object.AsString: WideString;
  18. begin
  19.   Result := Format ('%n', [fValue*1.0]);
  20. end;
  21. function TComPlus1Object.Get_Value: Integer;
  22. begin
  23.   Result := fValue;
  24. end;
  25. procedure TComPlus1Object.Increase(Amount: Integer);
  26. begin
  27.   Inc (fValue, Amount);
  28. end;
  29. procedure TComPlus1Object.Set_Value(Value: Integer);
  30. begin
  31.   fValue := Value;
  32. end;
  33. initialization
  34.   TAutoObjectFactory.Create(ComServer, TComPlus1Object, Class_ComPlus1Object,
  35.     ciMultiInstance, tmApartment);
  36. end.