unit2.~pas

Delphi6分布式开发例程 )

unit Unit2;

interface

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

type

  TWaitingServer = class(TCorbaImplementation, IWaitingServer)
  private
    { Private declarations }
  
  protected
    procedure WaitingProcess(const ThreadID: WideString; Duration: Integer);
      safecall;public
    { Public declarations }
  end;

implementation

uses CorbInit;

procedure TWaitingServer.WaitingProcess(const ThreadID: WideString;
  Duration: Integer);
begin
        Form1.CheckListBox1.Items.Add('线程'+ThreadID+'功能：等待'+inttostr(WaitingTime)+'秒');
        Sleep(Duration*1000);  //等待Duration秒
end;

initialization
  TCorbaObjectFactory.Create('WaitingServerFactory', 'WaitingServer', 'IDL:Project1/WaitingServerFactory:1.0', IWaitingServer,
    TWaitingServer, iSingleInstance, tmMultiThreaded);
end.