dr.prg

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

*************导入新建影集的图片*************************
SELECT user
GO bott
cFile=ALLTRIM(path)
SET DEFAULT TO &cFile
A = ADIR(cPict,'*.*')
SELECT &cDbf
FOR nCOUNT = 1 TO A
    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
    LOOP 
 ENDFOR 
SET DEFAULT TO h:\eeye