hmm, das (DataModule1: TDataModule1)stand so in einem Tuorial. Sonst kann ich ja das Datenmodul nicht mit DataModule1.XXX ansprechen. das habe ich so aber auch schon öfters gesehen.
Du musst ja auch irgendwie über UserSession.Datamodule1.xxx o.ä. darauf zugreifen, damit du genau die Instanz bekommst, die deiner Session entspricht.
Hier wird also ein Datamodule für die bzw. pro Session erstellt (bzw. ein Pool ?):
Delphi-Quellcode:
procedure TIWServerController.PoolCreateDataModule(var ADataModule: TDataModule);
begin
ADataModule := TDataModule1.Create(nil);
end;
Und im folgenden ertstellst du dann nochmals eine Instanz pro Session:
Delphi-Quellcode:
procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);
begin
inherited;
Datamodule1 := TDatamodule1.Create(Self);
end;
Und auch an CoInitialize() denken.