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