Ver Mensaje Individual
  #1  
Antiguo 23-09-2007
felipep felipep is offline
Registrado
 
Registrado: sep 2007
Posts: 7
Reputación: 0
felipep Va por buen camino
Exclamation Stream read error

Hola, he querido hacer un reporte en rave reports; lo que necisito es que aparezca en un scrollbox el preview y necesito hacer todo el reporte con código... Me sale al final un error que dice Stream Read Error...

Lo que hice fue poner un RvNDRWriter y un RvRenderPreview1, les paso mi código, sólo es un ejemplo para ver si jala, el chiste es que ni siquiera me deja genererar ese reporte, no sé que hacer...

Código Delphi [-]
var   ReportStream: TMemoryStream;
begin

ReportStream := TMemoryStream.Create;
try
RvNDRWriter1.Stream := ReportStream;
RvRenderPreview1.NDRStream := ReportStream;;
RvProject1.Execute;
RvRenderPreview1.Render;
RvRenderPreview1.ZoomFactor := RvRenderPreview1.ZoomPageWidthFactor;
FreeAndNil(ReportStream);
With RvRenderPreview1 Do Begin
  ShadowDepth := 2;
  MarginPercent := 5;
  ZoomFactor := 100;
  ScrollBox := ScrollBox1;
End;
 with RvNDRWriter1 do
begin
  Rectangle(0.3, 0.3, 2, 3);
  SetFont('Arial Narrow', 15);
  NewLine;
  PrintCenter('List of Folders in the Drive Root', 4);
  NewLine;
  NewLine;
  ClearTabs;
  SetTab(0.2, pjLeft, 1.7, 0, 0, 0);
  SetTab(1.7, pjRight, 3.1, 0, 0, 0);
  SetTab(3.1, pjRight, 3.5, 0, 0, 0);
  SetTab(3.5, pjRight, 4.5, 0, 0, 0);
  SetFont('Arial', 10);
  Bold := True;
  PrintTab('Folder Name');
  PrintTab('Number of Files');
  PrintTab('Number of Folders');
  PrintTab('Size of Files');
  Bold := False;
  NewLine;
end;

finally
 FreeAndNil(ReportStream);
end;
end;

Por favor ¡Ayuda!

Última edición por dec fecha: 23-09-2007 a las 04:42:13.
Responder Con Cita