RaveReport Error #40 Boolean expression expected

[TUX_der_Pinguin]

So ich habe jetzt noch mal ein kleines Tool gebastelt um alles andere von dem eigentlichen Projekt auszuschließen.

Ich habe einen einfachen Report erstellt, eine Region mit einem Databand auf den wird dann zur Laufzeit ein DataText Objekt plaziert.
Und mit Hilfe eines Ereignis welches ebenfalls zur Laufzeit erstellt wird soll der Text eingefärbt werden.

Durch den Klick auf den Button wird der Report aufgerufen und als PDF Datei exportiert und anschließend wird das PDF geöffnet.

Und wieder kann ich dieses nur einmal machen, beim zweiten Versuch erhalte ich eine Fehlermeldung dies mal ist es jedoch "General Compiler Error".
Das liegt aber wohl nur daran das ich Integer an den Report übergebe und keine Strings mehr, bei Strings würde ich wieder die
ursprüngliche Fehlermeldung "Error #40 Boolean expression expected" erhalten.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  Report: TRaveReport;
  Page: TRavePage;
  DataBand: TRaveDataBand;
  DataView: TRaveDataView;
  DataText: TRaveDataText;
  Event: TRaveSimpleEvent;

begin
  //Rave für PDF Export vorbereiten...
  RvSystem.DefaultDest    := rdFile;
  RvSystem.DoNativeOutput := False;
  RvSystem.RenderObject   := RvRenderPDF;
  RvSystem.OutputFileName := '.\test.pdf';
  RvSystem.SystemSetups   := RvSystem.SystemSetups - [ssAllowSetup];
  RvSystem.SystemOptions  := RvSystem.SystemOptions - [soShowStatus];

  //Report öffnen
  RvProject.ProjectFile := '.\test.rav';
  RvProject.Open;

  //Komponenten ermitteln
  Report := RvProject.ProjMan.FindRaveComponent('Test', nil) as TRaveReport;
  Page := RvProject.ProjMan.FindRaveComponent('Page1', Report) as TRavePage;
  DataBand := RvProject.ProjMan.FindRaveComponent('DataBand1', Page) as TRaveDataBand;
  DataView := RvProject.ProjMan.FindRaveComponent('DataView1', Page) as TRaveDataView;
  CreateFields(DataView, nil, nil, True);

  //Feld erstellen
  DataText := DataBand.CreateChild(TRaveDataText, 'dtData') as TRaveDataText;
  DataText.DataField := 'DataFeld';
  DataText.DataView := DataView;
  DataText.Top := 0;
  DataText.Left := 0 / RvProject.ProjMan.UnitsFactor;
  DataText.Width := 15 / RvProject.ProjMan.UnitsFactor;

  //Ereignis erstellen
  Event := TRaveSimpleEvent.Create;
  Event.Name := 'DataFeldOnBeforePrint';
  Event.ModuleOwner := Page;
  Event.Sender := DataText;
  Event.Owner := DataText;
  Event.Body := 'if DataView1Color.AsInteger <> '+IntToStr(clBlack)+' then'+
                '  Self.Color := DataView1Color.AsInteger;'+
                'end;';

  DataText.OnBeforePrint := Event;

  //Events kompilieren..
  RvProject.ProjMan.Compile;

  //Report ausführen...
  RvProject.ExecuteReport('Test');

  //Report schließen...
  RvProject.Close;

  ShellExecute(Application.Handle, 'open', PWideChar('.\test.pdf'), nil, nil, SW_NORMAL);

end;

Der Quellcode, kompilierte Exe und die Report Datei habe ich angehängt.

[sx2008]

Du solltest das TRaveSimpleEvent nach dem Schliesen des Reports mit Free freigeben; ansonsten hast du ein Speicherleck.
Es könnte sogar sein, dass das alte Event irgendwie noch gecached wird und sich deshalb der Compiler beschwert.

[TUX_der_Pinguin]

Wenn ich nach RvProject.Close versuche das Event freizugeben mit Event.Free dann kommt die Fehlermeldung "Ungültige Zeigeroperation" und nicht mal beim ersten mal lässt sich der Report ausführen.

Was ich mittlerweile glaube ist das die Rave Report (7.6.2.) Komponente verbuggt ist und das gar nicht funktionieren kann, was sehr schade wäre.

Ich habe das Tool noch mal so geändert das die Komponenten RvProject, RvSystem und RvRenderPDF zur laufzeit erzeugt werden und auch
wieder freigegeben werden. Ich dachte irgendwas wird beim ersten ausführen gemacht was nicht verworfen wird und beim nächsten mal zu Problemen führt.

Das einzigste was hilft die ganze Anwendung beenden, aber das ist ja nicht gerade akzeptabel.
Bitte lieber Kunde du kannst nur einmal ein Dokument als PDF exportieren oder drucken danach starte bitte die Anwendung neu.