¿Reporteador gratuito y sin necesidad de componentes?

[[felipe88]]

Empezado por Lepe

Pero en ese caso (que no he mirado), cada vez que deseas imprimir un informe tienes que abrir el "Report Manager Designer" y desde ahí darlo todos los parámetros que necesite la consulta ¿no?

Gracias

Hasta ahora, he instalado los componentes en delphi y desde ahí llamo al generador de informes incrustado en mi aplicación (así no necesito instalar el Report Manager Designer en casa del cliente).

Saludos

Bueno Lepe tienes razón, para poder mostrar el reporte y pasarle parámetros como debe ser, se necesita instalar los paquetes en Delphi, cosa que no es lo que quiero... ¿pero que mas puedo pedir? aunque el resultado final sin usar los componentes no sería el apropiado

[jorge82]

Hola, aquí encontré una guía para utilizar el report manager como un ActiveX, de esta manera se puede manipular el reporte sin los componentes. Solo hay que descargar y registrar el .ocx en la maquina que vaya a utilizar el reporte.

Espero te sea de utilidad.

[[Héctor Randolph]]

Como dije anteriormente Report Manager es muy versátil y existen muchas formas de utilizarlo.

Una de ellas es llamar la biblioteca de funciones (en Windows Reportman.ocx) desde nuestro ejecutable, aquí encuentras la guía de como trabajar con la API

Empezado por Report Manager Features

- Small footprint, the engine can be embedded inside your exe.

http://reportman.sourceforge.net/doc/gnuc.html

Incluso el motor puede ser invocado desde la línea de comandos, esto es útil para lenguajes de script como PHP, Phyton, Javascript, etc.

http://reportman.sourceforge.net/doc/otherlang.html

Saludos

[[felipe88]]

También encontré esto para el ActiveX

Empezado por Report Manager

With Delphi

Include the rpreportmanapiqt.pas unit in your uses clause, then use the functions.

Empezado por Report Manager

Here is a list of properties and methods:

procedure SetDatasetSQL(datasetname:string;sqlsentence:string);
procedure SetDatabaseConnectionString(databasename:string;connectionstring:string);
function GetDatasetSQL(datasetname:string):string;
function GetDatabaseConnectionString(databasename:string):string;
procedure SetParamValue(paramname:string;paramvalue:Variant);
function GetParamValue(paramname:string):Variant;
function Execute:Boolean;
procedure ExecuteRemote(hostname:String;port:integer;user,password,aliasname,reportname:String);
procedure PrinterSetup;
function ShowParams:boolean;
procedure SaveToPDF(filename:string;compressed:boolean=false);
function PrintRange(frompage:integer;topage:integer;
copies:integer;collate:boolean):boolean;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);override;
constructor Create(AOwner:TComponent);override;
{ Public declarations }
published
{ Published declarations }
property Filename:string read FFilename write SetFilename;
property Preview:boolean read FPreview write SetPreview default true;
property ShowProgress:boolean read FShowProgress write SetShowProgress;
property ShowPrintDialog:boolean read FShowPrintDialog write SetShowPrintDialog;
property Title:string read FTitle write SetTitle;
property Language:integer read FLanguage write SetLanguage;

Amigos muchas gracias

[[felipe88]]

Hola,
Probando hice lo siguiente, instale el *.ocx y añadí el rpreportmanapi.pas al proyecto ejemplo... ahora, ¿alguién tiene algún ejemplo de como usar estas funciones?

Código Delphi [-]
int rp_execute(int hreport,char *outputfilename,int metafile,int compressed);
int rp_print(int hreport,char *title,int showprogress,int showprintdialog);
int rp_preview(int hreport,char *title);

Con esta tuve un error ya que "aparentemente" no encuentra el reporte...

Código Delphi [-]
int rp_open(char *filename);

[[Lepe]]

Empezado por felipe88

aunque el resultado final sin usar los componentes no sería el apropiado

En realidad sólo lo decía para saber más sobre esa opción que no la había usado, es decir, ampliar horizontes.

Creo que el resultado apropiado, es el que resuelve el problema puntual. Habrá otros métodos, pero si, por ejemplo, usas las turbo delphi o tu jefe no te deja instalar componentes, ya has encontrado la solución apropiada .

En cuanto a tu problema, ¿qué valores le pasa? ¿ruta completa del archivo?

La verdad, la declaración de la función no sirve de mucho para ayudarte

Saludos

[[felipe88]]

Empezado por Lepe

...La verdad, la declaración de la función no sirve de mucho para ayudarte...

Bueno la verdad las tome tal cual como estan en la documentación... con el open hacia la siguiente prueba en el evento onClick de un boton:

Código Delphi [-]
begin
  rp_open('C:\Prueba\Reportes\Reporteprueba.rep');
end;

Luego el mensaje de error al no encontrar el archivo... ¿alguna idea?

Y si... estoy seguro de que será la solución apropiada

[[Lepe]]

Intenta con esto a ver:

Código Delphi [-]
var rphandle :integer;
begin
 rphandle := rp_open(pchar('c:\prueba\Reportes\ReportePrueba.rep'));
  rp_preview(rphandle,pchar('titulo del informe'));

Si no va intenta pasar el nombre de archivo encerrado entre comillas dobles (la que está encima del número 2), igual tienes una partición FAT y ReportePrueba es de más de 8 caracteres).

Saludos

[[felipe88]]

Empezado por Lepe

...igual tienes una partición FAT y ReportePrueba es de más de 8 caracteres...

¿podrias explicarme un poco esta relación, tiene que ver con el Handle? ... apenas llegue a casa haré la prueba, no lo tengo instalado en este equipo ...

Gracias

[[felipe88]]

Empezado por Lepe

Intenta con esto a ver:

Código Delphi [-]
var rphandle :integer;
begin
 rphandle := rp_open(pchar('c:\prueba\Reportes\ReportePrueba.rep'));
  rp_preview(rphandle,pchar('titulo del informe'));

Si no va intenta pasar el nombre de archivo encerrado entre comillas dobles (la que está encima del número 2), igual tienes una partición FAT y ReportePrueba es de más de 8 caracteres).

Saludos

Me sacó el mismo error ... sin hembargo encontre un ejemplo en el FTP del Club, le daré un vistaso

[[Lepe]]

En particiones FAT, si tienes un archivo con más de 8 caracteres, debes encerrar el nombre de archivo entre comillas dobles para que lo encuentre.

Código Delphi [-]
 rphandle := rp_open(pchar('"c:\prueba\Reportes\ReportePrueba.rep" '));

Si no lo haces, el sistema operativo no encontrará el archivo y por consiguiente el Handle que obtienes será cero (error).

En particiones NTFS, puedes pasar el archivo tal cual y el sistema operativo lo interpreta correctamente y lo abrirá bien.

Recuerda que en windows da igual las mayúsculas y minúsculas en carpetas y archivos pero en Linux no.

Saludos

[[felipe88]]

Bien,
En el mensaje 18 de este hilo, pregunte lo de la partición FAT... ya que el equipo en el que pruebo es NTFS (Windows XP) ... de igual forma como comente le daré un vistaso al ejemplo; de no encontrar nada... aqui estaré