Delphi

本类阅读TOP10
·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

→ 分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
关于在COM中使用可选参数的研究

作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站
关于在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

    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;

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

相关文章：

相关软件：