Impressum Datenschutzerklärung
  • Artikel ist eingeordnet in:
  • Delphi


Sound: Lautstärke geschrieben am 25.09.2005

Anbei ein paar gesammelte Funktionen zum Thema Sound in Delphi.

Benötigt werden folgende Units:

Delphi/Pascal uses MMSystem,Windows,sysutils,classes,Dialogs;

Mixer öffnen

Delphi/Pascalfunction InitMixer: HMixer; var Err: MMRESULT; begin Err := mixerOpen(@Result, 0, 0, 0, 0); if Err <> MMSYSERR_NOERROR then Result := 0; Mixer:=result; end;

Delphi/Pascalfunction GetMixerControlID(CompType: DWORD): DWORD; var mxl: TMIXERLINE; mxc: TMIXERCONTROL; mxlc: TMIXERLINECONTROLS; begin Result := 0; mxl.cbStruct := Sizeof(mxl); mxl.dwComponentType := CompType; if (mixerGetLineInfo(0, @mxl, MIXER_GETLINEINFof_COMPONENTTYPE) = MMSYSERR_NOERROR) then begin mxlc.cbStruct := Sizeof(mxlc); mxlc.dwLineID := mxl.dwLineID; mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME; mxlc.cControls := mxl.cControls; mxlc.cbmxctrl := sizeof(mxc); mxlc.pamxctrl := @mxc; if (mixerGetLineControls(0, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE) = MMSYSERR_NOERROR) then Result := mxc.dwControlID; end; end; function SetVolume(ID, Value: DWord): Boolean; var Volume : Array[0..1] of TMixerControlDetailsUnsigned; mxcd: TMixerControlDetails; begin Volume[0].dwValue := Value; Volume[1].dwValue := Value; with mxcd Do begin cbStruct := Sizeof(mxcd); dwControlID := ID; cChannels := 2; cMultipleItems := 0; cbDetails := Sizeof(TMixerControlDetailsUnsigned) * 2; paDetails := @Volume; Result := (mixerSetControlDetails(0, @mxcd,MIXER_SETCONTROLDETAILSF_VALUE) = MMSYSERR_NOERROR); end; end; function GetVolume(ID:DWord) : Cardinal; //0..65535 var MasterVolume : TMixerControl; Details : TMixerControlDetails; UnsignedDetails : TMixerControlDetailsUnsigned; Code : MMResult; begin Result :=0; //if Mixer=0 then exit; MasterVolume.dwControlID:=id; Code := GetMasterVolumeControl(MasterVolume); if(Code = MMSYSERR_NOERROR)then begin with Details do begin cbStruct := Sizeof(Details); dwControlID := ID; cChannels := 1; // set all channels cMultipleItems := 0; cbDetails := Sizeof(UnsignedDetails); paDetails := @UnsignedDetails; end; if(mixerGetControlDetails(Mixer, @Details, MIXER_GETCONTROLDETAILSF_VALUE) = MMSYSERR_NOERROR)then result := UnsignedDetails.dwValue; end; end; { - waveOutSetVolume - auxSetVolume - mixerSetControlDetails MIXERLINE_COMPONENTTYPE_DST_SPEAKERS MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE MIXERLINE_COMPONENTTYPE_SRC_LINE MIXERCONTROL_CONTROLTYPE_VOLUME MIXERCONTROL_CONTROLTYPE_FADER } //http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcewave/html/_wcesdk_am_mixerline.asp


schreibe den ersten Kommentar:


Inhalt zur freien Verwendung gibs es beim Thema Downloads.
nach oben springen
mehr auf: Instagram, github, thingiverse