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(vName: OleVariant; var vResult: OleVariant); safecall;
  end;

implementation

uses CorbInit;

procedure TcoHelloWorld.HelloWorld(vName: OleVariant;
  var vResult: OleVariant);
var
  sThread : string;
begin
  sThread := IntToStr(GetCurrentThreadId);
  writeln('Hello World ' + vName + ' ' + sThread + ' is connected!');
  vResult := 'Hi ' + vName + ' - This is coHelloWorld : ' + sThread;
end;

initialization
  TCorbaObjectFactory.Create('coHelloWorldFactory', 'coHelloWorld', 'IDL:PcoHelloWorld/coHelloWorldFactory:1.0', IcoHelloWorld,
    TcoHelloWorld, iMultiInstance, tmSingleThread);
end.