Android Media player

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
Paranoyaq
Üye
Mesajlar: 22
Kayıt: 05 Oca 2016 02:55

Android Media player

Mesaj gönderen Paranoyaq »

Selamın aleyküm arkadaşlar embarcadero ' da ki kodlardan

procedure TForm1.DisplayText(str: string);
var
DurationMin, DurationSec: integer;
begin
NameLabel.Text := str;
DurationMin := MediaPlayer1.Duration div 10000 div 60000;
DurationSec := MediaPlayer1.Duration div 10000 mod 60000 div 1000;
DurationLabel.Text := IntToStr(DurationMin) + ':' + IntToStr(DurationSec);
end;

kodlar hata vermiyor fakat oynatılan müziğinde duration time ' ını aktarmıyor yardımcı olabilecek olan var mı ?
Kullanıcı avatarı
fesiharslan
Üye
Mesajlar: 591
Kayıt: 20 Eki 2006 11:37
Konum: Erzurum
İletişim:

Re: Android Media player

Mesaj gönderen fesiharslan »

Merhaba;
Forma bir adet TTimer nesnesi yerleştirin.
Enabled özelliğini False yapın.
OnTimer olayında oluşturduğunuz prosedürü yazın.

Kod: Tümünü seç

DisplayText('Diriliş Ertuğrul 58. Bölüm: ');
Daha sonra Video veya sesi çalıştırdığınızda;

Kod: Tümünü seç

Timer1.Enabled:=True;
yazın.
Video veya ses bittiğinde ise;

Kod: Tümünü seç

Timer1.Enabled:=False;
yazın.
Böylece video veya sesi başlattığınızda, her saniyede yerleştirmiş olduğunuz etiketlerde medya bilgisi gösterilecek, durdurduğunuzda ise TTimer durduracak ve bilgi gösterimi sonlandılacaktır.
İyi çalışmalar...
Cevapla