10-02-2018, Saat: 12:56
Merhaba;
Basit bir örnek üzerinden sorunu anlatmk istiyorum;
Forma 2 adet button ve 1 adet Tcamera componenti ile 1 adet Timage nesnesi ekliyorum.
Button 1 Camerayı aç
Button 2 kameradaki son görüntüyü al kamerayı kapat
Camera Component image nesnesine son rersmi yaz.
Windows 10 mini tablette çalışmıyor ve hatada vermiyor.
Normalde button1 basıldığında kamerada görüntü image nesnesine gelmesi gerekirkn gelmiyor fakat kameranın ışığı .çalıştığını gösteriyor (yanıyor)
ikinci button ile kameradaki veriyi al dedimde program kilitleniyor yine hata mesajı yok.
Bu konuyu nasıl çözebilirim.
*Windowsun kendi kamera uygulamasında kameranın çalıştığını gözlemliyorum.
Teşekkürler.
Basit bir örnek üzerinden sorunu anlatmk istiyorum;
Forma 2 adet button ve 1 adet Tcamera componenti ile 1 adet Timage nesnesi ekliyorum.
Button 1 Camerayı aç
procedure TForm1.btnTrueClick(Sender: TObject); begin CameraComponent.Active := True; end;
Button 2 kameradaki son görüntüyü al kamerayı kapat
procedure TForm1.btnFalseClick(Sender: TObject); begin CameraComponent.Active := False; //Image1.Bitmap.Assign(imgCameraView.Bitmap); end;
Camera Component image nesnesine son rersmi yaz.
procedure TForm1.CameraComponentSampleBufferReady(Sender: TObject; const ATime: TMediaTime); begin TThread.Synchronize(TThread.CurrentThread, GetImage); end;Yukarıdaki kod birçok platformda sorunsuz çalışıyorken
Windows 10 mini tablette çalışmıyor ve hatada vermiyor.
Normalde button1 basıldığında kamerada görüntü image nesnesine gelmesi gerekirkn gelmiyor fakat kameranın ışığı .çalıştığını gösteriyor (yanıyor)
ikinci button ile kameradaki veriyi al dedimde program kilitleniyor yine hata mesajı yok.
Bu konuyu nasıl çözebilirim.
*Windowsun kendi kamera uygulamasında kameranın çalıştığını gözlemliyorum.
Teşekkürler.