Usare il comando APPEND GENERAL con un file Imager

Questo articolo illustra come usare il comando APPEND GENERAL con un file Imager.

Versione originale del prodotto: Visual FoxPro
Numero KB originale: 152370

Riepilogo

Questo articolo descrive come usare il APPEND GENERAL comando per inserire i file PICT in un campo generale di Visual FoxPro. Fornisce anche alcune informazioni sui problemi che possono verificarsi e su come correggerli.

La sintassi generale del APPEND GENERAL comando per aggiungere file Imager in Visual FoxPro è:

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

Annotazioni

Questo comando deve essere tutto su una riga. Viene mostrato qui su due righe a causa di limitazioni di spazio.

Per determinare cosa immettere per la clausola CLASS nel APPEND GENERAL comando, modificare un campo generale in Visual FoxPro. Scegliere quindi il comando Inserisci oggetto dal menu Modifica. Gli elementi elencati sono i nomi di classe che funzioneranno con il APPEND GENERAL comando .

Ulteriori informazioni

Visual FoxPro viene fornito con alcuni file PICT. Si trovano nella cartella "Microsoft Visual FoxPro:Samples:Graphics". Questi elementi grafici sono contenuti in file di archivio autoestraenti (SEA). Per seguire i passaggi seguenti, fare doppio clic su Picts.sea per estrarre i file PICT. Archiviarli nella cartella predefinita specificata 'Picts folder'.

Esempio dettagliato

I passaggi seguenti sono necessari per usare il APPEND GENERAL comando per inserire un file PICT in un campo generale di Visual FoxPro:

1. Aprire il file PICT in Microsoft Imager. Imager può anche aprire file TIFF (Tag Image File Format). Aprire il file Samples:Graphics:Pict:Fox:ADD.PICT.

2. Scegliere Salva con nome dal menu File per salvare il file di immagine. Nella finestra di dialogo Salva con nome, modificare il tipo di file in Macintosh PICT. Selezionare Opzioni nella finestra di dialogo Salva con nome per modificare gli attributi del file PICT. Le impostazioni predefinite sono appropriate ai fini di questo articolo. Il salvataggio del file fuori da Imager cambierà il Creatore in MIMG affinché OLE possa funzionare correttamente.

3. Salvare il file ADD.PICT come ADDImager.PICT. Chiudere il file PICT in Imager.

4. In Visual FoxPro creare o aprire una tabella con un campo generale. Aggiungere un record vuoto alla tabella, ad esempio APPEND BLANK. Nella finestra Comando Visual FoxPro eseguire il comando seguente:

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

Annotazioni

Il comando precedente deve essere tutto su una riga. Viene mostrato qui come tre righe a causa di limitazioni di spazio. Il nome del campo generale e il percorso del file PICT possono variare.

Questo file PICT deve essere aggiunto senza problemi. Tuttavia, è piccolo. I file PICT di dimensioni maggiori rispetto agli esempi forniti con Visual FoxPro potrebbero richiedere un'allocazione di memoria maggiore a Imager prima di poter essere accodati correttamente. Per impostazione predefinita, a Imager sono assegnati 4096K. L'aumento di questo valore a 8192 K consentirà l'inserimento di file PICT più grandi nel campo generale con il comando APPEND GENERAL o passando attraverso l'interfaccia e scegliendo il comando Inserisci oggetto dal menu Modifica quando il campo generale è stato aperto (MODIFY GENERAL olefield).

Il programma seguente può essere usato per automatizzare la modifica del creatore del file PICT in Imager e aggiungere PICTS in un campo generale. Il programma presuppone che il file Picts.sea trovato nella cartella Microsoft Visual FoxPro:Samples:Graphics sia stato decompresso e che il seguente sia il percorso della cartella dei file PICT di contorno:

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

Sono disponibili solo sei file PICT di contorno. Questo processo può richiedere molto tempo se è coinvolto un numero elevato di file.

 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