2 respuestas en este tema

[martinartaza]

Hola querida comunidad, estuve tratando de resolver este problema y no doy con la tecla, le cuento, estoy usando lazarus 9.30 en ubuntu 10.04, el componente lazreport.

Todo me funcione en principio bien, o sea, si mando a imprimir anda bien, si rediseño el reporte en tiempo de ejecución también me anda bien, pero si entro al programa y diseño el reporte, guardo y luego quiero imprimir me da problema, sin embargo si cierro el programa y lo vuelvo a ejecutar y quiero imprimir me muestra las modificaciones que hice.

El codigo para imprimir es el siguiente:

delphi

procedure Tfpaciente.MImprimirClick(Sender: TObject);
begin
   frReport1.LoadFromFile('Reporte.lrf');
   frReport1.PrepareReport;
   frReport1.ShowReport;
end;       

El evento getvalue del componente report (el reporte tiene variables)

delphi

procedure Tfpaciente.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
  var
  titulo, doctor, pie: string;
begin
 
   with TIniFile.Create('inicio.ini') do
   try
      titulo := ReadString('informe', 'titulo', 'Informe de plestimografia');
      doctor := ReadString('informe', 'doctor', 'doctor');
      pie := ReadString('informe', 'pie', 'Pie del informe');
   finally
      free;
   end;
 
 
    if ParName='nombre' then
     ParValue:= 'juancito';
    if ParName= 'edad' then
     ParValue:= '21';
    if ParName='altura' then
     ParValue:= '2.0';
    if ParName= 'peso' then
     ParValue:= '90';
 
    if ParName='imcadq' then
     ParValue:= '20';
    if ParName= 'riadq' then
     ParValue:= '21';
    if ParName='siadq' then
     ParValue:= '2.0';
    if ParName='imccalc' then
     ParValue:= '20';
    if ParName= 'ricalc' then
     ParValue:= '21';
    if ParName='sicalc' then
     ParValue:= '2.0';
 
    if ParName='titulo' then
     ParValue:= titulo;
    if ParName= 'doctor' then
     ParValue:= doctor;
    if ParName='pie' then
     ParValue:= pie;
end;   

En otro formulario cuando uno presiona en el boton diseñar

delphi

procedure TFConfinforme.bdisenarClick(Sender: TObject);
begin
   frReport1.LoadFromFile('Reporte.lrf');
   frReport1.DesignReport;
end;

El error que me aparece cuando primero diseño y guardo (ahí no pasa nada) luego cierro la ventana que tiene el boton diseñar y luego voy a imprimir, es el siguiente:

Project pzvasc raised exception class 'External: SIGSEGV'

Además note que no siempre aparece el error, por ejemplo, entro diseño, guardo, hago preview, salgo, me voy a la otra ventana y no aparece el error cuando mando a imprimir.

Pero si entro, diseño, guardo, salgo sin hacer preview, me voy a imprimir me da el error.

Bueno no se que hacer  , desde ya muchas gracias.

[jdepaz]

Hola martinartaza !

El problema que mencionas sucede cuando ejecutas la aplicación directamente desde el IDE, por experiencia te lo puedo decir.


En ocasiones, cuando ejecuto las aplicaciones desde el IDE me muestra el mismo mensaje de error, lo he probado en Linux y Windows.


Entonces, prueba a ejecutar la aplicación directamente (el ejecutable) y nos dices si se te presenta el mismo error.


Saludos

[martinartaza]

Muchas gracias, era eso o sea no había ningún error. Muchisimas gracias...