zoukankan      html  css  js  c++  java
  • 图文并茂:delphi 编写你的com程序

    from http://www.pconline.com.cn/pcedu/empolder/gj/delphi/0506/638325.html

    DELPHI菜单:

    File\New\Other…



    按确定[ok]按钮




    点击File\Save菜单保存:


    输入工程名MyCOM,按保存按钮




    再打开菜单File\New\Other…


    按[OK}按钮





    在CoClassName打入MyObject,按OK



    在IMyObject上按MOUSE右键,ImyObject\New\Method。



    在Name处输入Test



    切换到Parameters页次,按Add两下,将第一个Parameters的Name改成PsParam1, Type打入BSTR,将第二个Parameters的Name改成PsResult, Type打入BSTR*,将MOUSE点到第二个Parameters的Modifier字段处,按 “…” 按键。





    将RetVal打勾,按OK



    (原来的[in]变成了[out,retval], 表示这个是要回传的, 其型态为字符串),关掉这个窗口。



    (你会看到它帮你建好了CODE的模型)。



    File\Save,输入文件名MyObject,按保存。



    改一下CODE,按一下Ctrl+S保存,Project\Build MyCOM。



    就可以看到生成了一个MYCOM.DLL文件


    这就是你要的COM组件了,用Regsvr32命令注册这个组件后就可使用了。


    下面再讲调用这个COM组件的方法:

      New 一个新的Application
      在uses 中加一个Comobj
      放一个button在FORM中
      在button的onClick事件中打入以下的Code:

      代码:


    var
    MyObject: OleVariant;
    begin
    MyObject:=CreateOleObject('MyCOM.MyObject');
    try
    ShowMessage(MyObject.Test('黎明'));
    finally
    VarClear(MyObject);
    end;
    end;



      执行.....并按Button1按键, 你会看到一个Message...那就是执行COM对象的Test方法的回传值。

    申明

    非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!

    博文欢迎转载,但请给出原文连接。

  • 相关阅读:
    计算在线人数
    微软MSMQ消息件研究(一)
    jQuery循序渐进2
    单点登陆的ASP.NET应用程序设计[zt]
    利用SQL2005的缓存依赖
    .Net 操作MSMQ
    GridView中数据格式化
    TcpListener/TcpClient/UdpClient 的区别及联系
    微软消息件MSMQ研究DEMO(二)
    Nhibernate(1)
  • 原文地址:https://www.cnblogs.com/Athrun/p/1239969.html
Copyright © 2011-2022 走看看