Media player süre

[Serhat]

İyi akşamlar; Media playerda video total süresini ve pozisyonunu label almaya çalışıyorum, ya ben yapamadım yada firemonkeyde media palyer kodlaması farklı internette araştırdım fakat doğru düzgün bir şeyde bulamadım, konu hakkında bilgisi olan arkadaşlar yardımcı olursa sevinirim...

Kod: Tümünü seç

procedure TForm2.Timer2Timer(Sender: TObject);
var
  DurationMin, DurationSec, DurationHours: TTime;
begin
  DurationMin := MediaPlayer1.Duration div 10000 div 60000;
  DurationSec := MediaPlayer1.Duration div 10000 mod 60000 div 1000;

 DurationHours := MediaPlayer1.Duration div 10000 mod 60000 div 1000;

 Label6.Text := TimeToStr(DurationHours)+ ':' + TimeToStr(DurationMin) + ':' + TimeToStr(DurationSec);
end;

[Kuri_YJ]

Selamlar,

Kod: Tümünü seç

function SecodToTimeFormat(Asecond:Int64):String;
var
  tmp :Integer;
begin
  tmp :=  (Asecond mod 3600);        // Saat Çevrimi      Dakika       Saniye
  Result := Format('%.2d:%.2d:%.2d', [(Asecond div 3600),(tmp div 60),(tmp mod 60)]);
end;

Bu saniye cinsinden gönderilen bir değeri saat:dakika:saniye şeklinde gösteriyor. Buna bakarak kendi formatına çevirebilirsin. Örneğin 900 gönderirseniz size aşağıdaki gibi yazar,

00:15:00

Kolay Gelsin

[Kuri_YJ]

Bir bilgi daha,

Description

Specifies the total play time of the current media file attached to the media player.
Duration is measured in 100ns. To obtain s, divide Duration by MediaTimeScale.

Sanırım (s) olarak söylediği saniye olsa gerek. Eğer saniyeyi kastediyor ise, Duration'ı MediaTimeScale'e bölmeniz gerekir.

Kolay Gelsin

[Serhat]

Selamlar,

Kod: Tümünü seç

function SecodToTimeFormat(Asecond:Int64):String;
var
  tmp :Integer;
begin
  tmp :=  (Asecond mod 3600);        // Saat Çevrimi      Dakika       Saniye
  Result := Format('%.2d:%.2d:%.2d', [(Asecond div 3600),(tmp div 60),(tmp mod 60)]);
end;

Bu saniye cinsinden gönderilen bir değeri saat:dakika:saniye şeklinde gösteriyor. Buna bakarak kendi formatına çevirebilirsin. Örneğin 900 gönderirseniz size aşağıdaki gibi yazar,

00:15:00

Kolay Gelsin

Selam, kullanımı nasıl acaba...

[Kuri_YJ]

?????

Örneğin,
Label1.Caption := SecondToTimeFormat(900) ;