Trackbar/Zeit

[fkerber]

Hi!

Ja, es könnte.
UND?
Geht es oder geht es nicht?
Falls nein, WAS geht nicht? Fehlermeldungen? Kompiliert er?


Ciao Frederic

[Nils_13]

Keine Fehlermeldung, die Trackbar funktioniert leider nicht!

[fkerber]

Hi!
Dann zeig mal deinen Code her!


Ciao Frederic

[Nils_13]

Den ganzen?

[fkerber]

Hi!

Nein, nur die relevanten Stellen (Start des Abspielens und die Timer-Procedure).


Ciao Frederic

[Nils_13]

1. (Play)

Delphi-Quellcode:

procedure TFormPlayer.Image1Click(Sender: TObject);
var aStream: integer;
begin 
BASS_Start();
BASS_ChannelPause(channel);
position := 0;
op1.Title  := 'Open Files';
if not op1.Execute then exit;
Channel := BASS_StreamCreateFile(FALSE, PChar(op1.FileName), 0, 0, 0);
BASS_StreamPlay(Channel, False, 0);
Image1.Enabled:= true;
p1.Visible:= false;
tb1.MaxValue := BASS_MusicGetLength(aStream, True);
end;

2. (Timer)

Delphi-Quellcode:

procedure TFormPlayer.tbTimer(Sender: TObject);
var 
  TrackPos, hFileStream: Integer; 
begin
  TrackPos := BASS_ChannelGetPosition(hFileStream);
  tb1.Position := TrackPos;
end;

[fkerber]

Hi!

Du verwendest munter die als integer deklarierten Variablen aStream und hFileStream ohne, dass die wirklich mit irgendwas belegt sind oder sonst etwas.

Was erwartest du da?

Ciao Frederic

[Nils_13]

Cool, automatisch wird ein ladestand angezeigt.

Na ja dafür läuft wichtigeres nicht mehr :cry:

Wenn ich einfach

Delphi-Quellcode:

tb1.MaxValue := aStream;

und

Delphi-Quellcode:

TrackPos := BASS_ChannelGetPosition(hFileStream);
tb1.Position := hFileStream;

sage, läufts nicht, nur warum?!

[fkerber]

Hi!

Zitat:

Zitat von Nils_13

Cool, automatisch wird ein ladestand angezeigt.

Na ja dafür läuft wichtigeres nicht mehr :cry:

:wiejetzt: :wiejetzt: :wiejetzt:


Ciao Frederic

[Nils_13]

@Fkerber: Siehe 2 Beiträge drüber!