关于在COM中使用可选参数的研究
来源:互联网 发布:淘宝招牌图片素材 编辑:程序博客网 时间:2024/05/09 10:51
COM" target=_blank>关于在COM中使用可选参数的研究
作者:wangzhidong(Steven Bob)
创作日期:2002-3-27
在Delphi6中设计COM组件方法时,在 Parameter flags dialog 中,选择Optional选项,即输入参数为可选,现就给出如何实现可选参数实例。 COM:office:office" />
监测函数
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;
实例下载: COM/COMputers/coreware/">http://www.megspace.COM/COMputers/coreware/
- 关于在COM中使用可选参数的研究
- 关于在COM中使用可选参数的研究
- 关于《在COM中使用数组参数》的提醒
- 可选参数的便捷使用
- 在COM中使用数组参数--概述
- 在COM中使用数组参数-SafeArray
- 在COM中使用数组参数-ICollection
- 在COM中使用数组参数-SafeArray
- 在COM中使用数组参数-SafeArray
- 在COM中使用数组参数
- 在COM中使用数组参数-SafeArray
- 在COM中使用数组参数--概述
- 在COM中使用数组参数-ICollection
- 在COM中使用数组参数-SafeArray
- 在COM中使用数组参数-SafeArray
- 在COM中使用数组参数-SafeArray
- 在COM中使用数组参数-SafeArray
- 关于在Unity3D中使用Kinect的一些研究
- 使用Delphi 發展商業物件
- 使用NIO进行文件操作
- 文件系统维护 (linux)
- 头部属性全接触
- MySQL手册版本 5.0.20-MySQL优化(三)
- 关于在COM中使用可选参数的研究
- Delphi 7 - Could not create output file *.*dcu 错误的解决办法
- 事件触发列表与解说
- MySQL手册版本 5.0.20-MySQL优化(二)
- 攻破“金山词霸”的技术堡垒!
- C# 里面的编码问题
- 符号链接与硬链接的区别
- 逆向一个直接IO硬盘的驱动
- 农大项目(在linux上安装RDAC驱动)