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 ?