Forum: Multimedia
Delphi
by Nils_13,
3. Jan 2007
Man könnte ja Sekunden noch mit einem Milli-Sekunden Timer realisieren, dann müsste es funktionieren.
Forum: Multimedia
Delphi
by Nils_13,
3. Jan 2007
Hm, dann habe ich da was verwechselt. Dieser Code liefert mir die Gesamtlänge, um die es meiner Interpretierung nach, hier geht.
function TfrmMain.DurationMinSec(Sekunden : String) : String;
var Min, Sec : integer;
SecToTime : string;
begin
Min:= StrToInt(Sekunden) div 60;
Sec:= StrToInt(Sekunden) - Min * 60;
SecToTime:= Trim(Format('%2d:%.2d', ));
result:= ...
Forum: Multimedia
Delphi
by Nils_13,
3. Jan 2007
Ich muss zugeben, dass ich ein wenig eingerostet bin, aber gab es da nicht mal so etwas, wie BASS_CHANNEL_GETLENGTH ?
Deshalb immer die Finger von Timern lassen, wenn es eben geht. Ist nicht gut, wenn der durchläuft.
Such dir raus, was du brauchst, diese Zeile gibt dir die Zeit an.
Round(BASS_ChannelBytes2Seconds(Chan, BASS_ChannelGetLength(chan)));