Hi!
An sich ist es ziemlich einfach. Du kannst mit den Komponenten von DelphiX jedoch nur WAV-Dateien abspielen. Du könntest dir mal ein Sound-Beispiel von DelphiX ansehen.
Du benötigst auf jeden Fall schonmal
DXWaveList und
DXSound. In die DXWaveList kannst du alle deine WAV-Dateien reinladen. Damit die Exe nicht unnötig groß wird und die Speicher- und Compilerzeiten schneller sind, solltest du sie später vielleicht exportieren und beim Starten des Programmes laden.
Mit
DXWaveList.Items.Find(Name).Play(Wait)
kannst du die Sounds dann abspielen, wobei "Name" für den Namen in deiner DXWaveList steht (also beispielsweise 'Explosion.wav'), und "Wait" ist die Zeit, die er die Datei verzögert abspielen soll. Meistens verwendet man hier 0, da er sie sofort abspielen soll. Aber wer weiß
Die DXSound-Komponente ist für den ganzen Kram zuständig. Sie muss, wenn du Sound hören willst, initialisiert werden. Hier ein Beispiel mit einem Menüpunkt zum Aktivieren und Deaktivieren von Sound:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm1.OptionSoundClick(Sender: TObject);
begin
OptionSound.Checked := not OptionSound.Checked;
if OptionSound.Checked then
begin
if not DXSound.Initialized then
try
DXSound.Initialize;
except
OptionSound.Checked := False;
end;
end
else DXSound.Finalize;
end; |
Das war es dann auch schon, mehr muss nicht getan werden.
Ich hoffe, du bekommst das jetzt hin
Greetz,
Knuddelbaer
