【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供CORBAServerImpl.pas参考，解决您在CORBAServerImpl.pas学习中工作中的难题，参考学习。

    unit CORBAServerImpl;
    
    {
      This is the Implementation Unit of the CORBA Server.
      In the initialization section of this unit, the wizard writes a call to
      CORBAFactory constructor which creates an instance of the Object DemoCORBA.
      The third parameter to the method is the Repository ID and is of
      the format 'IDL:ProjectName/ClassNameFactory:1.0'
      This is what any CORBA client uses to connect to any CORBA Server.
      In order to view the IDL file, use the 'Export to CORBA IDL' button
      on the Type Library Form.
    }
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      ComObj, VCLCom, StdVcl, DataBkr, CorbaRdm, CorbaObj,
      CORBAServer_TLB, Db, DBTables, Provider;
    
    type
    
      TDemoCORBA = class(TCorbaDataModule, IDemoCORBA)
        CustTable: TTable;
        CustomerSource: TDataSource;
        OrderTable: TTable;
        CustomerTable: TDataSetProvider;
        procedure DemoCORBACreate(Sender: TObject);
        procedure DemoCORBADestroy(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      DemoCORBA: TDemoCORBA;
    
    implementation
    
    {$R *.dfm}
    
    uses CorbInit, CorbaVcl, CORBAServerForm;
    
    
    { These Create/Destroy methods are optional. These are here for the purpose
      of counting the clients connected to the CORBA Server
      Disabling IDE debugger would allow running multiple copies of the client.}
    
    procedure TDemoCORBA.DemoCORBACreate(Sender: TObject);
    begin
      MainServerForm.UpdateClientCount(1);
    end;
    
    procedure TDemoCORBA.DemoCORBADestroy(Sender: TObject);
    begin
      MainServerForm.UpdateClientCount(-1);
    end;
    
    initialization
      TCorbaVclComponentFactory.Create('DemoCORBAFactory', 'DemoCORBA', 'IDL:CORBAServer/DemoCORBAFactory:1.0', IDemoCORBA,
        TDemoCORBA, iMultiInstance, tmSingleThread);
    end.
    

上一篇：DrawFormDlg.cpp
下一篇：法律专业开题报告范文