Compartir a través de

Usar el comando APPEND GENERAL con un archivo de Imager

En este artículo se presenta cómo usar el comando APPEND GENERAL con un archivo Imager.

Versión original del producto: Visual FoxPro
Número de KB original: 152370

Resumen

En este artículo se describe cómo usar el APPEND GENERAL comando para colocar archivos PICT en un campo general de Visual FoxPro. También proporciona información sobre los problemas que pueden producirse y cómo corregirlos.

La sintaxis general del APPEND GENERAL comando para anexar archivos imager en Visual FoxPro es:

APPEND GENERAL <generalfield> FROM <filename> ;
CLASS "Microsoft Imager 2.0 Picture"

Nota:

Este comando debe estar todo en una sola línea. Aquí se muestra en dos líneas debido a limitaciones de espacio.

Para determinar qué escribir para la cláusula CLASS en el APPEND GENERAL comando, modifique un campo general en Visual FoxPro. A continuación, elija el comando Insertar objeto en el menú Editar. Los elementos enumerados son los nombres de clase que funcionarán con el APPEND GENERAL comando .

Más información

Visual FoxPro incluye algunos archivos PICT. Se encuentran en la carpeta "Microsoft Visual FoxPro:Samples:Graphics". Estos gráficos están contenidos en archivos autoextraíbles (sea). Para seguir los pasos siguientes, haga doble clic en picts.sea para extraer los archivos PICT. Almacénelos en la carpeta predeterminada especificada "Carpeta Picts".

Ejemplo paso a paso

Los pasos siguientes son necesarios para usar el APPEND GENERAL comando para colocar un archivo PICT en un campo general de Visual FoxPro:

  1. Abra el archivo PICT en Microsoft Imager. Imager también puede abrir archivos TIFF (formato de archivo de imagen de etiqueta). Abra la carpeta Muestras:Gráficos:Carpeta Pict:Zorro:archivo ADD.PICT.

  2. En el menú Archivo, elija Guardar como para guardar el archivo de imagen. En el cuadro de diálogo Guardar como, cambie el tipo de archivo a Macintosh PICT. Seleccione Opciones en el cuadro de diálogo Guardar como para cambiar los atributos del archivo PICT. Los valores predeterminados son correctos para los fines de este artículo. Al guardar el archivo fuera de Imager, el Creador cambiará a MIMG para que OLE funcione con él.

  3. Guardar el archivo ADD.PICT como ADDImager.PICT. Cierre el archivo PICT en Imager.

  4. En Visual FoxPro, cree o abra una tabla que tenga un campo general. Anexe un registro en blanco a la tabla, como APPEND BLANK. En la ventana Comando de Visual FoxPro, emita el siguiente comando:

 APPEND GENERAL olefield FROM ;
 HOME()+"Samples:Graphics:Fox:ADDImager.PICT" ;
 CLASS "Microsoft Imager 2.0 Picture"

Nota:

El comando anterior debe estar todo en una sola línea. Aquí se muestra como tres líneas debido a limitaciones de espacio. El nombre general del campo y la ruta de acceso al archivo PICT pueden variar.

Este archivo PICT debe anexarse sin problemas. Sin embargo, es pequeño. Los archivos PICT que son más grandes que los ejemplos enviados con Visual FoxPro pueden requerir que se asigne más memoria a Imager antes de que se puedan anexar correctamente. De forma predeterminada, Imager tiene asignado 4096K. Al aumentar esto a 8192 K, los archivos PICT más grandes se insertarán en el campo general con el comando APPEND GENERAL o pasando por la interfaz y eligiendo el comando Insertar objeto en el menú Editar cuando se haya abierto el campo general (MODIFY GENERAL olefield).

El siguiente programa se puede usar para automatizar el cambio del creador del archivo PICT a Imager y anexar el PICTS a un campo general. El programa supone que el archivo Picts.sea que se encuentra en la carpeta Microsoft Visual FoxPro:Samples:Graphics se ha descomprimido y que la siguiente es la ruta de la carpeta a los archivos PICT de esquema.

<foxpro folder>:Samples:Graphics:Picts folder:Outline

Solo hay seis archivos PICT esquemáticos. Este proceso puede tardar mucho tiempo si hay un gran número de archivos implicados.

 SET LIBRARY TO HOME()+"FoxTools.cfm" ADDITIVE
 DIMENSION farray(1,1)
 CLEAR

 y=HOME()+"Samples:Graphics:Picts folder:Outline:*.PICT"
 x=ADIR(farray,"&y")? "Changing Creators of the Pict files to Imager."
 ?
 FOR i=1 TO x
 IF FxSetType(SYS(2027,HOME()+ ;
 "Samples:Graphics:Picts folder:Outline:"+farray(i,1)),"PICT","MIMG")=0
 WAIT farray(i,1)+" changed successfully" TIMEOUT 2
 ELSE
 WAIT farray(i,1)+" not changed successfully" TIMEOUT 2
 ENDIF
 ENDFOR

 SELECT 0
 CREATE TABLE OutlinePicts (descript C(32), olefield G)?
 ?
 ?
 ? "Appending in the Pict files"
 ?
 FOR i=1 TO x
 APPEND BLANK
 REPLACE OutlinePicts.descript WITH farray(i,1)
 y=SYS(2027,HOME()+"Samples:Graphics:Picts folder:Outline:"+farray(i,1))
 APPEND GENERAL olefield FROM (y) CLASS "Microsoft Imager 2.0 Picture"
 WAIT farray(i,1)+" appended" TIMEOUT 2
 ENDFOR

BROWSE NOWAIT
 SET LIBRARY TO