关于在COM中使用可选参数的研究

关于在COM中使用可选参数的研究

作者：wangzhidong(Steven Bob)

创作日期：2002-3-27

在Delphi6中设计COM组件方法时，在 Parameter flags dialog 中，选择Optional选项，即输入参数为可选，现就给出如何实现可选参数实例。

监测函数

function VarIsEmptyParam(const V: Variant): Boolean;

begin

Result := (TVarData(V).VType = varError) and

(TVarData(V).VError = $80020004); {DISP_E_PARAMNOTFOUND}

end;

实例

uses ComServ, Variants, Dialogs, SysUtils;

procedure TOptionalParamsDemo.GetParams(const Param1: WideString; Param2,Param3: OleVariant; Param4: Integer);

var

s2, s3: WideString;

begin

if VarIsEmptyParam(Param2) then

s2 := '''' empty ''''

else

S2 := '''' not empty '''';

if VarIsEmptyParam(Param3) then

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有