access violation

[chilenauta]

gracias por tus sugerencias, cerregi nuevamente los codigos que mencionaste y ahora estoy intentando ejecutar para ver si arroja el mismo error.

Empezado por Neftali

Ojo, que no siempre los errores "saltan" cuando se ejecuta la línea incorrecta, más cuando son problemas de memoria. En tu caso, la primera instrucción de liberación nunca fallará, la segunda puede ser que sí o puede ser que no, lo que es seguro es que no está liberando algo correcto.

[chilenauta]

hola,
lamentablemente sigue apareciendo el error de violacionde acceso... alguna idea?

[chilenauta]

hola foristas,
ya encontre una solucion de menor costo para evitar el desagradable error de "access violation". el truco es el siguiente:

en vez de hacer:

formRpt.qreport.preview;

hay que hacer esto:

formRpt.qreport.previewmodal;
if (messagedlg(...) = ...) then
formRpt.qreport.print;

algo pasa con "xxx.preview;" que sigue ejecutando las instrucciones posteriores... asi que habria que usar "previewmodal", pero el previewmodal no me muestra los botones "print", asi que habria que codigicar a mano la posibilidad de impresion.

sera esta la solucion? no lo se... pero por lo menos, ya no me sale el error de violacion de acceso... salud!!!!
espero comentario!!!

[roman]

Empezado por chilenauta

algo pasa con "xxx.preview;" que sigue ejecutando las instrucciones posteriores...

¡Pues claro que sigue ejecutando las instrucciones posteriores!; éste es el comportamiento normal a menos- como ya has notado -que muestres el reporte con PreviewModal ya que entonces sí se detiene la ejecución hasta que no cierres el formulario. En tu código original

Código Delphi [-]
frmRptF.Free;
frmRptF := TfrmRptF.Create(Self);
try
  frmRptF.Previsualizar(letra.asString, nv);
  frmRptF.Close; 
finally
  FreeAndNil(frmRptF);
end;

luego de la llamada a frmRptF.Previsualizar (que internamente llama a qr.Preview) el formualrio se destruye mietras aún está visible.

Lo único que tienes que hacer es:

Código Delphi [-]
frmRptF := TfrmRptF.Create(Self);
frmRptF.Previsualizar(letra.asString, nv);

y dejar el Action := caFree en el evento OnClose del formulario del reporte.

// Saludos

[chilenauta]

Empezado por roman

¡Pues claro que sigue ejecutando las instrucciones posteriores!; éste es el comportamiento normal a menos- como ya has notado -que muestres el reporte con PreviewModal ya que entonces sí se detiene la ejecución hasta que no cierres el formulario. En tu código original

Código Delphi [-]
frmRptF.Free;
frmRptF := TfrmRptF.Create(Self);
try
frmRptF.Previsualizar(letra.asString, nv);
frmRptF.Close; 
finally
FreeAndNil(frmRptF);
end;

luego de la llamada a frmRptF.Previsualizar (que internamente llama a qr.Preview) el formualrio se destruye mietras aún está visible.

Lo único que tienes que hacer es:

Código Delphi [-]
frmRptF := TfrmRptF.Create(Self);
frmRptF.Previsualizar(letra.asString, nv);

y dejar el Action := caFree en el evento OnClose del formulario del reporte.

// Saludos

hola, gracias por tus sugerencias...
pero el evento OnClose no se activa con el boton "close" de la previsualizacion..., en ese caso, donde debo poner el codigo???
gracias

[roman]

Empezado por chilenauta

el evento OnClose no se activa con el boton "close" de la previsualizacion..., en ese caso, donde debo poner el codigo???

¡Oh vaya! Pues mira qué razón tienes. El punto es que la vista preliminar se presenta en realidad en otro formulario, no en aquél donde se haya colocado el QuickRep.

Mira, no lo he visto con detalle, pero en una prueba rápida parece que podría servirte el evento AfterPreview del QuickRep:

Código Delphi [-]
procedure TForm2.QuickRep1AfterPreview(Sender: TObject);
begin
  Close;
end;

// Saludos

[chilenauta]

Empezado por roman

¡Oh vaya! Pues mira qué razón tienes. El punto es que la vista preliminar se presenta en realidad en otro formulario, no en aquél donde se haya colocado el QuickRep.

Mira, no lo he visto con detalle, pero en una prueba rápida parece que podría servirte el evento AfterPreview del QuickRep:

Código Delphi [-]
procedure TForm2.QuickRep1AfterPreview(Sender: TObject);
begin
Close;
end;

// Saludos

hola,
gracias por el dato,
lo probare inmediato a ver si con eso se resuelve el problema.