Intraweb Datenbankdaten in ein IWGrid legen (kein IWDBGrid

[af99]

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.

[af99]

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

[Olli73]

Zitat von af99:

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.

[af99]

ich habe es auch so versucht
IWGOrders.Cell[1,1].Text := usersession.DataModule1.QR_orders_heute.FieldByName('orders_0800').AsString; es kam aber der gleiche Fehler.

Ich habe das dann mal rausgenommen

Delphi-Quellcode:

procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);
begin
  inherited;
  Datamodule1 := TDatamodule1.Create(Self);
end;

der Fehler bleibt der geiche.

Wofür brauche ich das CoInitialize() ??? und wo muss das hin ???

[af99]

hat das denn noch wirklich keiner gemacht ???
In einer Windowsanwendug ist das doch Gang und Gebe.
Kann doch eingentlich mit dem Intraweb nicht so schwer sein oder??????