Announcement

**Edwin Knoppert** · 8 Sep 2000, 10:37 PM

I have the same trouble with some of my filenames.

It looks stupid but i solved it this way:

file1 RCDATA "C:\\PATH\\PROGRAM.EXE"

It depends on slashes (like c)
This is because you used ""
Without them you will encounter other problems

------------------
[email protected]

**Fred Oxenby** · 12 Sep 2000, 12:30 AM

You have to use PlaySound(...) and not SndPlaySound(...) to play a wave-file from a resource
%SND_RESOURCE is not a valid flag in SndPlaySound.... (according to MSDN)

Code:

RC-FILE  "WAV.RC"
  START  WAVE "c:\Windows\media\start.wav"
  CHIMES WAVE "c:\Windows\media\chimes.wav"
  CHORD  WAVE "c:\Windows\media\chord.wav"
  201    WAVE "c:\Windows\media\start.wav"
  202    WAVE "c:\Windows\media\chimes.wav"
  203    WAVE "c:\Windows\media\chord.wav"

----------------------   
PBCC-PROGRAM
   
#Resource "WAV.PBR"
#Include "win32api.inc"
Function PbMain()As Long
   Call PlaySound("START",ByVal GetModuleHandle(ByVal %NULL),%SND_RESOURCE Or %SND_SYNC)
   Call PlaySound("CHIMES",ByVal GetModuleHandle(ByVal %NULL),%SND_RESOURCE Or %SND_SYNC)
   Call PlaySound("CHORD",ByVal GetModuleHandle(ByVal %NULL),%SND_RESOURCE Or %SND_SYNC)
   Call PlaySound(ByVal MakDwd(201,0),ByVal GetModuleHandle(ByVal %NULL),%SND_RESOURCE Or %SND_SYNC)
   Call PlaySound(ByVal MakDwd(202,0),ByVal GetModuleHandle(ByVal %NULL),%SND_RESOURCE Or %SND_SYNC)
   Call PlaySound(ByVal MakDwd(203,0),ByVal GetModuleHandle(ByVal %NULL),%SND_RESOURCE Or %SND_SYNC)
   waitkey$
End Function

------------------
Fred
mailto:[email protected][email protected]</A>
http://www.oxenby.se

[This message has been edited by Fred Oxenby (edited September 12, 2000).]

**C.M. Rouleau** · 12 Sep 2000, 01:14 PM

Fred,

I tried your example using two of my own WAV files and with PBDLL6.0 and I've only been able to get one to play. I seem to be running into the same problem as the user who started this topic. Only the second file worked in the two file case and, in fact, only the second file worked in a 5 WAV files trial! I wonder how I might get to the bottom of this?

**C.M. Rouleau** · 12 Sep 2000, 01:38 PM

All,

My prior post was wrong. It's always the last file that plays and I don't know why

------------------

**C.M. Rouleau** · 12 Sep 2000, 01:50 PM

All,

Hot of the press! In order to get multiple WAV entries to play
I did the following:

Use Fred's example above to set up the RC file and instead of
using SND_RESOURCE, use SND_APPLICATION. I believe this works
because we are using a user-defined Resource-Definition statement
and this defines a resource with application specific data. Thus,
the corresponding flag for a application specific association
is SND_APPLICATION and not SND_RESOURCE.

Hope this helps!

------------------

**Fred Oxenby** · 12 Sep 2000, 03:54 PM

same problem with pbr-file seems to apply here as described in this thread?
(according to my tests this is the case)
http://www.powerbasic.com/support/pb...ead.php?t=2651
what i do is:
1) create the the res-file via a rc-script
2) not using the #resource metastetment in the code
3) use rsrc.exe (supplied by jcfuller) and embedd the resource in the exefile
4) use %snd_sync so the sound is ended before trying to start a second sound
5) use %snd_resource because that is (i think),the correct one
and believe it or not, it is working on win98,win2000me,win2000pro

