COMO ATIVAR WEBCAM EM DELPHI
| Esse exemplo ensina como ativar a webcam utilizando a versão RAD Studio 10.4 Sydney do Embarcadero Delphi.
Inicie uma nova Aplicação MultiDevice.
No Form, adicione um TButton, um TComboBox e um TImage.
Adicione o uses FMX.Media.
Adicione a variavel em public:
Camera: TVideoCaptureDevice; //Variável baseada em função de biblioteca que permite ligar a variável a camera
procedure SampleBufferSync; //Procedimento que conecta nosso componente TImage a camera
procedure SampleBufferReady(Sender: TObject; const ATime: TMediaTime); //Procedimento que reajusta o TImage para o tamanho original do video
No evento de modificação do Combobox, adicione:
E por fim adicione nossos procedimentos:
Ao fechar o software, destruimos os processos associados ao nossos componentes:
|
