le code :
Code : Tout sélectionner
#FILE = 0
Global theFile.s
Global sizeXM.l
Global playing.s
theFile = OpenFileRequester("Open XM file", "", "XM Files (*.xm)|*.xm", 0)
playing = "Playing : "+GetFilePart(theFile)+" !"
Debug playing ;ca marche
sizeXM = FileSize(theFile)
OpenFile(#FILE,theFile)
*buffer = AllocateMemory(sizeXM)
ReadData(#FILE, @buffer, sizeXM)
CloseFile(#FILE)
MessageRequester(".:PureBasic:.",playing,#PB_MessageRequester_Ok)
FreeMemory(*buffer)
End