pclientdemo.dpr

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

program PClientDemo;
{$APPTYPE CONSOLE}
uses
  CorbaObj,
  PcoHelloWorld_TLB,
  SysUtils;
var
  coObject : IcoHelloWorld;
begin
  // Insert user code here
  CorbaInitialize;
  try
    coObject := TcoHelloWorldCorbaFactory.CreateInstance('');
    coObject.HelloWorld;
  except
    on E:Exception do WriteLn(E.Message);
  end;  
end.