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ı ?
Android Media player
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Android Media player
Merhaba;
Forma bir adet TTimer nesnesi yerleştirin.
Enabled özelliğini False yapın.
OnTimer olayında oluşturduğunuz prosedürü yazın.
Daha sonra Video veya sesi çalıştırdığınızda;
yazın.
Video veya ses bittiğinde ise;
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...
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: ');
Kod: Tümünü seç
Timer1.Enabled:=True;
Video veya ses bittiğinde ise;
Kod: Tümünü seç
Timer1.Enabled:=False;
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...