Delphi android görüşme

[Paranoyaq]

Haftasonu pek vaktim olmuyor.
Önümüzdeki hafta içerisinde bir örnek yapıp buradan yayınlarım.

Hocam gorusme.mp3 kısmını biz programda nasıl belirleyebiliriz

[fesiharslan]

Haftasonu pek vaktim olmuyor.
Önümüzdeki hafta içerisinde bir örnek yapıp buradan yayınlarım.

Hocam gorusme.mp3 kısmını biz programda nasıl belirleyebiliriz

Gönderdiğim örnek uygulamayı indirip (viewtopic.php?f=12&t=35733) incelediyseniz, kod içerisinde geçen Mikrofon.FileName ile kayıt yapılacak konum ve ses dosyasının adı belirleniyor. Bu satırda farklı bir konum ve dosya adı belirleyebilirsiniz.
Ayrıca Play butonunun FileName kısmında aynı konumu belirtin.

[Paranoyaq]

Haftasonu pek vaktim olmuyor.
Önümüzdeki hafta içerisinde bir örnek yapıp buradan yayınlarım.

Hocam gorusme.mp3 kısmını biz programda nasıl belirleyebiliriz

Gönderdiğim örnek uygulamayı indirip (viewtopic.php?f=12&t=35733) incelediyseniz, kod içerisinde geçen Mikrofon.FileName ile kayıt yapılacak konum ve ses dosyasının adı belirleniyor. Bu satırda farklı bir konum ve dosya adı belirleyebilirsiniz.
Ayrıca Play butonunun FileName kısmında aynı konumu belirtin.

Teşekkürler hocam inceledim fakat uygulamada Gorusme.mp3 olan kısma sadece sabit bir isim yazabiliyoruz kod oyle izin veriyor galiba , benim istediğim bir edit oluşturup kullanıcının onunla belirlemesi .

[fesiharslan]

Yeni bir form veya TabControl sekmesinde ayarlar bölümünüz olsun. Burada varsayılan dosya tipi için ComboBox' unuz olsun. (.mp3, wav, caf vb.)
Birde varsayılan dosya adınız olsun(Edit nesnesi).
Kod kısmında da;

Kod: Tümünü seç

FileName:=EditAdi.Text+ '.'+ ComboBox.Items[ComboBox.ItemIndex];

Yazmanız yeterli olacaktır.

[Paranoyaq]

Yeni bir form veya TabControl sekmesinde ayarlar bölümünüz olsun. Burada varsayılan dosya tipi için ComboBox' unuz olsun. (.mp3, wav, caf vb.)
Birde varsayılan dosya adınız olsun(Edit nesnesi).
Kod kısmında da;

Kod: Tümünü seç

FileName:=EditAdi.Text+ '.'+ ComboBox.Items[ComboBox.ItemIndex];

Yazmanız yeterli olacaktır.

expected + but received = at line diyor yazınca hocam

DosyaAdi : = Edit1.Text + '.'+ ComboBox1.Items[ComboBox1.ItemIndex];

[fesiharslan]

Kod: Tümünü seç

if (not( Edit1.Text.IsEmpty)) and (not (ComboBox1.Selected.Text.IsEmpty))
DosyaAdi : = Edit1.Text + '.'+ComboBox1.Selected.Text;

Şeklinde kullanın.

[Paranoyaq]

Kod: Tümünü seç

if (not( Edit1.Text.IsEmpty)) and (not (ComboBox1.Selected.Text.IsEmpty))
DosyaAdi : = Edit1.Text + '.'+ComboBox1.Selected.Text;

Şeklinde kullanın.

bu kodlarda da birçok hata verdi hocam

şu şekilde kullanınca da ;

DosyaAdi : String = Edit1.Text + '.'+ ComboBox1.Items[ComboBox1.ItemIndex];


Constant expression expected hatasını veriyor

[fesiharslan]

Kod: Tümünü seç

if (not( Edit1.Text.IsEmpty)) and (not (ComboBox1.Selected.Text.IsEmpty))
DosyaAdi : = Edit1.Text + '.'+ComboBox1.Selected.Text;

Şeklinde kullanın.

bu kodlarda da birçok hata verdi hocam

şu şekilde kullanınca da ;

DosyaAdi : String = Edit1.Text + '.'+ ComboBox1.Items[ComboBox1.ItemIndex];


Constant expression expected hatasını veriyor

Dosya adını const bölümünde kullanmayın. Aşağıdaki şekilde tanımlayın.

Kod: Tümünü seç

var
  DosyaAdi: String;

Daha sonra formun OnCreate olayında atama yapın.

Kod: Tümünü seç

DosyaAdi : = Edit1.Text + '.'+ComboBox1.Selected.Text;

[SimaWB]

Sorun

Kod: Tümünü seç

 DosyaAdi : = 

yazarken iki nokta ile eşittir arasında boşluk olmasından kaynaklanıyor.

[Paranoyaq]

Dosya adını const bölümünde kullanmayın. Aşağıdaki şekilde tanımlayın.

Kod: Tümünü seç

var
  DosyaAdi: String;

Daha sonra formun OnCreate olayında atama yapın.

Kod: Tümünü seç

DosyaAdi : = Edit1.Text + '.'+ComboBox1.Selected.Text;

Oldu hocam kusura bakmayın yeni yeni konular açmayayım diye buradan soruyorum araştırıyorum fakat fazla yaygın değil
Şimdi bu listview deki sesleri toplu silme işlemi nasıl yaparız bide dinlerken boyutunu ve süresini bi texte nasıl aktarırız .
Kolay gelsin Allah razı olsun .

[fesiharslan]

Oldu hocam kusura bakmayın yeni yeni konular açmayayım diye buradan soruyorum araştırıyorum fakat fazla yaygın değil
Şimdi bu listview deki sesleri toplu silme işlemi nasıl yaparız bide dinlerken boyutunu ve süresini bi texte nasıl aktarırız .
Kolay gelsin Allah razı olsun .

Aslında yeni bir konu açarak sorsanız daha iyi olacaktı. Çünkü bu konu başlığı içerikten farklı olamya başladı.
ListView'den tüm kayıtları silmek için;

Kod: Tümünü seç

 ListView1.Items.Clear;

Metodunu kullanabilirsiniz.
Sesi dinlerken boyutu ve süresini de MediaPlayer nesnesinin özelliklerinden alabilirsiniz.