Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2011-07

Error al imprimir un reporte en lazreport

6 messages · 3 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Gustavo Adolfo Cruz Martinez

Buenas tardes. He tenido problemas al visualizar o imprimir directamente un reporte en lazreport. Los datos los toma el reporte de un campo que tiene 255 caracteres de una mdb . Estoy utilizando el la siguiente versi�n de l�zarus: Versi�n #: 0.9.31; Versi�n FPC: 2.4.3; Revisi�n SVN: 30686. En esencia lo que sucede es que cuando intento imprimir o visualizar el programa se cierra. El error que me marca es el siguiente: "El proyecto Eventuales.exe ha lanzado una excepci�n de la clase 'External: SIGSEGV' " y me lleva a este lugar:
function UTF8Desc(S: string; var Desc: string): Integer;var i,b: Integer;begin i := 1; Result := 0; SetLength(Desc, Length(S)); while i<=Length(s) do begin b := UTF8CharacterStrictLength(@S[i]); inc(i,b); inc(Result); Desc[Result] := Char(b); end; Setlength(Desc, Result);end; El texto que se debe mostrar es el siguiente: "Rayos X de Mano. dedos. pu�o (mu�eca). codo. pie. clav�cula. antebrazo. cuello de pie (tobillo)."o este: "Senos paranasales. maxilar inferior. �rbitas. articulaciones temporomandibulares. agujeros �pticos" Muchas gracias de antemano por vuestro tiempo

GustavoCruz
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110725/4ad35fa0/attachment.html>

Reply by email

Hector S. Ponce
to Gustavo Adolfo Cruz Martinez

ponete un ejemplo de como llamas a la funcion es decir que valores le pasas a S y Desc

El 25/07/2011 17:51, Gustavo Adolfo Cruz Martinez escribi�:

Show quoted text 47 lines
Buenas tardes. He tenido problemas al visualizar o imprimir directamente un reporte en lazreport. Los datos los toma el reporte de un campo que tiene 255 caracteres de una mdb . Estoy utilizando el la siguiente versi�n de l�zarus: Versi�n #: 0.9.31; Versi�n FPC: 2.4.3; Revisi�n SVN: 30686. En esencia lo que sucede es que cuando intento imprimir o visualizar el programa se cierra. El error que me marca es el siguiente: "El proyecto Eventuales.exe ha lanzado una excepci�n de la clase 'External: SIGSEGV' " y me lleva a este lugar: function UTF8Desc(S: string; var Desc: string): Integer; var i,b: Integer; begin i := 1; Result := 0; SetLength(Desc, Length(S)); while i<=Length(s) do begin b := UTF8CharacterStrictLength(@S[i]); inc(i,b); inc(Result); *Desc[Result] := Char(b);* end; Setlength(Desc, Result); end; El texto que se debe mostrar es el siguiente: "Rayos X de Mano. dedos. pu�o (mu�eca). codo. pie. clav�cula. antebrazo. cuello de pie (tobillo)." o este: "Senos paranasales. maxilar inferior. �rbitas. articulaciones temporomandibulares. agujeros �pticos" Muchas gracias de antemano por vuestro tiempo GustavoCruz _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110725/426c25ae/attachment.html>

Reply by email

Gustavo Cruz Martínez

Hola Hector,

para imprimir el reporte, simplemente escribo esto y listo:
     frReport1.LoadFromFile('Factura.lrf');
     frReport1.PrepareReport;
     frReport1.PrintPreparedReport('1', StrToInt(Copias.Text));

El error se dispara cuando el texto es demasiado largo. aunque en todo caso tengo la propiedad Streched a True

Reply by email

Hector S. Ponce
to Gustavo Cruz Martínez

pero cuando llamas a la funcion que valores les pasas? s y desc

El 25/07/2011 18:19, Gustavo Cruz Mart�nez escribi�:

Show quoted text 14 lines
Hola Hector, para imprimir el reporte, simplemente escribo esto y listo: frReport1.LoadFromFile('Factura.lrf'); frReport1.PrepareReport; frReport1.PrintPreparedReport('1', StrToInt(Copias.Text)); El error se dispara cuando el texto es demasiado largo. aunque en todo caso tengo la propiedad Streched a True _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

Reply by email

Gustavo Cruz Martínez

Yo no paso nada para esa funci�n seguramente ella se dispara al visualizar los datos en los memos.

Te repito que cuando quiero imprimir o visualizar un reporte que tiene un campo con texto largo me sucede eso. Lo que yo hago es simplemente indicarle al componente frReport que me imprima o visualicer nada m�s...

Muchas gracias por tu colaboraci�n

Reply by email

Hector S. Ponce
to Gustavo Cruz Martínez

perdon no entendia o sea que es una funcion que usaq el lazreport y no tuya, trato de repetir el error y te digo que obtengo.

El 25/07/2011 18:27, Gustavo Cruz Mart�nez escribi�:

Show quoted text 13 lines
Yo no paso nada para esa funci�n seguramente ella se dispara al visualizar los datos en los memos. Te repito que cuando quiero imprimir o visualizar un reporte que tiene un campo con texto largo me sucede eso. Lo que yo hago es simplemente indicarle al componente frReport que me imprima o visualicer nada m�s... Muchas gracias por tu colaboraci�n _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

Reply by email