Ændre "master volumen"

Jup :-)

Her har du koden...

unit Unit1;

interface

uses
  //Bemærk MMSystem
  Windows, Messages,MMSystem, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    ScrollBar1: TScrollBar;
    procedure ScrollBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  //Scrollbaren's minimum værdi er sat til 0 Maksimum sat til 65535!
  //Scrollbaren styrer volumen...
  waveOutSetVolume(0,Scrollbar1.Position);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  waveOutSetVolume(0, 0); //Sætter lyden lig 0;
end;

end.

Mvh
Retep

Det ændre ikke "master volumen", kun "wave/directSound".

Check help filen til Windows MM API'et.  Der er et afsnit med Mixere mv.  Mon ikke det er den vej du skal gå?

42 point?  Underligt tal ;)

NiP

>>Delphi:
Jo det tror jeg også, jeg har faktisk prøvet at få det med mixeren til at virke kan bare ikke finde ud af hvordan den skal bruge/få den til at virke :(

42 point hvis du kan fortælle mig hvordan den bruges :)

Jeg har lige prøvet at kigge lidt på sagen (via help files).  Jeg kan ikke lige umiddelbart finde hvorledes man styrer Master Volume (tilgengæld er der masser af henvisninger til Wave og AUX (Line Out) volume ændringer).

Mon ikke der er en komponent på DSP eller lign.?

NiP

Det er ikke helt det jeg har brug for :(

Jo, det er da muligt.. Kikker lige :)

Som Delphi nævnte tidligerer er det afsnittet om mixere du skal kigge på:

MIXERCONTROL Win API'en og strukturen MIXERCONTROLDETAILS_UNSIGNED giver dig kontrol over de "fadere", herunder Voloume, der findes i mixeren.

Dette gælder derfor også mastervoloumen.

sjensen

>>sjensen, kan du få det til at virker? Jeg kan ikke :(

Er der iøvrigt ikke en eller anden DirectX (DirectSound) rutine der kan anvendes.  Det kunne nemt tænkes at det var nemmere at gå igennem DirecX API'et end at benytte Mixers.  Mixers ser ud til at behøve en stabil blanding af functionskald og underlige record strukture.

NiP

Måske.. Jeg kan da prøve om jeg kan finde noget om det..

Jeg sad lige i weekenden og kiggede lidt på det - dvs. jeg lavede et test program (med Mixers).  Jeg har ikke nogen problemer med at få de forskellige Mixer kald (dvs. MixerOpen, MixerGetControlDetails, MixerGetLineInfo mv.) til at virke - der er bare et problem:  Hvor fa... er den værdi man skal læse/skrive til for at få/ændere den aktuelle volumen indstilling?

Dokumentationen mangler i mine øjne noget vedr. mixers....

NiP

Hmmm.. Jeg har ikke kunne finde noget om at man via DirectX kunne styre "master volumen" :(

>>delphi, Gider du sende mig dit test program.. Jeg vil gerne se hvor ledes det skal gøres for at få det til at virke.

Jeg har det vist liggende derhjemme.  Jeg kigger lige på sagen igen.  Men som sagt: Jeg har ikke fundet den værdi, der ændrer på Master Volumen.

NiP

Jeg fandt nogle constant'er man bruger i forbindelse med getlineinfo (tror jeg nok, eller en af de andre funktioner) som hed noget med volume... så det er der nok :)

min email er forøvrigt snorga@mail.dk, hvis du gider sende dit test program.

Så snart jeg lige får tid til at finde ud af om det stadig eksisterer - jeg har p**** travlt lige nu...

NiP

Delphi Super Page>søg MIXER.ZIP>download>installer i delphi>open eksempel

Vupsi, it´s working!

>>cybermike, den virker vist kun med delphi 2?

Jeg bruger den i Delphi3.

hmm.. noget nyt under solen..?

ja du skylder mig 42 points!

Fik den aldrig til at virke..!

Kan ikke finde den på dsp, deres søgeting virker ikke.. Hvis du gider email mig mixer.zip, og den virker så skal du nok få \"dine\" point..

Og hvis det er master volumen den kan ændre på!

Det er vel ikke mit problem at du ikke kan finde ud af at dl´e den

anyway send mig en mail så skaljeg se hvad jeg kan gøre.

  CyberMike

Det var hvis du havde den.

Min email står lidt længere oppe i denne email; men her er den igen snorga@mail.dk.

Jeg kunne slet ikke få den installeret i delphi, sidste jeg prøvede!

Er du stadig interesseret i kode til ændring af master-volume? - For jeg har selv haft samme problem, men har nu selv fundet ud af det.

>>AASuper

Ja tak, så kan jeg da få lukket spørgsmålet!

Her er den:


procedure TformMain.Lydstyrke(Enhed: Cardinal; V,H: Integer);
var
  MasterVol: TMixerControl;
  Details: TMixerControlDetails;
  Line: TMixerLine;
  Controls: TMixerLineControls;
begin

ZeroMemory(@Line, SizeOf(Line));
Line.cbStruct := SizeOf(Line);
Line.dwComponentType := Enhed;

mixerGetLineInfo(0, @Line, MIXER_GETLINEINFOF_COMPONENTTYPE);
ZeroMemory(@Controls, SizeOf(Controls));
Controls.cbStruct := SizeOf(Controls);
Controls.dwLineID := Line.dwLineID;
Controls.cControls := 1;
Controls.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
Controls.cbmxctrl := SizeOf(MasterVol);
Controls.pamxctrl := @MasterVol;
mixerGetLineControls(0, @Controls, MIXER_GETLINECONTROLSF_ONEBYTYPE);
//Her angives venstre og højre volumen mellem 0 og 65535
detail[0]:=V;
detail[1]:=H;
MasterVol.dwControlType:= MIXERCONTROL_CONTROLTYPE_VOLUME;

with Details do
begin
cbStruct := SizeOf(Details);
dwControlID := MasterVol.dwControlID;
cChannels := 2;
cMultipleItems := 0;
cbDetails := SizeOf(integer);
paDetails := @detail;
end;

mixerSetControlDetails(0, @Details, MIXER_SETCONTROLDETAILSF_VALUE);

end;


Sådan ændres lydstyrken:

Lydstyrke(MIXERLINE_COMPONENTTYPE_SRC_LINE, 65530, 65530);

Mixeren kan udskiftes med andre typer. Master-volumen hedder således:
MIXERLINE_COMPONENTTYPE_DST_SPEAKERS
Wave-volumen hedder således:
MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT

Hvis du vil bruge mute, kan du bare sætte højre og venstre til 0.
Der skal nok tilføjes et par ekstra ting i 'USES'. I hvert fald MMSystem og ExtCtrls.


>>AASuper

Tak,
men mute ved at sætte volumen til 0 er vist ikke så smart, for hvordan "un-mute" man så igen?