Hi Przemysław,
I tesed it on WinXP and it dosn't seem to work.
Przemysław Czerpak wrote:
>
>
> On Thu, 26 Nov 2009, AbeB wrote:
>> Does TONE() work on WinCE for anyone? (dosn't work for me)
>
> TONE() is implemented by GT subsystem so the most important question
> is which GT you are using in your applications.
>
> In WinCE builds Beep() WIN API function is used for Harbour TONE()
> function
> in the following GTs: GTWIN, GTWVT, GTGUI.
> If it works or not depends on used hardware and system.
>
>> how about PlaySound()
>> this is what i have in test.prg
>> -----------------------
>> Proc main()
>> PLAYSOUND( ".\SOUND_OK.WAV")
>> #PRAGMA BEGINDUMP
>> #include <windows.h>
>> #include <mmsystem.h>
>> #include <hbapi.h>
>> HB_FUNC( PLAYSOUND )
>> {
>> hb_retl( PlaySound( hb_parc(1), NULL,SND_ASYNC | SND_FILENAME ) );
>> }
>> #PRAGMA ENDDUMP
>> ----------------------
>> warning: passing argument 1 of 'PlaySound' from incompatible pointer type
>
> Very good warning - this code really uses incompatible pointer.
> It should be fixed for all windows builds to be compatible with UNICODE
> WIN API. In WinCE only UNICODE API exists.
> Here is modified version which should work with all windows version.
> It needs current SVN code.
>
> #include <windows.h>
> #include <mmsystem.h>
> #include "hbapistr.h"
> #include "hbset.h"
>
> #ifdef UNICODE
> #define HB_PARSTR( n, s, l ) \
> hb_parstr_u16( n, HB_CDP_ENDIAN_NATIVE, s, l )
> #else
> #define HB_PARSTR( n, s, l ) hb_parstr( n, hb_setGetOSCP(), s, l )
> #endif
>
> HB_FUNC( PLAYSOUND )
> {
> LPCTSTR lpStr;
> void * hStr;
>
> hStr = HB_PARSTR( 1, &lpStr, NULL );
> hb_retl( hStr && PlaySound( lpStr, NULL, SND_ASYNC | SND_FILENAME )
> );
> hb_strfree( hStr );
> }
>
> I haven't tested it. Just written.
>
> best regards,
> Przemek
> _______________________________________________
> Harbour mailing list (attachment size limit: 40KB)
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
>
>
--
View this message in context:
http://n2.nabble.com/Wince-Tone-or-PlaySound-tp4072493p4508100.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
