Trackbar/Zeit

[Die Muhkuh]

Zitat von Matze:

Zitat von Spider:

WAS findest du nicht? Ein stückchen Kuchen? Ein Ei?

Die Engine, nehnme ich an.

Bass.dll

Steht auch schon oben.

@Nils

jetzt musst du nur noch auf Bass klicken und schwupp, da isses

[Luckie]

Mit der bass.dll kämpft ere doch schon die ganze Zeit. Ich glaube, er wollte wissen, wo er die ganze Klasse TAudioEngine findet.

[Nils_13]

Hi,

Luckie hat mal etwas von:

Delphi-Quellcode:

var TrackPos, hFileStream: integer;
begin
TrackPos := BASS_ChannelGetPosition(hFileStream);

Wie könnte ich das in der Trackbar verwenden?

[fkerber]

Hi!

Und was ist da der Fehler?


Ciao Frederic

[Nils_13]

Es ist ja nicht nur ein Fehler, wenn ich alles aufzählen würde wäre die Seite locker voll.

[gmarts]

[OT]
Der Fehler ist wahrscheinlich auf der anderen Seite der Tastatur.

Ein gutgemeinter Tip:
Mensch Nils, beschäftige dich doch erstmal grundlegend mit Delphi, bevor du dich an einen eigenen Player ranwagst!
Jeder beginnt erstmal klein. label1.caption:='Hello World' Wenn du das gemacht hast, kannst du auch präzise Fragen hier stellen und bekommst schnelle und präzise Antworten zurück.
[/OT]

[Nils_13]

Hab ich schon längst!!!

[alcaeus]

Hi Nils,

Zitat von Nils_13:

Luckie hat mal etwas von:

Delphi-Quellcode:

var TrackPos, hFileStream: integer;
begin
TrackPos := BASS_ChannelGetPosition(hFileStream);

Wie könnte ich das in der Trackbar verwenden?

ach mann, ueberleg doch mal ein bisschen...
Du erhaelst die Position (in Sekunden, in Eiern, Tortenschnitten, was weiss ich was). Es gibt sicher auch eine Funktion welche dir die gesamte Laenge des Streams in derselben Einheit liefert (also wieder Sekunden, Eier, Tortenschnitten oder was auch immer). Nun rechnest du einfach aus, wieviel Prozent des Liedes abgearbeitet sind und uebertraegst das auf die Trackbar bzw. eine Progressbar oder was du willst. Die Onlinehilfe hilft dir bei den einzelnen Komponenten weiter...

Greetz
alcaeus

[Die Muhkuh]

Zitat von Nils_13:

Hi,

Luckie hat mal etwas von:

Delphi-Quellcode:

var TrackPos, hFileStream: integer;
begin
TrackPos := BASS_ChannelGetPosition(hFileStream);

Wie könnte ich das in der Trackbar verwenden?

Wenn du jetzt noch die gesamte Länge des Stream herausbekommst dann gehts ganz einfach:

Delphi-Quellcode:

procedure {Öffnen oder so};
begin
  TrackBar1.Max := BASS_StreamLength(aStream); // Ich weiß nicht obs das gibt. Aber eine Function zum herausfinden der gesamten länge wirds ja geben
end;

// Danach Timer auf die Form und ins OnTimer event:

procedure {OnTimerEvent};
var
  TrackPas, hFileStream: Integer;
begin
  TrackPos := BASS_ChannelGetPosition(hFileStream);
  TrackBar1.Position := TrackPos;
end;

[Nils_13]

Wenn ich das richtig verstanden habe sollte man statt
TrackBar1.Max := BASS_StreamLength(aStream); einfach
tb1.MaxValue := BASS_MusicGetLength(aStream, True); nehmen, da Spiders Funktion nicht funktioniert.

Folgendes bei menem Code hab ich in die Play-funktion (die Playfunktion öffnet auch)
tb1.MaxValue := BASS_MusicGetLength(aStream, True); stehen, bei dem Timer hab ich den Code von Spider genommen, könnte doch eigentlich gehen?!

-----------------------------------------------------------------

Geht nicht