Intraweb Datenbankdaten in ein IWGrid legen (kein IWDBGrid

[af99]

HAllo Zusammen,

puh Intraweb is doch ganz schön anders als Delphi.
Also hier die Rahmenbedingungen: Delphi XE Enterprise
In einer MS SQL DB 2008 R2 liegen die Daten. Zugriff über ADO (dbGo Komponenten).
Hier meine DataModuleUnit

Delphi-Quellcode:

unit DataModuleUnit;

interface

uses
  Forms, SysUtils, Classes, DB, ADODB;

type
  TDataModule1 = class(TDataModule)
    Con_srvsqlprod01: TADOConnection;
    QR_orders_heute: TADOQuery;
    DS_QR_orders_heute: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
  public
    procedure querry_orders_heute;
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

procedure TDataModule1.querry_orders_heute;
begin
  QR_orders_heute.SQL.Clear;
  QR_orders_heute.SQL.Add(
                'select DISTINCT orders_0800 ' +
                'FROM tLog WITH(NOLOCK) ' +
                          );
  QR_orders_heute.Active := true;
end;

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  Con_srvsqlprod01.ConnectionString := 'Provider=sqloledb;' +
                                       'Data Source=XXX;'+
                                       'Initial Catalog=XXX;'+
                                       'User Id=XXX;' +
                                       'Password=XXX';

  Con_srvsqlprod01.LoginPrompt := False;
  Con_srvsqlprod01.Open;
  querry_orders_heute;
end;

end.

Hier meine ServerControler Unit

Delphi-Quellcode:

unit ServerController;

interface

uses
  SysUtils, Classes, IWServerControllerBase, IWBaseForm, HTTPApp,
  // For OnNewSession Event
  UserSessionUnit, IWApplication, IWAppForm, DataModuleUnit, IWDataModulePool;

type
  TIWServerController = class(TIWServerControllerBase)
    Pool: TIWDataModulePool;
    procedure IWServerControllerBaseNewSession(ASession: TIWApplication;
      var VMainForm: TIWBaseForm);
    procedure IWServerControllerBaseCreate(Sender: TObject);
    procedure PoolCreateDataModule(var ADataModule: TDataModule);
    procedure PoolFreeDataModule(var ADataModule: TDataModule);
  private

  public
  end;

  function UserSession: TIWUserSession;
  function IWServerController: TIWServerController;
  function LockDataModule: TDataModule1;
  procedure UnlockDataModule(ADataModule: TDataModule1);

implementation

{$R *.dfm}

uses
  IWInit, IWGlobal;

function UserSession: TIWUserSession;
begin
  Result := TIWUserSession(WebApplication.Data);
end;

function IWServerController: TIWServerController;
begin
  Result := TIWServerController(GServerController);
end;

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;

procedure TIWServerController.PoolFreeDataModule(var ADataModule: TDataModule);
begin
  FreeAndNil(ADataModule);
end;

function LockDataModule: TDataModule1;
begin
  Result := TDataModule1(TIWServerController(GServerController).Pool.Lock);
end;

procedure UnlockDataModule(ADataModule: TDataModule1);
var
  LTemp: TDataModule;
begin
  LTemp := ADataModule;
  TIWServerController(GServerController).Pool.Unlock(LTemp);
end;

initialization
  TIWServerController.SetServerControllerClass;
end.

Hier meine UserSessionUnit

Delphi-Quellcode:

unit UserSessionUnit;

{
  This is a DataModule where you can add components or declare fields that are specific to 
  ONE user. Instead of creating global variables, it is better to use this datamodule. You can then
  access the it using UserSession.
}
interface

uses
  IWUserSessionBase, SysUtils, Classes, DataModuleUnit;

type
  TIWUserSession = class(TIWUserSessionBase)
    procedure IWUserSessionBaseCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    DataModule1: TDataModule1;
  end;

implementation

{$R *.dfm}

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

end.

Hier die Unit von meinem Main Formular

Delphi-Quellcode:

unit main;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWGrids,
  IWDBGrids, IWCompButton;

type
  TFMain = class(TIWAppForm)
    IWDBGrid1: TIWDBGrid;
    IWGOrders: TIWGrid;
    IWButton1: TIWButton;
    procedure IWButton1Click(Sender: TObject);
  public
    procedure IWGOrders_fuellen;
  end;

implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TFMain.IWButton1Click(Sender: TObject);
begin
  IWGOrders_fuellen;
end;

procedure TFMain.IWGOrders_fuellen;
var
  test: string;
begin

  //IWGOrders.Cell[1,1].Text := '15';
  //IWGOrders.Cell[1,1].Text := DataModule1.QR_orders_heute.FieldByName('orders_0800').AsString;
  test := DataModule1.QR_orders_heute.FieldByName('orders_0800').AsString;
end;

initialization
  TFMain.SetAsMainForm;

end.

Hierin liegt nun der Knackpunkt

Delphi-Quellcode:

  //IWGOrders.Cell[1,1].Text := '15';
  //IWGOrders.Cell[1,1].Text := DataModule1.QR_orders_heute.FieldByName('orders_0800').AsString;
  test := DataModule1.QR_orders_heute.FieldByName('orders_0800').AsString;

IWGOrders.Cell[1,1].Text := '15'; Das funktioniert
IWGOrders.Cell[1,1].Text := DataModule1.QR_orders_heute.FieldByName('orders_08 00').AsString; das
test := DataModule1.QR_orders_heute.FieldByName('orders_08 00').AsString; und das hingegen nicht.

Leider habe ich im Netz nichts gefunden wie ich nun unter Intraweb die Daten aus meiner Datenquelle in dieses verfixte Grid bekomme.

Ich kann hier kein IWDBGrid nehmen da meine Daten in der finalen Version aus unterschiedlichen Datenquellen kommen die ich nicht mit einem Statement abfragen kann.

Kann mir hier irgendeiner helfen ???

Viele Grüße
Andreas

[Lemmy]

Hi,

Zitat von af99:

IWGOrders.Cell[1,1].Text := '15'; Das funktioniert
IWGOrders.Cell[1,1].Text := DataModule1.QR_orders_heute.FieldByName('orders_08 00').AsString; das
test := DataModule1.QR_orders_heute.FieldByName('orders_08 00').AsString; und das hingegen nicht.

wenn ich mal nur die drei Zeilen anschaue, dann würde ich mal schlicht vermuten, dass das Problem auf der rechten Seite der Zuweisung steht und nicht links. Zudem wäre es hilfreich etwas mehr Infos zu geben, was denn genau nicht geht, denn "geht nicht" ist ein ziemlich weites Feld.

[af99]

Jep da hast Du recht.

Ich kann das Projekt erfolgreich kompilieren und starten. Wenn ich dann im Browser den Button betätige der die Procedure "IWGOrders_fuellen" aufruft erhalte ich folgende Fehlermeldung

"Im Projekt... ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletztung bei Adresse 0066EDDD im Modul XXX lesen von Adresse 00000064 aufgetreten."

Ich habe auf des Main Formular mal eine IWDBGrid Komponente gelegt in dieser werden die Daten einwandfrei angezeigt

[Lemmy]

siehst Du, ist doch gar nicht schwer. Und jetzt seh ich auch den Fehler (zumindest glaub ich das):

UserSessionUnit: HIer definierst Du ein DataModule1: TDataModule1; und erzeugst das dann auch. Im MainForm machst Du aber ein uses DataModuleUnit; d.h. Du greifst da auf das nicht initialisierte DataModule zu.

Grüße

[af99]

ok, ich habe das dann geändert auf
IWGOrders.Cell[1,1].Text := usersession.DataModule1.QR_orders_heute.FieldByName('orders_0800').AsString; ich hoffe Du meintest das so. Leider kommt immer noch der gleiche Fehler (bzw der gleiche mit anderen Adressen 0066EDE1 und 00000069)

[Lemmy]

hm..

kannst Du mal etwas Debugcode einbauen? Oder geht IW irgend wie direkt debuggen?

Überprüf bitte mal ob
Assigned(Usersession)
Assigned(Usersession.DataModule1)
Assigned(Usersession.DataModule1.QR_orders_heute)

Wie schaut es mit der Compilersetting "Optimierung" aus - die falls an mal ausschalten. Hat IW nicht einen eingebauten Debugger/Debugconsole?

Grüße

[af99]

was mich so ein bischen irretiert ist das das IWDBGrid mit den Daten aus der Query gefüllt wird. Ich sehe die Daten also direkt beim Öffnen der Seite im Browser. die DataSource des IWDBGrid ist "DataModule1.DS_QR_orders_heute". die DS zeigt auf die Query "QR_orders_heute"

[Olli73]

Ich muss sagen, ich habe von Intraweb keine Ahnung, nutze selber UniGui. Aber folgendes

Delphi-Quellcode:

unit DataModuleUnit;

...

var
  DataModule1: TDataModule1;

wäre in UniGui fatal (wahrscheinlich auch in Intraweb ?). Denn "DataModule1" existiert dadurch im ganzen Projekt nur 1 mal und bei mehreren Sessions würden mehrere Threads gleichzeitig auf das gleiche Dataset zugreifen.

Jede Session sollte ihre eigene Datenbankverbindung (Datenmodul-Instanz) haben, bei Verwendung von ADO/COM sollte außerdem ein CoInitialize() aufgerufen werden.

[af99]

Jubel, irgendwie habe ich es dann selbst hinbekommen. Es lag bestimmt an dem Zusammenspiel mit der Usersession und dem Datamodule.
Dieser Artiklel hat mir dabei geholfen: http://www.drbob42.com http://downloads.2ccc.com/tools/book...evelopment.PDF
Ich habe das komplette Projekt dann nochmal so wie es bei mir funktioniert in den Anhang gelegt.

Vielen Dank an alle die mir mit Rat und Tat zur Seite standen.

Viele Grüße
Andreas