Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Stream read error (https://www.clubdelphi.com/foros/showthread.php?t=48373)

felipep 23-09-2007 02:31:07

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... :confused:

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!


La franja horaria es GMT +2. Ahora son las 15:32:06.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi