科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件ADO编程中ATL所遇到的定义问题

ADO编程中ATL所遇到的定义问题

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

当欲向接口中定义方法如下:

作者:smallmark  来源:soft6 2008年5月23日

关键字: 定义 编程 VB vb.net Windows

  • 评论
  • 分享微博
  • 分享邮件

当欲向接口中定义方法如下:

 [id(1), helpstring("method SearchCust")] HRESULT SearchCust([in] BSTR bstrcustid,[out,retval] _Recordset **ptr);

  由于用到_Recordset类型,所以必须

    importlib("C:\Program Files\Common Files\System\ADO\MSADO15.DLL");

  于是整个idl文件应该改写为以下方式:

// FindCust.idl : IDL source for FindCust.dll

//

// This file will be processed by the MIDL tool to

// produce the type library (FindCust.tlb) and marshalling code.

import "oaidl.idl";

import "ocidl.idl";

[

       uuid(B32A7D72-12D4-11D5-AC09-00A0247A8577),

       version(1.0),

       helpstring("FindCust 1.0 Type Library")

]

library FINDCUSTLib    //Library给手动提前了

{

       importlib("stdole32.tlb");

       importlib("stdole2.tlb");

//MODIFY HERE

    importlib("C:\Program Files\Common Files\System\ADO\MSADO15.DLL");

       [

              object,
 

               uuid(B32A7D7F-12D4-11D5-AC09-00A0247A8577),

              dual,

              helpstring("ISearch Interface"),

              pointer_default(unique)

       ]

       interface ISearch : IDispatch

       {

              [id(1), helpstring("method SearchCust")] HRESULT SearchCust([in] BSTR bstrcustid,[out,retval] _Recordset **ptr);

       };
 

       [

              uuid(B32A7D81-12D4-11D5-AC09-00A0247A8577),

              helpstring("_ISearchEvents Interface")

       ]

       dispinterface _ISearchEvents

       {

              properties:

              methods:

       };

       [

              uuid(B32A7D80-12D4-11D5-AC09-00A0247A8577),

              helpstring("Search Class")

       ]

       coclass Search

       {

              [default] interface ISearch;

              [default, source] dispinterface _ISearchEvents;

       };

};

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章