AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Trackbar/Zeit

Ein Thema von Nils_13 · begonnen am 10. Dez 2004 · letzter Beitrag vom 28. Dez 2004
Antwort Antwort
Seite 3 von 6     123 45     Letzte » 
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#21

Re: Trackbar/Zeit

  Alt 11. Dez 2004, 17:46
Hi!

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


Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat
Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#22

Re: Trackbar/Zeit

  Alt 11. Dez 2004, 17:47
Keine Fehlermeldung, die Trackbar funktioniert leider nicht!
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#23

Re: Trackbar/Zeit

  Alt 11. Dez 2004, 17:47
Hi!
Dann zeig mal deinen Code her!


Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat
Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#24

Re: Trackbar/Zeit

  Alt 11. Dez 2004, 17:48
Den ganzen?
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#25

Re: Trackbar/Zeit

  Alt 11. Dez 2004, 17:51
Hi!

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


Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat
Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#26

Re: Trackbar/Zeit

  Alt 11. Dez 2004, 17:52
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;
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#27

Re: Trackbar/Zeit

  Alt 11. Dez 2004, 17:59
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
Frederic Kerber
  Mit Zitat antworten Zitat
Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#28

Re: Trackbar/Zeit

  Alt 11. Dez 2004, 18:05
Cool, automatisch wird ein ladestand angezeigt.

Na ja dafür läuft wichtigeres nicht mehr

Wenn ich einfach
tb1.MaxValue := aStream; und
Delphi-Quellcode:
TrackPos := BASS_ChannelGetPosition(hFileStream);
tb1.Position := hFileStream;
sage, läufts nicht, nur warum?!
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#29

Re: Trackbar/Zeit

  Alt 11. Dez 2004, 18:10
Hi!

Zitat von Nils_13:
Cool, automatisch wird ein ladestand angezeigt.

Na ja dafür läuft wichtigeres nicht mehr



Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat
Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#30

Re: Trackbar/Zeit

  Alt 11. Dez 2004, 18:11
@Fkerber: Siehe 2 Beiträge drüber!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz