SGSCan - Capturar imagen de camara web

[[fjcg02]]

Para hacer lo que quieres solo tienes que incluir las Jedi, poner en el formulario un TJvAVICapture de nombre Avicap y añadir la procedure
siguiente. Añade un TImage en el formulario y asignale la imagen que tiene la variable pic. Puedes asignar al Timage directamente la imagen del portapapeles. Es un metodo un poco 'guarro', pero funciona; El resto, es cosa tuya

Espero que te sea de ayuda

Un saludo

Código Delphi [-]
procedure TMainFormClient.Button1Click(Sender: TObject);
var
  pic : TBitmap;
begin
  try
    AviCap.DriverIndex := 0;
    AviCap.Previewing := true;
  except
     on E: Exception do ;
  end;
    pic := TBitmap.Create;
    avicap.copytoclipboard;
    if Clipboard.HasFormat(CF_BITMAP) then
    begin
       pic.Assign(Clipboard);
    end;
// asigna la imagen aqui !!
    pic.FreeImage;
    FreeAndNil(pic);
end;