if it cannot find the specified sound, playsound uses the default system event sound entry instead.
if the function can find neither the system default entry nor the default sound, it makes no sound and returns false.

>> c.m.rouleau
>> my prior post was wrong. it's always the last file that plays and i don't know why
this is becase your last entry will be the first entry in the resource (lastinfirstout)
and omly the first entry wil be found..
------------------
fred
mailto:[email protected][email protected]</a>
http://www.oxenby.se

[this message has been edited by fred oxenby (edited september 12, 2000).]

**Fred Oxenby** · 12 Sep 2000, 07:08 PM

Originally posted by C.M. Rouleau:
Use Fred's example above to set up the RC file and instead of
using SND_RESOURCE, use SND_APPLICATION. I believe this works
because we are using a user-defined Resource-Definition statement
and this defines a resource with application specific data. Thus,
the corresponding flag for a application specific association
is SND_APPLICATION and not SND_RESOURCE.

Code:

  Three flags in fdwSound (SND_ALIAS, SND_FILENAME, and SND_RESOURCE) 
  determine whether the name is interpreted as an alias for 
  a system event, a filename, or a resource identifier. 
  [b]If none of these flags are specified, PlaySound searches the registry 
  or the WIN.INI file for an association with the specified sound name. 
  If an association is found, the sound event is played.[/b]
  
  [i]If no association is found in the registry, the name is interpreted as a filename. [/i]

Specifying %SND_APPLICATION you are obviosly not playing from a resource.
However if your RESOURCEID = NAME of a WAV-file in your path this will be played
Try it without any PBR-file at all...

------------------
Fred
mailto:[email protected][email protected]</A>
http://www.oxenby.se

**C.M. Rouleau** · 12 Sep 2000, 09:25 PM

Fred,

You were right on the above - I had the ID and filename named
the same and that's what got my hopes up. So what is the underlying
reason for the failure of rc and pbres to compile a usable resource
iin the case of WAVs?

------------------

**Fred Oxenby** · 12 Sep 2000, 10:08 PM

Same reason as for AVI-resources mentioned in another thread

------------------
Fred
mailto:[email protected][email protected]</A>
http://www.oxenby.se

[This message has been edited by Fred Oxenby (edited September 12, 2000).]

**Phil Tippit** · 13 Sep 2000, 07:13 AM

Fellows,

Try this on for size, I now have it working with over 200
wave files defined in a rc-res-pbr resource file.

Code:

'PBDLL60
#COMPILE EXE
#DIM ALL
#RESOURCE "samplerc.pbr"
   ' this is the script in samplerc.rc
   ' edit the file names and descriptions for
   ' some waves files that you have on your system
'201 RCDATA "c:\pbdll60\sundgolf\sevniron.wav"
'202 RCDATA "c:\pbdll60\sundgolf\holeone.wav"
'203 RCDATA "c:\pbdll60\sundgolf\getnhole.wav"
'204 RCDATA "c:\pbdll60\sundgolf\klmostin.wav"
'205 RCDATA "c:\pbdll60\sundgolf\knother.wav"
'STRINGTABLE
'BEGIN
' 501 "There's Always The Seven Iron"
' 502 "Thrill of a Hole-In-One"
' 503 "Get In The Hole"
' 504 "Almost In The Hole"
' 505 "Hope You Have Another Ball"
'END


#INCLUDE "win32api.INC"
GLOBAL hCurInstance AS LONG
CALLBACK FUNCTION BtnCallback
    LOCAL Result1&, Result2&
    LOCAL hRes AS LONG
    LOCAL lpWav AS BYTE PTR
    IF CBCTL = %IDOK THEN
        CONTROL SEND CBHNDL, 100, %LB_GETCURSEL, 0, 0 TO Result1&
        IF Result1& >= 0 THEN
           Result1&=Result1&+201
           hRes = FindResource (hCurInstance, BYVAL Result1&, BYVAL %RT_RCDATA)
           IF hRes THEN
             lpWav = LockResource (LoadResource (hCurInstance, hRes))
             DIALOG DOEVENTS
             IF lpWav THEN
               FUNCTION = PlaySound(BYVAL lpWav, hCurInstance, %SND_MEMORY OR %SND_SYNC)
             END IF
             DIALOG DOEVENTS
             FreeResource hRes
           END IF
        END IF

    ELSE
        DIALOG END CBHNDL, 0
    END IF
