Problem mit "CatchSound".

[Ma.Fe]

Bin noch ein relativer Anfänger in Sachen PureBasic. Ich hoffe jemand kann mir bei folgendem Problem helfen:
Ich möchte eine *.wav in mein Programm einfügen.
Habe mit folgendem Code die Datei auch schon eingefügt:

DataSection
Ref:
IncludeBinary "ref440.wav"
EndDataSection

Wenn ich die Datei dann jedoch mit "CatchSound(1, ?Ref)" laden möchte,
um sie dann mit PlaySound(1) abzuspielen, meldet sich CatchSound immer mit Result <> 0 bzw. der Debugger zeigt folgende Meldung an: "#Sound object not initialized". Woran könnte dies liegen?

[bizzl]

Ich hab folgendes probiert, das geht:

Code: Alles auswählen

If Not InitSound():End:EndIf
CatchSound(1,?sound)
PlaySound(1)
Delay(1000)
End
DataSection
sound:
IncludeBinary "C:\Windows\media\chimes.wav"
EndDataSection

Ist evtl. der Pfad zu deiner .wav-Datei falsch?
Kannst du die Datei im WindowsMediaPlayer abspielen?
Hat die Datei vielleicht `ne Macke?

Ich benutze PB4.00!
Müßte aber in 3.94 genauso gehen.

[ts-soft]

Manchmal ist der längeparameter bei CatchSound erforderlich. Das Beispiel von bizzl würde dann so aussehen:

Code: Alles auswählen

If Not InitSound():End:EndIf
CatchSound(1,?sound, ?soundend - ?sound)
PlaySound(1)
Delay(1000)
End
DataSection
sound:
IncludeBinary "C:\Windows\media\chimes.wav"
soundend:
EndDataSection 

[Ma.Fe]

@bizzl:
Es war egal, welche Datei ich abspielen wollte, es hat nie geklappt!

Dein Code funktioniert bei mit im Übrigen auch nicht:

Fehlermeldung: "Zeile 1: Garbage at the end of line!"
Ich hab dann die erste Zeile verkürzt auf "InitSound()" ohne
Fehlererkennung. Das Programm ist dann wieder bis PlaySound(1, ?sound)
gelaufen und gab dann wieder den gleichen Fehler wie bei meinem Programm aus. Kann das an meiner älteren PureBasic Version 3.30 liegen?

@ts-soft: Bei mir zeigt es wieder den gleichen Fehler in Zeile eins und noch einen weiteren in Zeile zwei: "incorrect number of Parameters!"
Ich glaub der Fehler liegt wirklich an meiner PureBasic-Version

----------

Hab's jetzt mal mit dem Code probiert:

If InitSound() = 0 :End:EndIf
CatchSound(1,?sound - ?soundend)
PlaySound(1)
Delay(5000)
End
DataSection
sound:
IncludeBinary "C:\Windows\media\chimes.wav"
soundend:
EndDataSection

Ergebnis: "#sound object not initialized!"

[ts-soft]

probiere es mal ohne Datasection:

Code: Alles auswählen

If InitSound()= 0
  End
EndIf
CatchSound(1,?sound)
PlaySound(1)
Delay(1000)
End
sound:
IncludeBinary "C:\Windows\media\chimes.wav"

Ansonsten weiß ich nicht, CatchSound gibts seit V 3.00

[Ma.Fe]

Klasse! Jetzt hat's geklappt!!!

Ich muss also das "Datasection" weglassen.
Das muss man erstmal rausfinden!

Vielen Dank für die Hilfe!

[ts-soft]

Aber das End vor dem IncludeBinary nicht vergessen

[bobobo]

Klasse! Jetzt hat's geklappt!!!

Ich muss also das "Datasection" weglassen.
Das muss man erstmal rausfinden!

Vielen Dank für die Hilfe!

Deine Schlußfolgerung ist falsch
Du musst nicht Datasection weglassen, sondern Dir 'ne
aktuelle PB-Version besorgen.

[Ma.Fe]

Warum soll ich n neues Programm kaufen, wenn das alte Programm auch noch alle Funktionen hat, die ich brauche???
Es hat nicht jeder so nen dicken Geldbeutel, dass er sich immer die neueste Version kaufen kann. Da ich die "Topos-Version" habe, ist für mich n update nämlich (leider) nicht kostenlos!

[bizzl]

Das erste Update ist nicht kostenlos, alle anderen dann schon.
Ich habe seber mit der 3.30 vom Topos-Verlag angefangen, und wenn ich jetzt die 4.00 sehe: Die einmalige(!) Updategebühr hat sich echt gelohnt.