Audiodateien einbinden

[hacker]

Kann mir mal jemand verraten, wie ich Audiodateien einbinden kann, so dass man z.B. auf einen Button drückt und dann die Audiodatei abgespielt wird?

Ich wäre sehr dankbar. :bouncing4:


Gruss Häcki

[Christian Seehase]

Moin Häcki,

schau mal in der Code-Library

Sounds aus Ressourcen abspielen

[hacker]

Sorry das ich so blöd frage, aber wo finde ich diese Resource? :cry:


Habe voll keine Ahnung.


Gruss Häcki

[Matze]

Die erstellt man.

Kann man mit Delphi machen:

Datei - Neu - Weitere - Textdatei


dort gibt man z.B. ein:

100 Sound 'irgendwas.wav' (Angabe ohne Gewähr!) ;)


Speichern unter: irgendwas.res

Dann in Delphi: Umschalttaste+F11 und diese Datei auswählen.

[Jens Schumann]

Hallo hacker,
die Resource wirst Du solange nicht finden bis Du sie nicht eingebunden hast.
Dafür musst Du Die eine Resourcendatei schreiben und in dein Projekt einbinden.

Code:

WaveResource WAVE "sound.wav"

Dabei muss sich die Wave-Datei sound.wav in demselbem Verzeichnis wie die Resourcendatei befinden.

[emkay]

Das wird wohl so nicht funktionieren.

Delphi-Quellcode:

WaveResource WAVE "sound.wav"

Dies kommt in eine *.rc Datei rein. (per Texteditor oder Delphi)

Diese muss mit der Brcc32.exe aus dem Delphi-BIN-Verzeichnis in eine *.res kompiliert werden.
(einfach draufziehen) Dabei sollten Wave-Datei, *.rc und Brcc32.exe im selben Verzeichnis sein.

So, und dann wie im Link einbinden.

[hacker]

Mir ist alles klar...Aber ich finde die Brcc32.exe nicht :cry:


Wo finde ich die?


Gruss Häcki :hi:

[fkerber]

HI!

Also vom Pfadmuster hier:

C:\Programme\Borland\Delphi6\Bin\brcc32.exe

Ciao fkerber

[hacker]

danke für den hinweis!! :bounce1:

Gruss Häcki :hi:

[hacker]

Mit den Ressourcen wäre jetzt alles klar. :hello:

Jetzt fehlt mir nur noch dieser Ausdruck mit dem ich nichts anfangen kann :( :

Delphi-Quellcode:

procedure TfrmMAIN.Button1Click(Sender: TObject);
begin
  // Sounds stoppen
  PlaySound(nil,0,0);
  // Wavedatei aus Resource abspielen (SND_RESOURCE) und
  // nicht warten, bis das Abspielen beendet ist (SND_ASYNC)
  PlaySound('WaveResource',hInstance,SND_RESOURCE or SND_ASYNC);
end;

kann mir da jemand helfen?Ich wäre echt froh :)


Gruss Häcki :hi:

[edit=Admin]Delphi-Tags eingefügt. Künftig bitte selber machen. Danke. Mfg, Daniel[/edit]