FW_ReadImage error

[TOTOVIOTTI]

Amigos,
de vez en cuando, cuando abro un diálogo que tiene una pequeña imagen que lo identifica
y que lo tomo de mi archivo de recursos, me da el siguiente error:

Error occurred at: 15-01-2025, 12:26:58
Error description: Error BASE/1133 Error de rango: asignaci¢n del array
Args:
[ 1] = N 10

Stack Calls
===========
Called from: .\source\function\imgtxtio.prg => FW_READIMAGE( 1605 )

Se reinicia la compu y listo, no ocurre más, pero, es incómodo. Por ahora
lo puedo zafar diciéndoles esto, pero, me gustaría encontrar la solución para
esto. No son grandes imágenes, son pequeñas y que las tengo en mi archivo
de recursos. Cabe acotar que lo hace en diferentes diálogos y con diferentes imágenes,
no lo hace siempre con la misma.

Alguno sabe como puedo solucionar esto?
Muchas gracias!!

Roberto

[karinha]

https://forums.fivetechsupport.com/view ... rg#p257439

Regards, saludos.

[TOTOVIOTTI]

Gracias Karinha,

no saco mucho en claro en el post que me pasas, seguiré buscando
cual puede ser el problema. Entiendo que tenga que ver con el tema
del uso de la memoria respecto de los archivos de imágenes de los recursos...



Muchas gracias..

[karinha]

imgtxtio.prg => Linea: 1605 Muestre. Isso significa que aArrayData está vazio.

Regards, saludos.

[nageswaragunupudi]

Please let me know your FWH version.
Is the image a bmp or ico or some other? Let me see the entry in the RC file.

[TOTOVIOTTI]

Thank you Mr. Nages:

1) My version is 24.08

2) Regarding whether it is from BMP or ICO, yes, they are the only resources I use in my DIALOGs.

3) As for how I use it:
REDEFINE BITMAP oBmp ID 100 OF oDlg RESOURCE "D_CLIENTES" TRANSPARENT

I clarify that it does not always happen, I suppose it must be something of memory, because, once the error occurs, it repeats itself. If I restart the computer, it works fine again.

Thank you so much!!
Roberto

[nageswaragunupudi]

Please make this correction in the function FW_ReadImage() in the file fwh\source\function\imgtxtio.prg:

Please locate this line of code:

Code: Select all | Expand

aBmp  := { If( lDuplicate, DuplicateIcon( uBmp ), uBmp ), 0, 32, 32, .f., "ICON", .f., "" }

Replace this line of code with this line

Code: Select all | Expand

aBmp  := { If( lDuplicate, DuplicateIcon( uBmp ), uBmp ), 0, 32, 32, .f., "ICON", .f., "", nil, "" }

I hope this fixes the issue.
If not, please let me know.