【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:CorbaServer_impl.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit CorbaServer_impl;
    
    {This file was generated on 17 Oct 2001 12:25:12 GMT by version 03.03.03.C1.A1}
    {of the Inprise VisiBroker idl2pas CORBA IDL compiler.                        }
    
    {Please do not edit the contents of this file. You should instead edit and    }
    {recompile the original IDL which was located in the file D:\SIMPLE~1.IDL.    }
    
    {Delphi Pascal unit      : CorbaServer_impl                                   }
    {derived from IDL module : CorbaServer                                        }
    
    
    
    interface
    
    uses
      SysUtils,
      CORBA,
      CorbaServer_i,
      CorbaServer_c;
    
    type
      TSimpleText = class;
    
      TSimpleText = class(TInterfacedObject, CorbaServer_i.SimpleText)
      protected
        {******************************}
        {*** User variables go here ***}
        {******************************}
      public
        constructor Create;
        function  setText ( const txt : AnsiString): AnsiString;
      end;
    
    
    implementation
    
    constructor TSimpleText.Create;
    begin
      inherited;
      { *************************** }
      { *** User code goes here *** }
      { *************************** }
    end;
    
    function  TSimpleText.setText ( const txt : AnsiString): AnsiString;
    begin
      { *************************** }
      { *** User code goes here *** }
      { *************************** }
    end;
    
    
    initialization
    
    
    end.
    

上一篇：DrawLine2Doc.cpp
下一篇：ASP小区停车管理系统(Access)(含录像)