Intraweb Datenbankdaten in ein IWGrid legen (kein IWDBGrid

[af99]

ok, habe es dann so gemacht

Delphi-Quellcode:

procedure TFMain.IWGOrders_fuellen;
var
  test: string;
begin
  if Assigned(Usersession) then //er springt von hier nach
    iwLabel1.Caption := 'Usersession ist da'
  else
    iwLabel1.Caption := 'Usersession ist nicht da'; // hier
  if Assigned(Usersession.DataModule1) then //hier kommt die Exception. Den Rest macht er dann erst gar nicht
    iwLabel2.Caption := 'DataModule1.QR_orders_heute ist da'
  else
    iwLabel2.Caption := 'DataModule1.QR_orders_heute ist nicht da';
  if Assigned(Usersession.DataModule1.QR_orders_heute) then
    iwLabel3.Caption := 'Usersession.DataModule1.QR_orders_heute ist da'
  else
    iwLabel3.Caption := 'Usersession.DataModule1.QR_orders_heute ist nicht da';

  iwLabel4.Caption := DataModule1.QR_orders_heute.FieldByName('orders_0800').AsString;
end;

Compilersettings im Debug-mode bei der Option "Optimierung" auf false ... Wo stelle ich das ein?? Unter Projekt/Optionen gibt es diese Einstellung nicht ich habe das mal als Bild angehangen

[rapante]

Wo erzeugst du denn deine Usersession?

Wenn diese schon nicht assigned ist, kanllt's naturlich auch beim Zugriff auf Usersession.Datamodule ...

[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??????

[Olli73]

Aus deinem Beitrag #10:

Zitat von af99:

Delphi-Quellcode:

  if Assigned(Usersession) then //er springt von hier nach
    iwLabel1.Caption := 'Usersession ist da'
  else
    iwLabel1.Caption := 'Usersession ist nicht da'; // hier
  ...

Ich habe von Intraweb keine Ahnung, aber wenn Usersession nicht assigned ist, dann brauchst du auch gar nicht mehr zu versuchen auf Objekte/Variablen in dieser Session zuzugreifen, sondern musst erst mal klären, wie du an die UserSession ran kommst.

Zu CoInitialize / CoInitializeEx:

Das wird benötigt, wenn COM (ADO) innerhalb von Threads aufgerufen wird; in jedem Thread zu Beginn 1 mal aufrufen.

[af99]

OK, ich habe ja wie gesagt das Projekt von Delphi erstellen lassen. Daher dachte ich das die Usersession korrekt erzeugt ist und zur Verfügung steht. Auf dem Formular werden die Daten ja auch in dem DBGrid angezeigt. Was muss ich also nun tun damit die Usersession zur verfügung steht???

[Lemmy]

hi,
kannst Du eben das Testprojekt (ohne DB) hier als zip einstellen?

Grüße