pclientdemo.dpr

来自「就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》」· DPR 代码 · 共 21 行

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