play mp3 file

This is what i do :
—–

After global includes:
Include('Winequ.clw')

In Global Map:
Module('Window's API')

MciGetErrorString(ULONG,*CSTRING,USHORT),SHORT,PASCAL,RAW,PROC,NAME('MciGetErrorStringA')

MciSendString(*CSTRING,*CSTRING,USHORT,USHORT),ULONG,PASCAL,RAW,PROC,NAME('MciSendStringA')
End

In Global Datas :
MciChaineRequise   Cstring(128)
MciValeurRetourne  Cstring(128)
MciNumeroErreur    Long
MciChaineErreur    Cstring(128)
FichierJoue        String(255)

Embed Accepted 'Play':
FichierJoue = 'C:\TestMp3\MyFile.Mp3'
MciChaineRequise = 'open mpegvideo!' & Clip(FichierJoue) &' alias Mp3' ; Do JouerMci
MciChaineRequise = 'play Mp3' ; Do JouerMci

Embed Accepted 'Stop' :
MciChaineRequise = 'stop Mp3'  ; Do JouerMci
MciChaineRequise = 'close Mp3' ; Do JouerMci

Procedure Routine:
JouerMci Routine
  Clear(MciValeurRetourne)
  Clear(MciNumeroErreur)
  Clear(MciChaineErreur)
  MciSendString(MciChaineRequise,MciValeurRetourne,128,0)
  MciGetErrorString(MciNumeroErreur,MciChaineErreur,128)

—-
For info, use this before play another file :
MciChaineRequise = ‘status Mp3 mode’ ; Do JouerMci

HTH. Eric

Schreibe einen Kommentar