servermainform.pas

delphi2009 部分中文资料,源程序等

unit ServerMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DSCommonServer, DSTCPServerTransport, DSServer, StdCtrls;

type
  TForm17 = class(TForm)
    DSServer1: TDSServer;
    DSTCPServerTransport1: TDSTCPServerTransport;
    DSServerClass1: TDSServerClass;
    Label1: TLabel;
    ListBox1: TListBox;
    procedure DSServerClass1GetClass(DSServerClass: TDSServerClass;
      var PersistentClass: TPersistentClass);
    procedure DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
    procedure DSServer1Disconnect(DSConnectEventObject: TDSConnectEventObject);
  private
    { Private declarations }
    procedure   ShowConnections;
    class var iTotalConnections : Integer;
  public
    { Public declarations }

    class procedure IncreaseC;
    class procedure DecreaseC;
    class function GetTotalConnections : Integer;
  end;

var
  Form17: TForm17;

implementation

uses uServerModule;

{$R *.dfm}

class procedure TForm17.DecreaseC;
begin
  Dec(iTotalConnections);
end;

procedure TForm17.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
begin
  ListBox1.Items.AddStrings(DSConnectEventObject.ConnectProperties.Properties);
  TForm17.IncreaseC;
  ShowConnections;
end;

procedure TForm17.DSServer1Disconnect(
  DSConnectEventObject: TDSConnectEventObject);
begin
  TForm17.DecreaseC;
  ShowConnections;

end;

procedure TForm17.DSServerClass1GetClass(DSServerClass: TDSServerClass;
  var PersistentClass: TPersistentClass);
begin
  PersistentClass := TDSServerModule1;
end;

class function TForm17.GetTotalConnections: Integer;
begin
  Result := iTotalConnections;
end;

class procedure TForm17.IncreaseC;
begin
  Inc(iTotalConnections);
end;

procedure TForm17.ShowConnections;
begin
  Self.Caption := IntToStr(TForm17.GetTotalConnections);
end;

end.