Crear Thumbnails (o mini imágenes)
Se plantea el problema de cómo generar lo que normalmente llamamos un "thumbnail" de una imagen que tenemos guardada en un fichero. Añadiendo un poco más de código podríamos generar todos los "thumbnail" de las imagenenes que hay en el directorio. Para ello se utiliza un componente TBitmap.
Vamos con el código:
Se necesita un form con un control OpenDialog para abrir el fichero de imagen (JPG). Y la Unit jpeg en el uses. |
Hola Neftali, si metemos el código dentro de un "UNIT" en lugar de estar en un "FORM", y adaptándolo, para no utilizar los dialogs, me da un error en la siguiente linea.
Me indica
y eso aun copiando los mismos uses en un lado y en otro. Mi código para ser mas exactos es:
|
Se me olvidaba, la pregunta es si sabeis cual puede ser la causa
|
La franja horaria es GMT +2. Ahora son las 04:40:03. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi