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方法的回传值。

    申明

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

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

  • 相关阅读:
    [JZOJ3386] 守卫者的挑战
    [JZOJ3385] 黑魔法师之门
    [JZOJ3383] 太鼓达人
    [JZOJ3382] 七夕祭
    NOIP模拟测试on 2019.9.27
    数据结构测试2 on 2019.9.25
    数据结构测试1 on 2019.9.24
    P2047 [NOI2007]社交网络
    P2286 [HNOI2004]宠物收养场
    P1342 请柬 建反图+dijkstra
  • 原文地址:https://www.cnblogs.com/Athrun/p/1239969.html
Copyright © 2011-2022 走看看