Delphi android görüşme
Delphi android görüşme
Selamın aleyküm beyler android işletim sisteminde görüşmeyi kaydedebileceğim bi kod önerebilirmisiniz ?
nerden başlamalıyım şimdiden teşekkürler.
nerden başlamalıyım şimdiden teşekkürler.
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Delphi android görüşme
Merhaba Aleyküm Selam;
İşlem adımlarını kısaca yazacak olursak;
1- Servis Uygulamsı olmalı
2- Broadcast Receiver oluşturmalı (Görüşme anını yakalamak için)
3- Ses kaydı yapılmalı
İşlemleri detaylı olarak ele alacak olursak;
Servis Uygulaması oluşturun. Daha sonra görüşme anını yakalamanız gerekiyor. Bunun için formda bir konu açılmıştı.
viewtopic.php?f=36&t=33252&hilit=broadcast
Son olarak görüşme başladığında ses kaydını başlatmalısınız.
Ses kayıt İşlemleri için;
1 -Uses kısmına media ve IOUtils referanslarını ekleyin
2- Public bölümünde Ses kaydı için bir TAudioCaptureDevice tipinde değişken tanımlayın.
3- Kayıt işlemi için bir Procedure oluşturun
4- Görüşme başladığında SetArsSesKaydiOlustur(); procedure'nü çalıştırın.
5- Görüşme bitiş anına ise aşağıdaki kodları yazın.
Bu durumda görüşme başladığında ses kayıt işlemi başlayacak, sonlandığında ise otomatik olarak ses kaydı tamamlanacak ve belirtilen dosya konumuna kaydedecektir.
İyi Çalışmalar...
İşlem adımlarını kısaca yazacak olursak;
1- Servis Uygulamsı olmalı
2- Broadcast Receiver oluşturmalı (Görüşme anını yakalamak için)
3- Ses kaydı yapılmalı
İşlemleri detaylı olarak ele alacak olursak;
Servis Uygulaması oluşturun. Daha sonra görüşme anını yakalamanız gerekiyor. Bunun için formda bir konu açılmıştı.
viewtopic.php?f=36&t=33252&hilit=broadcast
Son olarak görüşme başladığında ses kaydını başlatmalısınız.
Ses kayıt İşlemleri için;
1 -Uses kısmına media ve IOUtils referanslarını ekleyin
Kod: Tümünü seç
uses
FMX.Media, System.IOUtils;
Kod: Tümünü seç
public
Mikrofon: TAudioCaptureDevice;
Kod: Tümünü seç
procedure TForm1.SetArsSesKaydiOlustur();
begin
// Varsayılan kayıt aracının (mikrofon) seçimi
Mikrofon := TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;
if Mikrofon <> nil then
begin
{$IF DEFINED(ANDROID)} //Kayıt yapılacak dosya konumu
Mikrofon.FileName := TPath.Combine(TPath.GetDocumentsPath, 'Gorusme.3gp');
{$ELSEIF DEFINED(iOS)}
Mikrofon.FileName := TPath.Combine(TPath.GetDocumentsPath, 'Gorusme.caf');
{$ENDIF}
Mikrofon.StartCapture; //Ses kaydını başlat
end
else
begin
ShowMessage('Kayıt cihazı yok');
end;
end;
5- Görüşme bitiş anına ise aşağıdaki kodları yazın.
Kod: Tümünü seç
if (Mikrofon <> nil) and (Mikrofon.State = TCaptureDeviceState.Capturing) then
Mikrofon.StopCapture;
İyi Çalışmalar...
Re: Delphi android görüşme
@fesiharslan; deneme şansım yok ve sadece merakımdan soruyorum: sadece mikrofonu kaydetmek yeterli mi? Bu şekilde karşıdaki kişinin sesi de kaydedilmiş oluyor mu?
There's no place like 127.0.0.1
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Delphi android görüşme
Bende emin değilim.SimaWB yazdı:@fesiharslan; deneme şansım yok ve sadece merakımdan soruyorum: sadece mikrofonu kaydetmek yeterli mi? Bu şekilde karşıdaki kişinin sesi de kaydedilmiş oluyor mu?
Test etme imkanım olmadı.
Fakat gün içerisinde test edip bilgi veririm İnşaAllah.
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Delphi android görüşme
Bu arada, Mikrofon erişim iznini vermeyi unutmayın.
Project > Options > Uses Permissions -------> Record audio True olması gerekiyor.
Project > Options > Uses Permissions -------> Record audio True olması gerekiyor.
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Delphi android görüşme
Test başarılı...
Verdiğim örnekte görüşme yapan her iki tarafın ses kaydı alınıyor.
Not: İsterseniz yaptığım örnek uygulamayı paylaşabilirim.
Verdiğim örnekte görüşme yapan her iki tarafın ses kaydı alınıyor.
Not: İsterseniz yaptığım örnek uygulamayı paylaşabilirim.
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Delphi android görüşme
Merhaba;
Ses kayıt uygulamasının linkini formun paket programlar bölümünde paylaştım.
Link: viewtopic.php?f=12&t=35720
Ses kayıt uygulamasının linkini formun paket programlar bölümünde paylaştım.
Link: viewtopic.php?f=12&t=35720
Re: Delphi android görüşme
Kayıt Cihazı Desteklenmiyor veya Cihaza Erişim İzniniz Yokfesiharslan yazdı:Merhaba;
Ses kayıt uygulamasının linkini formun paket programlar bölümünde paylaştım.
Link: viewtopic.php?f=12&t=35720
hatası veriyor ustam
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Delphi android görüşme
Kendimden alıntı ile cevap vereyim....Paranoyaq yazdı: Kayıt Cihazı Desteklenmiyor veya Cihaza Erişim İzniniz Yok
hatası veriyor ustam
fesiharslan yazdı:Bu arada, Mikrofon erişim iznini vermeyi unutmayın.
Project > Options > Uses Permissions -------> Record audio True olması gerekiyor.
Re: Delphi android görüşme
Merhaba. Peki gelen aramayı cevap verme ve kayıt olan sesi dinletdirme şansımız varmı? Misal ses yazısında lütfen sinyal sesinden sonra mesajınızı bırakın gibi.
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Delphi android görüşme
Ali Bey;AliZairov yazdı:Merhaba. Peki gelen aramayı cevap verme ve kayıt olan sesi dinletdirme şansımız varmı? Misal ses yazısında lütfen sinyal sesinden sonra mesajınızı bırakın gibi.
Broadcast Receive ile çağrı anı yakalanabilir. Dolayısıyla çağrı geldiği anda istediğiniz ses dosyasını MediaPlayer aracılığıyla çalıştırabiliriz. (Ekte göndermiş olduğum örnekte mevuttur)
Aynı teknikle çağrı sonlandırma anını da yakalanabilir, yeni görüşmeyi de saklayabiliriz.
Re: Delphi android görüşme
Tamam bi deniyip geri dönüş yaparım. Bana böyle bir program gerekli aradım bulamadım o yüzden merak konusu benim için yani böyle bir uygulama mümkün diğilmi.fesiharslan yazdı: Ali Bey;
Broadcast Receive ile çağrı anı yakalanabilir. Dolayısıyla çağrı geldiği anda istediğiniz ses dosyasını MediaPlayer aracılığıyla çalıştırabiliriz. (Ekte göndermiş olduğum örnekte mevuttur)
Aynı teknikle çağrı sonlandırma anını da yakalanabilir, yeni görüşmeyi de saklayabiliriz.
Re: Delphi android görüşme
O seçenek işaretli hocamfesiharslan yazdı:Kendimden alıntı ile cevap vereyim....Paranoyaq yazdı: Kayıt Cihazı Desteklenmiyor veya Cihaza Erişim İzniniz Yok
hatası veriyor ustamfesiharslan yazdı:Bu arada, Mikrofon erişim iznini vermeyi unutmayın.
Project > Options > Uses Permissions -------> Record audio True olması gerekiyor.
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Delphi android görüşme
Uyarı mesajı, Try-except kod kısmında hataya düşmesi durumunda veriliyor.Paranoyaq yazdı:
O seçenek işaretli hocam
Try-except kod kısmını kapatın. Daha sonra uygulamayı yeniden çalıştırın. Bu durumda asıl hata uyarısını alırsınız. Hata uyarısını paylaşırsanız, yardımcı olmaya çalışayım.