[Ramsay]

Hola ,estoy tratando de realizar una foto de una webcam activa , el codigo :

Código Delphi [-]
procedure take_photo;

var
  bit: TBitmap;
  Bmp: TBitmap;
  invisible_paint: TPaintBox;
  DeviceList: TStringList;
  video: TVideoImage;

begin

  DeviceList := TStringList.Create;

  invisible_paint := TPaintBox.Create(nil);
  invisible_paint.Width := 400;
  invisible_paint.Height := 400;
  invisible_paint.Align := alClient;

  video := TVideoImage.Create;
  video.GetListOfDevices(DeviceList);
  video.SetDisplayCanvas(invisible_paint.Canvas);
  video.VideoStart(DeviceList[0]);

  bit := TBitmap.Create;
  bit.PixelFormat := pf24bit;
  video.GetBitmap(bit);
  bit.SaveToFile('test.bmp');

  video.VideoStop;

  bit.Free;
  invisible_paint.Free;
  video.Free;
  DeviceList.Free;

end;

Es una funcion en una aplicacion de consola , el problema es que siempre me genera un bmp vacio con todo balnco o verde. ¿ Como soluciono este problema ?