Visualisierungen mit bass.dll

[E307]

Wie kann ich in meinem Mediaplayer Visualisierungen wie im Windows MediaPlayer erstellen? Ich benutze den TBassDLLPlayer, den es hier im Forum irgendwo als Download gibt, würde da aber auch ein Paar Funktionen hinzufügen.

[turboPASCAL]

In dem Beispielen sin schon einige Vis vorhanden. In der DP sind auch noch einige andere schöhne Vis unterwegs. ;)


zB.: http://www.delphipraxis.net/internal...=433929#433929

Guckst du auch: bass AND vis

[E307]

Toll, genau sowas habe ich gesucht! :thumb: Allerdigs blinkt das Bild genau wie die Progressbars, die es im Projekt schon länger gibt, ganz furchtbar und man kann kaum etwas erkennen! Gibt es da Abhilfe?

[igel457]

Wie wäre es mit:

Delphi-Quellcode:

Form1.DoubleBuffered := true;

[Nils_13]

Falls DoubleBuffered nicht viel bringt, musst du das Timer-Interval erhöhen.

[turboPASCAL]

Zitat:

Zitat von E307

Toll, genau sowas habe ich gesucht! :thumb: Allerdigs blinkt das Bild genau wie die Progressbars, die es im Projekt schon länger gibt, ganz furchtbar und man kann kaum etwas erkennen! Gibt es da Abhilfe?

DoubleBuffered ist kein Allheilmittel.

Wenn du uns sagst wie du was darstellst gegf. mit ein bissel Quelltext kann dir bestimmt geholfen werden.

[E307]

Die Möglichkeiten haben leider alle nicht funktioniert.
Das ganze Projekt hat übrigens ein Hintergrundbild (TImage). Vieleicht hat das etwas mit dem Problem zu tun. Hier mal der Code des Haupttimers:

Delphi-Quellcode:

if Video=true then begin //Wenn Datei ein Video ist
Trackposbar.position := Videoplayer.Position //Trackposbar auf Videoposition bringen
end else //Wenn die Datei eine Audiodatei ist
LPGauge.Progress := AudioPlayer.LeftPeak;
RPGauge.Progress := AudioPlayer.RightPeak;
//Visual
  if AudioPlayer.Status in [sndPlaying] then DrawOSC := True
  else DrawOSC := False;

  if DrawOSC then
  begin
    OscDraw(OffScreenBitmap, AudioPlayer.getWaveData, 250);
    VisPaintBox.Canvas.Draw(0, 0, OffScreenBitmap);
  end;
PlayPos := AudioPlayer.position; 
Trackposbar.Max := AudioPlayer.SongLength;
Trackposbar.position := AudioPlayer.position; //Trackposbar auf Audioposition bringen

CPULabel.Caption := 'CPU:' + FloatToStr(RoundX(AudioPlayer.CPUUsage,2));

Es gib noch 2 weitere Timer, ich glaube aber, dass die hier keine Bedeutung haben.
Ach ja, wenn ich das Hintergrundbild entferne blinken die VisPaintBox und die beiden Gaugen trotzdem. Das Timerintervall habe ich etwas beschleunigt und es beträgt jetzt 37 (ms).

[Gandalfus]

draw durch Bitblt ersetzen.

und poste mal den 2. Timer.

Zitat:

musst du das Timer-Interval erhöhen.

das ist Quatsch!

[E307]

Zitat:

draw durch Bitblt ersetzen.

Meinem Delphi ist "BitBlt" Nicht bekannt!
Die anderen Timer sind nur der Playlist-Timer und einer, der für eine Scrollende Schrift im Titel sorgt.

[Gandalfus]

Zitat:

Zitat von E307

Meinem Delphi ist "BitBlt" Nicht bekannt!

Dann gibt es das wohl nicht.

Zitat:

der für eine Scrollende Schrift im Titel sorgt.

es wäre ja möglich dass, das dadurch das fomular immerwieder neugezeichnete wird also code posten. und auch gleich Inhalt OscDraw() posten.