Entwickler-Ecke
Multimedia / Grafik - Musik springt bei bewegen der Zeitleiste zum Ende
lblbw - Sa 03.05.08 21:55
Titel: Musik springt bei bewegen der Zeitleiste zum Ende
Hallo ich bin mal wieder da :D
Ich benutze die Slider-Kompenente von BassPlayer als Progressleiste von Audio-Dateien. Als Progressleiste "ohne" Funktion, gehts sehr gut. Sprich: Der Fortschritt wird richtig angezeigt. Wenn ich aber nun die Progressleiste manuell bewege springt die Audiodatei immer ans Ende. Als Vorlage habe ich (Gruß an Gausi :D) MeMP benutzt.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm1.Slider1StartTracking(Sender: TObject);
begin
NowTracking := true;
end;
procedure TForm1.Slider1StopTracking(Sender: TObject);
var
SongPos : DWORD;
begin
if not radio = true then
begin
SongPos := Trunc(Slider1.Value * MeMPPlaylist.PlayingFile.Dauer / Slider1.MaxValue);
MeMPPlaylist.Progress := SongPos;
end;
NowTracking := false;
end; |
Moderiert von 
Narses: Titel geändert.
lblbw - Do 08.05.08 08:32
Schade, das keiner Weiß worans liegt. Wer den kompletten Quelltext haben will, soll sich bei mir melden!
Gausi - Do 08.05.08 08:40
Wenn ich mein Tut richtig in Erinnerung habe, dann gibt Progress den relativen Fortschritt an. 0 ist am Anfang, 1 am Ende. D.h. die Dauer brauchst du zur Berechnung des Progress gar nicht. Einfach nur Value/Max.
lblbw - Do 08.05.08 09:10
Habe es eben ausprobiert, und er springt jetzt nicht mehr ans Ende eines Liedes, sondern immer an den Anfang!
Gausi - Do 08.05.08 09:14
Wenn du Value durch Max teilst und Trunc drauf ansetzt, ist das Ergebnis immer 0. Progress ist vom Typ double.
lblbw - Do 08.05.08 10:29
Ich danke dir Gausi, jetzt geht es.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!