Это COM объект кторый делает фотки
вызывать так
oCam = CREATEOBJECT("camserv.camserv")
oCam.app = _vfp
oCam.InitForm(VAL(lcCamRotate))
oCam.getfoto()

if type('ocam')="O"
ocam.getfoto()
__foto = oCam.ffile+".jpg"
thisform.filefoto=__foto
if FILE(__foto)
cStr = FILETOSTR(__foto)
ENDIF
endif

код вырван из контекста но должен работать

какие были проблемы
1. если зразу ж делать фотку то веб камера ИНОГДА делала чорнуюю фотку (не успевала стартонуть) поэтому там делаем несколько "пустых" снимков.
2. если две и больше веб камеры, то есть проблема з подключением :) ОНО бывает не к той камере подключаеться :). Я имею ввиду одинаковых камер :)

это форма для настройки камеры.
она выводи все в поток на екран, сом обэкт не используеться

Если что-то неясно пиши, правда это код писали более 3-4 лет назад....