Bass.dll aktuelle Position auslesen

[Luki206]

Hi, wie kann man mit der Bass.dll die aktuelle Position des wiedergegebenen Liedes anzeigen? Ich habe es mit BASS_ChannelGetPosition nur bekomme ich dann utopische Zahlen. Das MP3 Player Tutorial von Gausi habe ich mir auch einmal angesehen nur kann ich aus seinen Angehängten .Pas Dateien nichts rauslesen..
Danke
Luki :)

[nuclearping]

1) http://www.un4seen.com/doc/#bass/BAS...tPosition.html
2) http://www.un4seen.com/doc/#bass/BAS...s2Seconds.html

Du musst BASS_ChannelGetPosition mit dem Flag BASS_POS_BYTE aufrufen, und kannst dann den Rückgabewert mit BASS_ChannelBytes2Seconds in Sekunden umwandeln.

[Luki206]

Ah ok Danke ;)

[Luki206]

Ich kapiere da was nicht: Ich habe jetzt folgenden Code:

Delphi-Quellcode:

var Time, Byte: Integer;
begin
 Byte := BASS_ChannelGetPosition(strs, BASS_POS_BYTE);
 Time := BASS_ChannelBytes2Seconds(strs, Byte);
end;

nur zeigt er mir bei ChannelBytes2Seconds an das Integer und Double keine kompatible Typen sind (wohl verständlich :mrgreen:) und der Cursor springt hinter Byte. Nur habe ich das auch einmal versucht das Byte Double ist und da hat er gemeldet

Code:

[dcc32 Fehler] haupt.pas(536): E2010 Inkompatible Typen: 'Int64' und 'Double'

und ist wieder hinter Byte gesprungen.

[DeddyH]

Ich würde eine Variable niemals Byte oder Time nennen. BASS_ChannelBytes2Seconds erwartet als 2. Parameter einen Int64 und gibt double zurück.

Delphi-Quellcode:

var 
  StreamPos: Int64;
  Ellapsed: double;
begin
  StreamPos := BASS_ChannelGetPosition(strs, BASS_POS_BYTE);
  Ellapsed := BASS_ChannelBytes2Seconds(strs, StreamPos);
end;

[Luki206]

Das mit Time und Byte war jetzt nur mal ein Versuch, ich hätte die auch nicht mit dem Name da stehen lassen ;) Ok danke :)

[Luki206]

Und wie würde ich dass dann machen wenn ich jetzt haben möchte dass es so aus sieht: '0:0' Mit Format?

[DeddyH]

Und was soll das sein? Minuten und Sekunden?

[Luki206]

Oh, tut mir leid.. Ja genau, Minuten und Sekunden. Ich habe Delphi jetzt soweit das er mir die Sekunden anzeigt (welches großes Werk ich vollbracht habe *hust, Ironie* :D)

[DeddyH]

Delphi-Quellcode:

const
  SECONDS_PER_MINUTE = 60;
begin
  (* Nachkommastellen schneiden wir einfach mal ab *)
  WholeSeconds := trunc(Ellapsed);
  (* Und nun mit ganzzahliger Division in Minuten und Sekunden umrechnen *)
  TimeEllapsedStr := Format('%.2d:%.2d', 
    [WholeSeconds div SECONDS_PER_MINUTE,
     WholeSeconds mod SECONDS_PER_MINUTE]);