ComPObject1.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit ComPObject1;
- interface
- uses
- ActiveX, MtsObj, Mtx, ComObj, ComPlus1_TLB, StdVcl;
- type
- TComPlus1Object = class(TMtsAutoObject, IComPlus1Object)
- private
- fValue: Integer;
- protected
- function AsString: WideString; safecall;
- function Get_Value: Integer; safecall;
- procedure Increase(Amount: Integer); safecall;
- procedure Set_Value(Value: Integer); safecall;
- end;
- implementation
- uses ComServ, SysUtils;
- function TComPlus1Object.AsString: WideString;
- begin
- Result := Format ('%n', [fValue*1.0]);
- end;
- function TComPlus1Object.Get_Value: Integer;
- begin
- Result := fValue;
- end;
- procedure TComPlus1Object.Increase(Amount: Integer);
- begin
- Inc (fValue, Amount);
- end;
- procedure TComPlus1Object.Set_Value(Value: Integer);
- begin
- fValue := Value;
- end;
- initialization
- TAutoObjectFactory.Create(ComServer, TComPlus1Object, Class_ComPlus1Object,
- ciMultiInstance, tmApartment);
- end.