Lautsprechersteuerung

[EWeiss]

Zitat:

Ich komme so auf jeden Fall nicht weiter.

Anleitung gelesen ? Im vorherigen Post? (Oder hier nochmal)
Sorry! Also einfacher geht es doch wirklich nimmer.

how-to-install-a-component-from-pas-file-in-delphi

gruss

[hbriele]

Zitat von EWeiss:

Zitat:

Ich komme so auf jeden Fall nicht weiter.

Anleitung gelesen ? Im vorherigen Post? (Oder hier nochmal)
Sorry! Also einfacher geht es doch wirklich nimmer.

how-to-install-a-component-from-pas-file-in-delphi

gruss

Ja Danke,
hat funktioniert.

Die TKomponente ist nun vorhanden.
Leider hängt sich Delphi nach wie vor gnadenlos auf wenn ich die Demo aufrufe.
Wenn ich die Komponente auf eine Form ziehe stehen mir alle TAudioVolume zur Verfügung.
Nun weiß ich aber erst einmal nicht, was ich alles Initialisieren muss damit mir AudioVolume1.GetMasterVolume einen Wert zurück gibt.

Gruß

[EWeiss]

Zitat:

Leider hängt sich Delphi nach wie vor gnadenlos auf wenn ich die Demo aufrufe.

Rufe nicht die Projekt Datei auf die ist für D2010.
Verwende die AudioVolumeAdj_Eng.dpr

Wenn es dann immer noch nicht geht musst du es halt von Hand für D7 ändern.
Wie gesagt ich habe kein D7.

Hier wird das Volumen gesetzt

Delphi-Quellcode:

procedure TForm1.tbMasterVolumeChange(Sender: TObject);
begin
  AudioVolume1.SetMasterVolume((tbAppVolume.Max - tbMasterVolume.Position) / tbMasterVolume.Max);
end;

und so bekommst du aktuelle Position.
tbMasterVolume.Position := round((1.0 - AudioVolume1.GetMasterVolume) * tbMasterVolume.Max);

Wenn niemand hilft der D7 hat kann ich leider auch nichts mehr tun. Sorry

gruss

[hbriele]

Hallo, Danke noch einmal,
ich habe natürlich die richtige Datei aufgerufen.

Habe jetzt aus der Demo versucht einiges nachzuvollziehen,
bin jetzt so weit, dass ich Integerwerte habe die bei Reglerstellung 100% auf 0 und beim Regler zu 0% einen Wert von 100 hat.

Bin soweit Glücklich,
Danke

[EWeiss]

Zitat:

ich habe natürlich die richtige Datei aufgerufen.

OK! Wollte das nur noch anmerken.

Zitat:

Bin soweit Glücklich,

Das freut mich dann hat es ja doch etwas gebracht.
Zuletzt! Nie zu schnell Aufgeben.. Wird schon.

gruss