END FUNCTION

CALLBACK FUNCTION DlgCallback
    ' Handle double click messages by pushing the OK button
    IF CBCTL = 100 AND CBCTLMSG = %LBN_DBLCLK THEN
        CONTROL SEND CBHNDL, %IDOK, %BM_CLICK, 0, 0
    END IF
END FUNCTION

FUNCTION WINMAIN (BYVAL hInstance  AS LONG, _
                  BYVAL hPrevInstance AS LONG, _
                  lpszCmdLine         AS ASCIIZ PTR, _
                  BYVAL nCmdShow      AS LONG) AS LONG
    hCurInstance=hInstance
    DIM lpbuffer AS ASCIIZ * 40
    DIM strp AS STRING PTR,nBufferMax&,y&
    DIM x&, hDlg&, a$()
    strp = VARPTR(lpbuffer$):nBufferMax&=40
    DIM a$(1:5)
    FOR x& = 501 TO 505
        y&=LoadString (BYVAL hInstance, BYVAL x&, lpBuffer , BYVAL nBufferMax)
        IF y& > 0 THEN
           a$(x&-500) = LEFT$(lpbuffer$,y&)
        ELSE
           a$(x&-500)="ITEM "+STR$(x&-500)
        END IF
    NEXT x&

    DIALOG NEW 0,"ListBox Example",,,530,320,%WS_SYSMENU OR %WS_THICKFRAME OR %DS_CENTER, TO hDlg
    CONTROL ADD BUTTON, hDlg, %IDOK, "&Ok", 10,185,40,14, %BS_DEFAULT OR %WS_TABSTOP CALL BtnCallback
    CONTROL ADD BUTTON, hDlg, %IDCANCEL, "&Cancel", 100,185,40,14 CALL BtnCallback

    CONTROL ADD LISTBOX, hDlg, 100, a$(), 10, 10, 180, 175, %LBS_DISABLENOSCROLL OR %WS_TABSTOP OR %LBS_NOTIFY OR %WS_VSCROLL, %WS_EX_CLIENTEDGE
    DIALOG SHOW MODAL hDlg CALL DlgCallback
END FUNCTION

------------------

**C.M. Rouleau** · 13 Sep 2000, 09:41 AM

Phil,

Yes! You're onto something. I tried the following and it worked
also. No need for the stringable stuff.

sound.rc file
howdy rcdata welcome.wav
bubye rcdata bye.wav

#COMPILE EXE
#RESOURCE "sound.pbr"
#INCLUDE "WIN32API.INC"

FUNCTION PBMAIN() AS LONG

LOCAL lpWav AS BYTE PTR

hInst&=GetModuleHandle("")
hRes& = FindResource(hInst&,"howdy",BYVAL %RT_RCDATA)
lpWav = LockResource(LoadResource(hInst&, hRes&))
CALL PlaySound(BYVAL lpWav,hInst&,%SND_MEMORY OR %SND_ASYNC)
FreeResource hRes&

DIALOG NEW 0,"Sound Demo",,,200,100,0,0 TO hDlg&
DIALOG SHOW MODAL hDlg&

END FUNCTION

------------------

**Lance Edmonds** · 18 Sep 2000, 07:17 AM

Phil, Edwin and Fred... can you please contact me directly by email... Thanks!

------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>

Announcement

RC and PBR File Problems

RC and PBR File Problems

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment