Cómo obtener una instantánea de una cámara web con Delphi7 mediante VFrames (TVideoImage)
Estoy usando Delphi7 y VFrames (TVideoImage) con este procedimiento
uses VFrames;
....
procedure TForm1.snapshot;
var
cam:TVideoImage;
strlst:TStringList;
BMP:TBitmap;
begin
strlst := TStringList.Create ;
cam :=TVideoImage.Create;
cam.GetListOfDevices(strlst);
cam.VideoStart(strlst.Strings[0]); //specify a cam by number
//get snapshot
BMP := TBitmap.Create;
cam.GetBitmap(BMP);
BMP.SaveToFile('test.bmp');
cam.VideoStop;
BMP.Free;
end;
Resultado en blanco archivo de mapa de bits.