home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Corba / Datamodule / corbaserverform.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  923b  |  43 lines
  1. unit CORBAServerForm;
  2.  
  3. {
  4.   This is the form that gets displayed when the server is running.
  5.   A Counter is maintained on this Form to display the number of
  6.   clients connected to it.
  7.   For in-depth transfer of information between client and server,
  8.   please refer to demos in MIDAS directory. 
  9. }
  10.  
  11. interface
  12.  
  13. uses
  14.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  15.   StdCtrls;
  16.  
  17. type
  18.   TMainServerForm = class(TForm)
  19.     ClientsLabel: TLabel;
  20.     ClientCount: TLabel;
  21.   private
  22.     { Private declarations }
  23.     FClientCount: Integer;
  24.   public
  25.     { Public declarations }
  26.     procedure UpdateClientCount(Incr: Integer);
  27.   end;
  28.  
  29. var
  30.   MainServerForm: TMainServerForm;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TMainServerForm.UpdateClientCount(Incr: Integer);
  37. begin
  38.   FClientCount := FClientCount+Incr;
  39.   ClientCount.Caption := IntToStr(FClientCount);
  40. end;
  41.  
  42. end.
  43.