unit3.pas

Delphi6分布式开发例程 )

unit Unit3;

interface

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

type

  TSleepingServer = class(TCorbaImplementation, ISleepingServer)
  private
    { Private declarations }

  protected
    procedure SleepingProcess(const ThreadID: WideString; Duration: Integer);
      safecall;public
    { Public declarations }
  end;

implementation

uses CorbInit;

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

initialization
  TCorbaObjectFactory.Create('SleepingServerFactory', 'SleepingServer', 'IDL:Project1/SleepingServerFactory:1.0', ISleepingServer,
    TSleepingServer, iSingleInstance, tmMultiThreaded);
end.