Geçen süreyi sıfırlama

[hido]

Selamlar...

Videoyu 00:01:15 den başlatıyorum, videonun pozisyonunu "GetVideoPosStr" ile "Sure.Caption" da gösteriyorum, 00:01:15 den başlatılan videonun "Sure.Caption" da başlangıç süresini ilk olarak 00:00:00 olarak nasıl başlatabilirim?

Kod: Tümünü seç

procedure TForm11.PasLibVlcPlayer1MediaPlayerTimeChanged(Sender: TObject;
  Time: Int64);
begin
  with PasLibVlcPlayer1 do
  begin
    Sure.Caption := GetVideoPosStr('hh:mm:ss');
  end;
end;

[G.Arkas]

Merhaba

Procedure başlangıcında

Kod: Tümünü seç

Sure.Caption:= '00:00:00';

yapsak fazla mı basit olur?

[thelvaci]

Videoyu 1 dk 15 nci saniyeden başlatıyorsanız bu durumda mevcut video pozisyonundan 1 dk 15 saniye çıkartıp yazacaksınız label'ın captionuna.

[hido]

Hocam sorun 1 dk 15 saniye çıkarmak değil,

GetVideoPosStr('hh:mm:ss') ile pozisyonu alıyorum, video başladığında hangi pozisyonda olursa olusun saniye 00:00:00 başlamasını istiyorum...

[SimaWB]

Sanırım Time parametresi size saniye cinsinden pozisyonu veriyor. O zaman bu değerden 1dk 15 sn'yi yani 75'i çıkartırsanız sizin istediğiniz süreyi bulmuş olursunuz. Sonrasında da bunu string'e (hh:nn:ss formatına) çevirmelisiniz:

Kod: Tümünü seç

begin
  with PasLibVlcPlayer1 do
  begin
    Sure.Caption :=  FormatDateTime('hh:nn:ss', (Time - 75) / SecsPerDay));
  end;
end;