serverunit2.~pas

Delphi6分布式开发例程11 )

unit ServerUnit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComObj, VCLCom, StdVcl, DataBkr, CorbaRdm, CorbaObj,
  ServerApp_TLB, Provider, DB, DBTables;

type

  TDataCorbaServer = class(TCorbaDataModule, IDataCorbaServer)
    Table1: TTable;
    DataSetProvider1: TDataSetProvider;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataCorbaServer: TDataCorbaServer;

implementation

{$R *.DFM}

uses CorbInit, CorbaVcl;

initialization
  TCorbaVclComponentFactory.Create('DataCorbaServerFactory', 'DataCorbaServer', 'IDL:ServerApp/DataCorbaServerFactory:1.0', IDataCorbaServer,
    TDataCorbaServer, iMultiInstance, tmSingleThread);
end.