FoxPro/Visual FoxPro - TIMER CON TABLA VFP

LOCAL lcFolder,lnfiles,i,;

	lnSegundos_Interval

* Carpeta de imágenes

lcFolder = "c:\theodore\graphics"

lnSegundos_Interval = 10

* Esto reemplaza a la tabla con imágenes

*< Creo un cursor >

CREATE CURSOR misbmp ("FileName" c(100),"FileSize" i,"fecha" D, "Hora" c(5))

* Levanto las imágenes en el cursor

lnfiles = ADIR(laFiles,ADDBS(lcFolder)+"*.bmp","",1)

FOR i = 1 TO lnFiles

	INSERT INTO MisBmp (FileName,FileSize,Fecha,Hora) ;

		VALUES (ADDBS(m.lcFolder)+laFiles[i,1],laFiles[i,2],laFiles[i,3],laFiles[i,4])

NEXT

*</ Creo un cursor >

* Creo una Propiedad Array y Dos propiedades numéricas

ADDPROPERTY(thisform,"nItems",0)

ADDPROPERTY(thisform,"nCount",0)

ADDPROPERTY(thisform,"aPictures[1]",.f.)

* Relleno la propiedad array con datos del cursor

SELECT filename ;

	FROM MisBmp ;

	INTO ARRAY thisform.aPictures

thisform.nItems = _tally

* Asigno el intervalo de muestra

IF thisform.nItems > 0

	thisform.timer1.Interval = m.lnSegundos_interval * 1000

	* Pongo en marcha el timer

	thisform.timer1.Enabled = .t.

ENDIF

WITH thisform

	IF .nCount = .nItems

		.nCount = 0

	ENDIF

	.nCount = .nCount + 1

ENDWITH

thisform.img_pict1.Picture = TRIM(thisform.aPictures[thisform.nCount])