Execute umgehen

[body2009]

So habe die Lösung.

Mir ist eingefallen das die Objecte die ich so drauf ziehe, nur einmal geöffnet werden, und nicht gelöscht werden können.
und da ist mir der gedanke gekommen das es doch nicht der RvProject1.execute sein kann der denn fehler auslöst.

Da habe ich einfach noch mal geprüft un der Fehler war das ich den RVndrWriter nicht löschen kann da ich ihn ja nicht selber erstellt habe.

Somit habe ich ihn selber erstellt und wieder beim Frm_Start.on_close gelöscht. und jetzt funktinirt es

der code sieht jetzt so aus: var: RVNDR = TRvNDRWriter

Delphi-Quellcode:

if Assigned(RVNDR) = true then
  begin
    RVNDR.Free;
  end;
  RVNDR:= TRvNDRWriter.Create(self);
  with RVNDR do
    begin
      StatusFormat := 'Printing page %p';
      Units := unMM ;
      UnitsFactor := 25.4;//00000000000000000
      Title := 'Rave Report';
      Orientation := poPortrait;
      ScaleX := 50;//.000000000000000000
      ScaleY := 50;//.000000000000000000
      StreamMode := smUser;
    end;
  RVNDR.Stream := TMemoryStream.Create;
  try

  RvProject1.Close;
  RvProject1.Engine := RVNDR;
  RvProject1.Execute;
  RvRe_Preview.Render(RVNDR.Stream);
  RvProject1.Engine := nil;
  except
    on E: Exception do begin