unitdm.pas

Welcome to the ASTA 3 Help Tutorials. These are documented tutorials that included new user jump sta

unit UnitDM;

interface

uses
  SysUtils, Classes, kbmMWCustomConnectionPool, kbmMWADOX, DB, ADODB,
  kbmMWCustomTransport, kbmMWServer, kbmMWTCPIPIndyTransport,
  kbmMWCustomSQLMetaData,IdTCPServer,kbmMWSecurity;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    kbmMWADOXConnectionPool1: TkbmMWADOXConnectionPool;
    kbmMWPooledSession1: TkbmMWPooledSession;
    kbmMWGenericSQLMetaData1: TkbmMWGenericSQLMetaData;
    kbmMWServer1: TkbmMWServer;
    kbmMWTCPIPIndyServerTransport1: TkbmMWTCPIPIndyServerTransport;
    procedure DataModuleCreate(Sender: TObject);
    procedure kbmMWServer1ServeRequest(Sender: TObject;
      InStream: TkbmMWCustomRequestTransportStream;
      Service: TkbmMWCustomService; ClientIdent: TkbmMWClientIdentity;
      const Args: array of Variant);
    procedure kbmMWTCPIPIndyServerTransport1Connect(
      AThread: TIdPeerThread);
    procedure kbmMWServer1ServeResponse(Sender: TObject;
      OutStream: TkbmMWCustomResponseTransportStream;
      Service: TkbmMWCustomService; ClientIdent: TkbmMWClientIdentity;
      const Args: array of Variant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var
    sd:TkbmMWCustomServiceDefinition;
begin
   sd:=kbmMWServer1.RegisterService(TkbmMWQueryService2,false);
   kbmMWServer1.Active:=True;
end;

procedure TDM.kbmMWServer1ServeRequest(Sender: TObject;
  InStream: TkbmMWCustomRequestTransportStream;
  Service: TkbmMWCustomService; ClientIdent: TkbmMWClientIdentity;
  const Args: array of Variant);
begin
  with Form1 do
  begin
    Label1.Caption:='AccRequestCount:  '+inttostr(kbmMWServer1.AccRequestCount+1);
    Memo1.Lines.Add('Request at '+DateTimetostr(now));
    Memo1.Lines.Add('   RemoteLocation:  '+ClientIdent.RemoteLocation);
    // Memo1.Lines.Add('   ClientLocation:  '+ClientIdent.ClientLocation);
  end;
end;

procedure TDM.kbmMWTCPIPIndyServerTransport1Connect(
  AThread: TIdPeerThread);
begin
  with Form1 do
  begin
    Memo1.Lines.Add('   SocksInfo.Host:  '+AThread.Connection.Socket.SocksInfo.Host);
  end;
end;

procedure TDM.kbmMWServer1ServeResponse(Sender: TObject;
  OutStream: TkbmMWCustomResponseTransportStream;
  Service: TkbmMWCustomService; ClientIdent: TkbmMWClientIdentity;
  const Args: array of Variant);
begin
  with Form1 do
  begin
    Memo1.Lines.Add('Response at '+DateTimetostr(now));
    Memo1.Lines.Add('-------------------------------------------------');
    Memo1.Lines.Add(' ');
  end;
end;

end.