uholdserver.pas

来自「delphi多层应用系统 delphi多层应用系统」· PAS 代码 · 共 26 行

unit uHoldServer;

interface

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

type

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

implementation

uses CorbInit, fMultiThreadDemoServerMain;

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