Hallo,
bin auch mal wieder da. also ich würde gern die lautstärke vom mediaplayer
zur laufzeit ändern(also wie bei windowsmediaplayer, usw.). ich habe aber keinen befehl gefunden, mit dem ich das machen kann!
danke,
heiopei

Schauh mal auf

http://www.delphi-treff.de/content/e...ex.php4?id=351Delphi-Treff.de.

Da steht, wie man die Lautsärke auslesen und auch setzen kann.

Man liest sich, Stanlay

danke,
genau das, was ich gesucht hab.
heiopei

Hallo!
Ich habe mir den Link oben auch mal angeschaut, und möchte die Lautstärke nun über eine TrackBar regeln; Hat hier einer eine Ahnung, wie ich das Anstellen könnte?;

Hier der Code zum Auslesen der Datei (GetVolume):

zusammenfalten · markieren

Delphi-Quellcode:

procedure GetVolume(var VolL, VolR: Word);
var
 hWO: HWaveOut;
 waveF: TWAVEFORMATEX;
 vol: DWORD;
begin
  volR := 0;
  volL := 0;
  //init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
  //open WaveMapper = std output of playsound
  waveOutOpen(@hWo, WAVE_MAPPER, @waveF, 0, 0, 0);
  //get volume
  waveOutGetVolume(hWO, @vol);
  volR := vol and $FFFF;
  volL := vol shr 16;
  waveOutClose(hWO);
end;

Und hier der, mit dem ich die Lautstärke 'Setzen' können soll (SetVolume):

zusammenfalten · markieren

Delphi-Quellcode:

procedure SetVolume(const volR, volL: Word);
var
  hWO: HWaveOut;
  waveF: TWAVEFORMATEX;
  vol: DWORD;
begin
  //init TWAVEFORMATEX
  FillChar(waveF, sizeOf(waveF), 0);
  // open WaveMapper = std output of playsound
  WaveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  vol := VolL + VolR shr 16;
  //set volume
  waveOutSetVolume(hWO, vol);
  waveOutClose(hWO);
end;

Dann noch eine Frage: Wieso zeigen die beiden Labels (siehe unten) vollkommen unterschiedliche Werte an, sobald man folgenden Quelltext eingibt (und die nötigen Komponenten initialisiert bzw. erstellt):

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var VolLi, VolRe: Word;
begin
 GetVolume(VolLi, VolRe);
 Label1.Caption := IntToStr(VolLi);
 Label2.Caption := IntToStr(VolRe);
end;

Bitte, wenn möglich, um schnelle Antwort;

Gruss
DelphiUser7

versucht doch mal das:
http://www.swissdelphicenter.com/de/showcode.php?id=618

Zitat von Gandalfus:

versucht doch mal das:
http://www.swissdelphicenter.com/de/showcode.php?id=618

dieses hab ich derzeit in einer scrollbar eingebunden über der man nun die lautstärke einstellen kann...
bei bedarf kann ich ja den code posten

Zitat von Stanlay Hanks:

Schauh mal auf

http://www.delphi-treff.de/content/e...ex.php4?id=351Delphi-Treff.de.

Da steht, wie man die Lautsärke auslesen und auch setzen kann.

Man liest sich, Stanlay

bei nmir kommt das die seite nicht existiert

Ist auch für BS > Xp veraltet oder?

Man nehme
taudiovolume

gruss