GUID aguid;
_di_IInterface a, c;
Calld::TEventSink* FEventSink;
Server_tlb::_di_IServerWithEvents FServer;

FServer = CoServerWithEvents::Create(); // FServer
a = CoServerWithEvents::Create(); // FServer
FEventSink = new Calld::TEventSink(); // FEventSink
FEventSink->GetInterface<>(c);

System::Win::Comobj::InterfaceConnect(FServer, aguid, c, FCookie);

http://docwiki.embarcadero.com/RADStudio/XE8/en/Implementing_Interfaces:_Delphi_and_C%2B%2B

https://books.google.com.hk/books?id=74QctX2heRsC&pg=PA295&lpg=PA295&dq=_di_IInterface&source=bl&ots=12214NAI6_&sig=SkyWb5VZqrTaKYbrT5MXGhAMR0w&hl=zh-TW&sa=X&ved=0CFoQ6AEwCGoVChMI1puWlciTxwIVZ56mCh2A5AaO#v=onepage&q=_di_IInterface&f=false

InterfaceConnect的更多相关文章

  1. 在Delphi下使用迅雷APlayer组件进行免注册开发

    之前都是用的delphi下的dspack进行的视频开发,这个组件其实很好用,就是找解码器麻烦点,而且还得在客户的计算机上使用RegSvr32.exe也注册解码器,要不有可能播放不了. 结果在查找合适的 ...

  2. Delphi中COM自动化对象中使用事件

    unit SrvUnit2; interface uses ComObj, ActiveX, AxCtrls, Classes, SrvEvent_TLB, StdVcl, Srvunit1; typ ...

  3. Delphi不注册COM直接使用ActiveX控件并绑定事件

    文笔不行,直接上源码: 主窗口: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System ...

随机推荐

  1. poj3295Tautology

    http://poj.org/problem?id=3295 这几天补一补poj之前落下的题吧 枚举 #include <iostream> #include<cstdio> ...

  2. 1430. Crime and Punishment（枚举）

    1430 即使是枚举 也是有一定技术含量的 对于ax+by = n: 枚举max(a,b)中的系数 这样可以确定另一个 但问题是如何确定上限 假设max(a,b) = a,很显然是不会超n/a的 但这 ...

  3. maven-source 1.3 中不支持注释请使用 -source 5 或更高版本以启用注释

    解决办法:在pom里 加上以下代码 <build> <plugins> <plugin> <groupId>org.apache.maven.plugi ...

  4. HDU 1158 Employment Planning【DP】

    题意:给出n个月,雇佣一个人所需的钱hire,一个人工作一个月所需要的钱salary,解雇一个人所需要的钱fire,再给出这n个月每月1至少有num[i]个人完成工作,问完成整个工作所花费的最少的钱是 ...

  5. 使用WINRAR来制作安装程序

    1. WINRAR版本 2. 将所有文件放在同一个文件夹下 3. 选中所有文件点击右键 -> Add to archive 4. General设置 5. Advanced 设置 6. 确定开始 ...

  6. Typed Message模式与Event Sourcing

    引言 在<设计模式沉思录>(Pattern Hatching: Design Patterns Applied,[美]JohnVlissides著)一书的第4章中,围绕事件Message传 ...

  7. android linux shell 日期设置

    /************************************************************************ android linux shell 日期设置 * ...

  8. Cython: 快速入门

    1. Cython是什么? 它是一个用来快速生成Python扩展模块(extention module)的工具,语法是Python和c的混血.在Cython,C里的类型,如int,float,long ...

  9. 理解matplotlib绘图

    matplotlib是基于Python语言的开源项目,旨在为Python提供一个数据绘图包.Matplotlib 可能是 Python 2D-绘图领域使用最广泛的套件.它能让使用者很轻松地将数据图形化 ...

  10. 【自动化测试】Xpath学习

    http://www.cnblogs.com/cbcye/archive/2009/03/14/1411291.html http://www.cnblogs.com/cbcye/archive/20 ...