《关于VisiBroker For Delphi的使用》(2)

• 以上的保留字和操作符会在我的文章中足一介绍，这里就不具体描述了。

  我们开始编一个小程序来说明一下

  照样先申明一个接口描述：

  表示我要传递一个任意类型信息

  module Crb{

   interface  TestAny{

   any  getany()；//注意大小写

  }；

  } ；

   

  现在按照我们上一届讲的生成框架代码，接下来我们在Crb_impl中加入

    Result := StrToInt(Form1.Edit1.Text);

  加在那儿呢加在Getany方法中哪,如下

  function  TTestAny.GetAny : ANY;

  begin

    Result := StrToInt(Form1.Edit1.Text);

  end;

  这个接口的意义是将我们的服务程序的主窗体上的Edit1上的字符串返回给接口，以便于客户程序从接口获得该字符数据。

  当然必须在我们的主窗体上作如下声明

  unit ServerMain;

   

  interface

   

  uses

    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Corba,

• 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 《关于VisiBroker For Delphi的使用》(2) 相关文章：
• ·《关于VisiBroker For Delphi的使用》(2)
• 《关于VisiBroker For Delphi的使用》(2) 相关软件

上一篇:《关于VisiBroker For Delphi的使用》(4)

下一篇:《参透delphi》书评

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