Página 1 de 1

GPF en TImageEditor

Publicado: Mar Sep 10, 2024 11:19 am
por Jose Lopez
Buenas.
Tengo en GPF que en principio había solucionado con esto:
oImageEditor:oPicture:End()
oImageEditor:oPicture := Nil
oImageEditor:End()
oImageEditor := Nil
Pero cuando realizo muchas iteraciones el error vuelve a aparecer.
Este es el GPF:
GPF (Code = c0000005):
Access violation

TPICTURE:SAVETOSTREAM (0)
TIMAGEEDITOR:SAVETOSTREAM (171)
AJUSTARIMAGEN (665)
TFORMARTICULOSBROWSE:GLASSBTNIMPORTARIMAGENCLICK (487)
TGLASSBTN:ONCLICK (0)
TGLASSBTN:CLICK (100)
(b)XCONTROL (156)
TGLASSBTN:COMMAND (0)
TPANEL:WMCOMMAND (275)
TFORMARTICULOSBROWSE:SHOWMODAL (0)
TFORMMENU:GLASSBTNIMPORTARCLICK (150)
TGLASSBTN:ONCLICK (0)
TGLASSBTN:CLICK (100)
(b)XCONTROL (156)
TGLASSBTN:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (275)
TFORMMENU:WMCOMMAND (969)
RUNFORM (0)
TAPPLICATION:RUN (292)
MAIN (40)

No se si es mejor usar otro method en vez de :End()
para liberar memoria, creo que por ahí podría ir los tiros.
Gracias equipo.
Saludos

Re: GPF en TImageEditor

Publicado: Mié Sep 11, 2024 10:11 am
por Jose Lopez
Es posible implementar el Method :Crop({nLeft, nTop, nRight, nBottom}) en la clase TPicture ?
Yo solo uso TImageEditor para hacer el recorte de la imagen.
Muchas gracias

Re: GPF en TImageEditor

Publicado: Lun Sep 16, 2024 1:22 pm
por Jose Lopez
Buenas tardes.
Comentar que según conversación con Jose F. me comento que usara esta función: cImageData := CreateThumbnail(cImagen, nHeight, nWidth,,,,0xffffff) para simplificar la adaptación de la imagen al tamaño deseado.
Os lo comento por si a alguien le sirve.
Muchas gracias equipo.
Salu2