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

在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} 数据挖掘研究院

实例

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 数据挖掘研究院

s3 := " empty " 数据挖掘研究院

else 数据挖掘研究院

S3 := " not empty ";

ShowMessage(Format("Param1[%s] Param2[%s] Param3[%s] Param4[%d]",[Param1, s2, s3, Param4])); 数据挖掘实验室

end; 数据挖掘研究院

procedure TForm1.Button1Click(Sender: TObject);

var

V: Variant; 数据挖掘研究院

begin

V := IDispatch(CoOptionalParamsDemo.Create()); 数据挖掘研究院

V.GetParams("123"); 数据挖掘研究院

procedure TForm1.Button2Click(Sender: TObject);

var 数据挖掘研究院

AIntf: IOptionalParamsDemo; 数据挖掘实验室

V: Variant; 数据挖掘研究院

begin

AIntf := CoOptionalParamsDemo.Create();

// AIntf.GetParams(", EmptyParam, 9, 4);

V := IDispatch(AIntf);

// V.GetParams("123", "123", "123", "123"); 数据挖掘研究院

V.GetParams(); 数据挖掘研究院

procedure TForm1.Button3Click(Sender: TObject); 数据挖掘实验室

var

AIntf: IOptionalParamsDemo;

V: Variant;

begin

AIntf := CoOptionalParamsDemo.Create();

// AIntf.GetParams(", EmptyParam, 9, 4);

V := IDispatch(AIntf);

V.GetParams("123", "123"); 数据挖掘研究院

// V.GetParams();

procedure TForm1.Button4Click(Sender: TObject);

V: Variant;

begin

V := IDispatch(CoOptionalParamsDemo.Create()); 数据挖掘研究院

V.GetParams("123", "123", 123);

end;

procedure TForm1.Button5Click(Sender: TObject);

var

V: Variant; 数据挖掘研究院

begin

V := IDispatch(CoOptionalParamsDemo.Create()); 数据挖掘研究院

V.GetParams("123", 123, 123, 6);

实例下载： http://www.megspace.com/computers/coreware/