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

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 数据挖掘交友

    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"); 数据挖掘交友

end; 数据挖掘交友

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();

end; 数据挖掘研究院

数据挖掘工具

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();

end;

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

var

数据挖掘论坛

  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);

数据挖掘交友

end;

数据挖掘研究院