ucohelloworld.pas

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

unit ucoHelloWorld;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, ComObj, StdVcl,
  CorbaObj, PcoHelloWorld_TLB;

type

  TcoHelloWorld = class(TCorbaImplementation, IcoHelloWorld)
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure HelloWorld; safecall;
  end;

implementation

uses CorbInit;

procedure TcoHelloWorld.HelloWorld;
begin
  writeln('Hello World - 硂琌Delphi 5