Hallo,

ich möchte 2 ProgressBars, die einen umso größeren Fortschritt haben umso Lauter der momentane Sound ist. Eine für Links und eine für Rechts.
Ich habe das mal mit der bass.dll probiert aber ich habs nicht hinbekommen.

Pls help

MfG

Hi

Es ist sehr einfach wen du die bass.dll benutzt.

zusammenfalten · markieren

Delphi-Quellcode:

Play_Channel:= BASS_StreamCreateFile(false, PChar(Filename), 0, 0, BASS_STREAM_AUTOFREE) ;

{----------------------------------- Get VU -----------------------------------}

Procedure Get_VULevel(var L, R : Integer);
var VUCH : DWORD; L_VU, R_VU : integer;
begin
  VUCH := BASS_ChannelGetLevel(Play_Channel); //from 0 (silent) to 32768 (max)
   L_VU := LOWORD(VUCH);
   R_VU := HIWORD(VUCH);
  if (BASS_ChannelIsActive(Play_Channel) = BASS_ACTIVE_PLAYING) then
   begin
    L:= L_VU;
    R:= R_VU;
   end else
  begin
    L:= 0;
    R:= 0;
  end;
end;



//dann mit nem teimer

var L, R : integer
begin
 VULevel(L,R);

  ProgressBars_L.Position:= R;
  ProgressBars_R.Position := L;
End.

Danke für die Antwort.

Ich habe da nur noch ein kleines Problem.
Wie muss ich die 1. Zeile einbauen ?

markieren

Delphi-Quellcode:

var Play_Channel : DWORD;


Procedure PlayFile(Filename : String);
begin
  BASS_StreamFree(Play_Channel);
  Play_Channel:= BASS_StreamCreateFile(false, PChar(Filename), 0, 0, BASS_STREAM_AUTOFREE) ;
  BASS_ChannelPlay(Play_Channel l, true);
End

Vielleicht bin ich einfach nur zu blöd, aber ich bekomms immer noch nicht hin.

Ich hab das jetzt so :

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bass, ExtCtrls, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    ProgressBars_L: TProgressBar;
    ProgressBars_R: TProgressBar;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Play_Channel : DWORD;


implementation

{$R *.dfm}




Procedure PlayFile(Filename : String);
begin
  BASS_StreamFree(Play_Channel);
  Play_Channel:= BASS_StreamCreateFile(false, PChar(Filename), 0, 0, BASS_STREAM_AUTOFREE) ;
  BASS_ChannelPlay(Play_Channel l, true);
End;


Procedure Get_VULevel(var L, R : Integer);
var VUCH : DWORD; L_VU, R_VU : integer;
begin
  VUCH := BASS_ChannelGetLevel(Play_Channel); //from 0 (silent) to 32768 (max)
   L_VU := LOWORD(VUCH);
   R_VU := HIWORD(VUCH);
  if (BASS_ChannelIsActive(Play_Channel) = BASS_ACTIVE_PLAYING) then
   begin
    L:= L_VU;
    R:= R_VU;
   end else
  begin
    L:= 0;
    R:= 0;
  end;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
var L, R : integer;
begin
VULevel(L,R);

  ProgressBars_L.Position:= R;
  ProgressBars_R.Position := L;

end;

end.

Kann mir pls jemand sagen was das falsch ist und wie es richtig geht.

MfG

Hast du vor dem Abspielen ein einmaliges Bass_init(-1,44100,0,handle,0); oder was vergleichbares? Und hast du max bei den Progressbars auf nen vernünftigen Wert (32768) eingestellt?

Denn dann funktioniert das bei mir.

Die Progessbar hatte ich auf 32768, aber das andere nicht.
Kannst du vielleicht mal den ganzen Code von der Unit reinschreiben pls ?

Pack meine Zeile einfach ins OnCreate der Form rein, dann gehts. Die sorgt dafür, dass die bass.dll initialisiert wird. Ohne dem spielt die nämlich gar nichts ab. Oder hörst du schon was bei deinem Programm?

Die Zeile hab ich da rein getan gehabt, nur kommen noch 2 Fehler,
die leider meine Kentnisse überfordern.



BASS_ChannelPlay(Play_Channel l, true); Expexted ) but received an identifier

VULevel(L,R); undeclared identifier


Und falls meine Frage unverständlich gestellt war: Mein Programm soll nichts abspielen sondern, die Progressbars sollen den Sound anzeigen der gerade aus den Lautsprechern kommt.

ich dachte, das wäre bei mir ein Copy&Paste-Fehler gewesen: Die eine Zeile muss so heißen:
BASS_ChannelPlay(Play_Channel, true); und schau dir mal an, wie man VULevel(L,R); unter Umständen so anpassen kann, dass die im Quellcode zu findende Prozedur Get_VULevel aufgerufen wird...