Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Fotoğraf çekmek
#1
procedure TFotoForm.Button1Click(Sender: TObject);
begin
CameraComponent.Active := True;
end;

procedure TFotoForm.CameraComponentSampleBufferReady(Sender: TObject;
 const ATime: TMediaTime);
begin
     TThread.Synchronize(TThread.CurrentThread, GetImage);
end;

procedure TFotoForm.GetImage;
begin
 CameraComponent.SampleBufferToBitmap(imgCameraView.Bitmap, True);
end;

kodlarını kullanarak image nesnesine Camerayı aktarıyorum  bir butona fotoğraf çekmek işlemini nasıl yapaarız

amacım form üzerinden çekim yapmak
Cevapla
#2
procedure TForm3.Button1Click(Sender: TObject);
var
 image: tbitmap;
 img: tbitmap;
begin
 try
   image := tbitmap.Create;
   image := imgCameraView.Bitmap;
   img := image.CreateThumbnail(600, 800);
   if image1.Bitmap.IsEmpty then
     image1.Bitmap := img
   else
   begin
     FMX.Dialogs.MessageDlg
       ('Resim çekme hakkınız doldu. Çekilenleri silip yeniden çekmek istiyor musunuz?',
       TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0,
       procedure(const AResult: TModalResult)
       begin
         if AResult = mrYes then
         begin
           image1.Bitmap.Assign(nil);
         end;
       end);
   end;
   image.free;
 except
   on e: exception do
   begin
     // CameraComponent1.Active:= false;
     showmessage(e.Message);
   end;
 end;
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Fotoğraf Listeleme Paranoyaq 7 526 13-05-2017, Saat: 17:45
Son Yorum: Paranoyaq



Konuyu Okuyanlar: 1 Ziyaretçi