camera actionları kullanmadan fotoğraf çekme

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
Lord_Ares
Üye
Mesajlar: 1070
Kayıt: 15 Eki 2006 04:33
Konum: Çorlu

camera actionları kullanmadan fotoğraf çekme

Mesaj gönderen Lord_Ares »

merhaba, telefondan resim çekmek için paylaşılan bütün örneklerde TakePhotoFromCameraAction kullanılmış. Bu actionı kullandığımızda ekrana kamera uygulamasının kendine has çekme tuşu ve çektikten sonra kaydet tuşu geliyor. Bunları aşmak için action yerine button nesnesinin onclick eventinda kamerayı aç kapa yaptırarak imgCameraView üzerine resmi alıyorum. Buradan da bir image nesnesine alıyorum.Fakat bunu bir türlü galeriye kaydedemiyorum. Windows üzerinde denediğimde belgelerime kayıt ediyor ama telefonda denediğimde hiç bir tepki yok.

Kod: Tümünü seç

procedure TForm1.btnFalseClick(Sender: TObject);
begin
  CameraComponent.Active := False;
  Image1.Bitmap.Assign(imgCameraView.Bitmap);
 self.imgCameraView.Bitmap.SaveToFile(System.IOUtils.TPath.GetPicturesPath + '/resimadi.jpg');

  end;

procedure TForm1.btnTrueClick(Sender: TObject);
begin
  CameraComponent.Active := True;
end;

procedure TForm1.CameraComponentSampleBufferReady(Sender: TObject;
  const ATime: TMediaTime);
begin
  CameraComponent.SampleBufferToBitmap(imgCameraView.Bitmap, True);

end;



Cevapla