first3tier2009_servermainform.pas

来自「source code for the Marco Cantu s book D」· PAS 代码 · 共 60 行

unit First3Tier2009_ServerMainForm;

interface

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

type
  TFormFirst3Tier2009Server = class(TForm)
    DSServer1: TDSServer;
    DSTCPServerTransport1: TDSTCPServerTransport;
    DSServerClass1: TDSServerClass;
    Memo1: TMemo;
    procedure DSServerClass1GetClass(DSServerClass: TDSServerClass;
      var PersistentClass: TPersistentClass);
    procedure DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
    procedure DSServer1Disconnect(DSConnectEventObject: TDSConnectEventObject);
  private
    { Private declarations }
  public
    procedure Log (const strMsg: string);
  end;

var
  FormFirst3Tier2009Server: TFormFirst3Tier2009Server;

implementation

uses
  First3Tier2009_ServerModule;

{$R *.dfm}

procedure TFormFirst3Tier2009Server.DSServer1Connect(
  DSConnectEventObject: TDSConnectEventObject);
begin
  Log (TimeToStr (Now) + ': DSServer1Connect');
end;

procedure TFormFirst3Tier2009Server.DSServer1Disconnect(
  DSConnectEventObject: TDSConnectEventObject);
begin
  Log (TimeToStr (Now) + ': DSServer1Disconnect');
end;

procedure TFormFirst3Tier2009Server.DSServerClass1GetClass(
  DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass);
begin
  Log (TimeToStr (Now) + ': DSServerClass1GetClass called');
  PersistentClass := TDSFirst3TierServerModule;
end;

procedure TFormFirst3Tier2009Server.Log(const strMsg: string);
begin
  Memo1.Lines.Add (strMsg);
end;

end.