pcohelloworld.dpr

delphi多层应用系统 delphi多层应用系统

program PcoHelloWorld;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  CorbaObj,
  ucoHelloWorld in 'ucoHelloWorld.pas' {coHelloWorld: CoClass},
  PcoHelloWorld_TLB in 'PcoHelloWorld_TLB.pas';
  
{$R *.TLB} {CORBA}

begin
  // Insert user code here
  CORBAInitialize;
  try
    WriteLn('CORBA Hello World