Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

get master bass or treble from line out with Delphi

[es] :: Pascal / Delphi / Kylix :: get master bass or treble from line out with Delphi

[ Pregleda: 2307 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

overrider
student ETF

Član broj: 182767
Poruke: 4
*.artcommunication.co.yu.



Profil

icon get master bass or treble from line out with Delphi28.05.2008. u 11:27 - pre 192 meseci
kako da preuzmem vrednost bass signala, ako je pustena pesma iz bilo kog player-a,
znaci nesto kao master volume...samo za bas ili ceo equalizer...
gledao sam semu protoka signala do Line_out i postoji equalizer na samom izlazu,
e sad kako uzeti vrednost basa,.. preko delphi-ja?

THX..
 
Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654



+5 Profil

icon Re: get master bass or treble from line out with Delphi28.05.2008. u 11:48 - pre 192 meseci
Imas ako se dobro secam TBass komponentu koja ti omogucuje to sto zelis i jos mnostvo drugih stvari. Potrazi je na www.torry.net - u
 
Odgovor na temu

overrider
student ETF

Član broj: 182767
Poruke: 4
*.artcommunication.co.yu.



Profil

icon Re: get master bass or treble from line out with Delphi28.05.2008. u 12:11 - pre 192 meseci
znam za to, al' nemam vremena za to, a mislim da ne moze da odradi ovo sto meni treba,
ima opcija za master volume i to je to.

da li postoji neka funkcija u MMsystem koja radi tako nesto...?

ili ako znas kako to da odradim preko TBASS.....

 
Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654



+5 Profil

icon Re: get master bass or treble from line out with Delphi28.05.2008. u 14:11 - pre 192 meseci
Skini primer ovde i vidi sta sve moze da se odradi sa datom komponentom, i vidi source za ono sto te zanima.
 
Odgovor na temu

overrider
student ETF

Član broj: 182767
Poruke: 4
*.artcommunication.co.yu.



Profil

icon Re: get master bass or treble from line out with Delphi28.05.2008. u 14:58 - pre 192 meseci
Code:

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  cmpMeterData, StdCtrls, ExtCtrls, ComCtrls, LedLadder, Menus, Buttons;

type
  TForm1 = class(TForm)
    MeterData1: TMeterData;
    Timer1: TTimer;
    LedLadder1: TLedLadder;
    cbMeters: TComboBox;
    Bevel1: TBevel;
    btnClose: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure MeterData1LineChange(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure mnuFileExitClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure cbMetersChange(Sender: TObject);
  private
    fMeterID : Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to MeterData1.MeterCount - 1 do
    cbMeters.Items.Add (MeterData1.Meters [i].MeterName);

  if cbMeters.Items.Count > 0 then
    cbMeters.ItemIndex := 0;


  LedLadder1.Min := 0;
  LedLadder1.Max := MeterData1.Meters [fMeterID].Max;
  LedLadder1.Position := 0;
end;

procedure TForm1.MeterData1LineChange(Sender: TObject);
begin
  Timer1Timer (Nil);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if MeterData1.Active then
  begin
    LedLadder1.Position := Abs (MeterData1.Meters [fMeterID].Level);
    Application.ProcessMessages
  end
  else
    LedLadder1.Position := 0;
end;

procedure TForm1.mnuFileExitClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.btnCloseClick(Sender: TObject);
begin
  Close
end;

procedure TForm1.cbMetersChange(Sender: TObject);
begin
  fMeterID := cbMeters.ItemIndex;
  LedLadder1.Max := MeterData1.Meters [fMeterID].Max;
  LedLadder1.Position := 0;
end;

end.
//ovo sam nasao na netu
ali prijavljuje gresku list index out of bounds


Dodatak (savkic):
Kod pisanja koda koristi code tagove, tako se dosta dobija na preglednosti. Npr.

[code]
begin
if A > B then
end;
[/code]



[Ovu poruku je menjao savkic dana 28.05.2008. u 18:07 GMT+1]
 
Odgovor na temu

overrider
student ETF

Član broj: 182767
Poruke: 4
*.artcommunication.co.yu.



Profil

icon list index out of bounds28.05.2008. u 15:24 - pre 192 meseci
greska je kod fMeterID
samo ne znam sta treba proslediti u meters[......] ?

http://www.wilsonc.demon.co.uk...s/MidiComponents/MidiMeter.zip
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: get master bass or treble from line out with Delphi

[ Pregleda: 2307 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.