RaveReport Error #40 Boolean expression expected

[TUX_der_Pinguin]

So ich hoffe jemand von euch weiß woran das liegen kann das wenn ich folgende Routine ein
weiteres mal aufrufe das dann ein Fehler gemeldet wird. "Error #40 - Boolean expression expected".
Der erste Durchlauf funktioniert einwandfrei und dann war es das, ich muss die Anwendung beenden
und kann dann die Routine erst dann wieder benutzen.

Ich bekomme den Fehler weg wenn ich die Zeile RvProject.ProjMan.Compile weglasse nur dann werden
auch die Ereignisse nicht erzeugt. Und bei google findet sich nur ein Eintrag mit der gleichen
Fehlermeldung, hier aus dem Forum, nur ohne eine Lösung.

Delphi-Quellcode:

procedure PrintReport;
var
  Report: TRaveReport;
  Page: TRavePage; 
  DataBandTabData: TRaveDataBand;
  DV_TabData: TRaveDataView;
  Event: TRaveSimpleEvent;

begin
  //Report öffnen & Komponenten ermitteln
  RvProject.ProjectFile := glLocalAppDir+FILE_REPORT_GENERAL;
  RvProject.Open;
  Report := RvProject.ProjMan.FindRaveComponent('MyReport', nil) as TRaveReport;
  Page := RvProject.ProjMan.FindRaveComponent('Page1', Report) as TRavePage;
  DataBandTabData := RvProject.ProjMan.FindRaveComponent('DataBandTabData', Page) as TRaveDataBand;
  DV_TabData := RvProject.ProjMan.FindRaveComponent('DV_TabData', Page) as TRaveDataView;
  CreateFields(DV_TabData, nil, nil, True);

  //Feld erstellen
  DataText := DataBandTabData.CreateChild(TRaveDataText, 'dt_DynamischerFeldName') as TRaveDataText;
  DataText.DataField := 'DynamischerFeldName';
  DataText.DataView := DV_TabData;

  //Event erzeugen
  Event := TRaveSimpleEvent.Create;
  Event.Name := TableLayout.Tabs[Idx].Key+'OnBeforePrint';
  Event.ModuleOwner := Page;
  Event.Sender := DataText;
  Event.Owner := DataText;
  Event.Body := 'Self.Color := '+IntToStr(clRed)+';';

  //Event zuweisen
  DataText.OnBeforePrint := Event;

  //Event kompilieren
  RvProject.ProjMan.Compile;

  //Report ausführen und schließen
  RvProject.ExecuteReport('MyReport');
  RvProject.Close;

end;

[Aviator]

Hast du es mal mit dem Debugger versucht und geschaut wo er stehen bleibt?

Edit: Vielleicht liegt es ja an der CreateFields() Prozedur.

[baumina]

Du createst einiges in dieser procedure, das du nicht wieder frei gibst, evtl. liegt es daran.

[TUX_der_Pinguin]

Zitat von Aviator:

Hast du es mal mit dem Debugger versucht und geschaut wo er stehen bleibt?

Also Debuggen kann ich da nichts, er bleibt bei RvProject.ExecuteReport(''); hängen da der Fehler irgendwo in den Eingeweiden vom Rave System auftritt.
Und da bei der Delphi Version keine Quelltexte von Rave dabei sind kann man auch nicht sehen wo genau der Fehler ausgelöst wird.

Zitat von baumina:

Du createst einiges in dieser procedure, das du nicht wieder frei gibst, evtl. liegt es daran.

Daran habe ich auch schon gedacht nur wenn ich z.b. versuche nach ExecuteReport oder Close z.b. das Ereignis mit Event.Free freizugeben dann bekomme ich einen Zeigerfehler.

In den Beispielen von Nevrona, wo es darum geht Felder etc. zuerzeugen wird auch nichts explizit freigegeben am Ende. Die Beispiele enthalten leider nicht die Erzeugung von Ereignissen bzw. die
Ausführung des Kompiler.

[baumina]

Bevor du das Event freigeben kannst, musst du die Zuordnung DataText.OnBeforePrint auf NIL setzen. Aber muss Datatext nicht ebenfalls freigegeben werden? Ist DataText global deklariert?

[TUX_der_Pinguin]

Zitat von baumina:

Bevor du das Event freigeben kannst, musst du die Zuordnung DataText.OnBeforePrint auf NIL setzen. Aber muss Datatext nicht ebenfalls freigegeben werden? Ist DataText global deklariert?

DataText ist lokal deklariert, ich hatte es nur vergessen in meinem Beispiel anzugeben im echten Code
ist es aber da.

Ich habe keinen Schimmer was ich noch ausprobieren soll, in allen Beispielen sowohl mit als auch ohne
Ereignis Erzeugung wird nach RvProject.ProjMan.Compile nichts freigegeben oder durch weitere Befehle zurückgesetzt.

[baumina]

Ich würde an deiner Stelle versuchen den Report vor dem Compile auf Festplatte zu speichern und ihn mir dann anschauen.