用delphi写Addin插件遇到的问题(已解决 散分 需要者留名即可) ( 积分: 200 )

以前用VB写这类控件 打算该由delphi 来写
参考了
http://hubdog.csdn.net/Hubdog/word.htm 这篇文章
发现编译AddInDesignerObjects_TLB不能通过
[Error] AddinDesignerObjects_TLB.pas(459): Types of actual and formal var parameters must be identical
为什么

以前用VB写这类控件 打算该由delphi 来写
参考了
http://hubdog.csdn.net/Hubdog/word.htm 这篇文章
发现编译AddInDesignerObjects_TLB不能通过
[Error] AddinDesignerObjects_TLB.pas(459): Types of actual and formal var parameters must be identical
为什么

好,帮顶



--------签名档---------------------------

比肩国内顶尖源码下载站点 -> 源码我爱你

http://www.source520.com
http://www.source520.net

80G源码电子书免费免注册下载,大量精辟技术文档库随时更新
******************************************************************
附:为了站点持续发展,现有本站近年来收藏的大量大型商业源码低价出售,
详情请进入以下链接查看:
http://www.source520.com/building_delphi.htm

浏览商业代码请从如下URL进入查看实物:
1.商业源码库1: ftp://source520see3:browse@61.152.199.245/
2.商业源码库2: ftp://source520see2:browse@61.152.199.245/

实际参数和形式参数不一致:语法错,贴出来看看

procedure TAddinDesigner.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
case DispID of
-1: Exit; // DISPID_UNKNOWN
1: if Assigned(FOnConnection) then
FOnConnection(Self,
Params[0] {const IDispatch},
Params[1] {ext_ConnectMode},
Params[2] {const IDispatch},
{??PSafeArray}OleVariant((TVarData(Params[3]).VPointer)^) {var ??PSafeArray OleVariant}); <---这个位置出错 注意注释 很有意思
2: if Assigned(FOnDisconnection) then
FOnDisconnection(Self,
Params[0] {ext_DisconnectMode},
{??PSafeArray}OleVariant((TVarData(Params[1]).VPointer)^) {var ??PSafeArray OleVariant});
3: if Assigned(FOnAddInsUpdate) then
FOnAddInsUpdate(Self, {??PSafeArray}OleVariant((TVarData(Params[0]).VPointer)^) {var ??PSafeArray OleVariant});
4: if Assigned(FOnStartupComplete) then
FOnStartupComplete(Self, {??PSafeArray}OleVariant((TVarData(Params[0]).VPointer)^) {var ??PSafeArray OleVariant});
5: if Assigned(FOnBeginShutdown) then
FOnBeginShutdown(Self, {??PSafeArray}OleVariant((TVarData(Params[0]).VPointer)^) {var ??PSafeArray OleVariant});
end; {case DispID}
end;

不客气了

唉 又浪费了

顶！！！！！！！！！！！！！

多人接受答案了。