die Usersession und das Datamodule wird im ServerControler erzeugt
Delphi-Quellcode:
procedure TIWServerController.IWServerControllerBaseNewSession(
ASession: TIWApplication; var VMainForm: TIWBaseForm);
begin
ASession.Data := TIWUserSession.Create(nil);
end;
procedure TIWServerController.IWServerControllerBaseCreate(Sender: TObject);
begin
Pool.Active := True;
end;
procedure TIWServerController.PoolCreateDataModule(var ADataModule: TDataModule);
begin
ADataModule := TDataModule1.Create(nil);
end;
Das ganze Rahmenprogramm habe ich nicht selber erfunden das erstellt Delphi größtenteils selbst. Ich habe eigentlich nur die Sachen mit dem Grid und dem DBGrid und dem
DB Zugriff selber gemacht
Wenn das Programm startet sehe ich auch auf der
DB ca. 15 Sessions