20898_es-ES

liliconcom

Recortar imagen e insertar recorte en la tabla de datos<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Actualmente estoy ejecutando un script que inserta una imagen de 1 Mb en una tabla de datos usando el siguiente script simple (donde: el enlace a la imagen es una unidad de red donde se almacena el jpg)

Fórmula( Abierto ( :Enlace a la imagen, "jpg" ) ),

Debido al tamaño de la imagen, la tabla de datos se está agrandando (tengo ~1500 imágenes) y probé la función de recorte pero no puedo obtener la sintaxis correcta

una de las diversas formas que he probado es la siguiente (¡y probablemente todas las combinaciones de esto, excepto la correcta!).

Fórmula( Abierto ( :Enlace a la imagen, "jpg" ) ) << cultivo ( Izquierda ( 190 ), arriba( 0 ), abajo( 1690 ), Bien ( 700 ) ),

Siento que estoy cerca pero no del todo allí.

Idealmente haría lo siguiente

1. Abra la imagen (¿una a la vez para ahorrar memoria de la computadora?)
2. recorte la imagen, luego guarde el recorte en una carpeta central. Esto permitiría un análisis de imagen adicional si fuera necesario.
3. Insertar el cultivo en la tabla de datos
4. Cierra la imagen original.

Saludos

David

Re: Recortar imagen e insertar recorte en tabla de datos

Aquí hay un script de ejemplo que hace lo que indicaste que querías

Nombres predeterminados hasta aquí ( 1 ) ;

// Obtener la lista de las imágenes

lista de archivos = Archivos en el directorio ( "$SAMPLE_IMAGES" ) ;

// Recorre todas las imágenes, recortando y guardando

Para ( i = 1 , i <= N elementos ( lista de archivos ) , i ++,

// Usar un Sustituto porque el valor de la extensión debe ser una expresión,

// no es un literal

evaluar (

Sustituto (

exp. (

imagen = Abierto ( "$SAMPLE_IMAGES\" || lista de archivos [ i ] , __extensión__ )

) ,

exp. ( __extensión__ ) , Analizar gramaticalmente ( Palabra ( - 1 , lista de archivos [ i ] , "." ) )

)

) ;

// Dar tiempo para que se lea la imagen

Esperar ( 1 ) ;

      

// recortar la imagen

imagen << Cultivo ( Izquierda ( 50 ) , Bien ( 100 ) , Arriba ( 60 ) , Abajo ( 150 ) ) ;

// Guarda la imagen en una nueva carpeta

imagen << Guardar foto ( "" || lista de archivos [ i ] , Palabra ( - 1 , lista de archivos [ i ] , "." ) ) ;

) ;

// Crea una nueva tabla

Nueva tabla ( "Intitulado" ,

Agregar filas ( N elementos ( lista de archivos ) ) ,

Nueva columna ( "imagen" , Expresión , "Ninguno" , Establecer valores ( {} ) )

) ;

// Rellenar la columna de la imagen

por cada fila (

: imagen = nueva imagen ( "" || lista de archivos [ fila ()])

) ;