Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quinta-feira, 9 de outubro de 2014

DELPHI / ANDROID (Firemonkey) - Verificar existência de câmera frontal e traseira - Check if there is front and back camera

Reações: 
No Android não temos uma função para verificar se o aparelho contém câmera frontal e/ou traseira, porém podemos fazer essa verificação com uma simples função Try/Except.

Para isso precisamos adicionar um TCameraComponent e criar a função passando o TCameraKind como parâmetro.

Veja a função abaixo:

 

function TFrmPrincipal.HasCamera(AKind : TCameraKind): Boolean;
begin
  Result := False;
  Try
    CameraComponent.Active := false;
    CameraComponent.Kind   := AKind;
    CameraComponent.Active := true;
    Result := True;
  Except
    Result := False;
  End;
end;



E podemos usar essa função em um evento dessa forma:

 
procedure TFrmPrincipal.Button1Click(Sender: TObject);
begin
  if HasCamera(TCameraKind.ckFrontCamera) then
    //Existe câmera frontal
  else
    //Não existe câmera frontal

  if HasCamera(TCameraKind.ckBackCamera) then
    //Existe câmera traseira
  else
    //Não existe câmera traseira

end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer