pp.prg

来自「可以自由调整大小进行拍照摄像并自动保存,能捕获视频进录像并保存」· PRG 代码 · 共 24 行

SET DEFAULT TO h:\eeye
CLOSE ALL 
cDbf='莫云峰'
SELECT 1
USE USER
SELECT 2
USE &cDBF
SELECT User
GO bott
cFile=ALLTRIM(path)
SET DEFAULT TO &cFile
A = ADIR(cPict,'*.*')
SELECT &cDbf
 FOR nCOUNT = 1 TO A
*    WAIT wind UPPER((cPict (nCOUNT,1))) 
    IF  UPPER('.bmp') $UPPER((cPict (nCOUNT,1))) 
       FF = cFile + ALLTRIM(cPict (NCOUNT,1))
       APPEND BLANK
       REPLACE FileName WITH FF ,ID WITH ALLTRIM(STR(RECNO()))
    ENDIF
    nCount=nCount+1
    LOOP 
 ENDFOR 
SET DEFAULT TO h:\eeye