ufreezeserver.pas

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

unit uFreezeServer;

interface

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

type

  TFreezeServer = class(TCorbaImplementation, IFreezeServer)
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure FreezeMeFor(const vID: WideString; iSeconds: Integer); safecall;
  end;

implementation

uses CorbInit, fMultiThreadDemoServerMain;

procedure TFreezeServer.FreezeMeFor(const vID: WideString;
  iSeconds: Integer);
begin
  frmFreezeMain.CheckListBox1.Items.Add('磅︽狐' + vID + ' 硈挡