关于在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/
[VB.NET程序]关于在VB中进行COM组件的开发(一、了解COM) [SyBase]关于在 sybase 下生成交叉报表的方法,希望能够抛… [ORACLE]关于在Windows中安装Oracle碰到ORA-12638错误的解… [MySql]关于在linux下磁盘定额的实现
|