Team DEV → .XM player in Delphi

29 May 2009, 10:52

I am currently working on a Xm file player in Delphi.
I am thinking wheather it is possible to play a XM file without extracting its Hex for a particular language(say, Delphi or C++).

The player should be able to play a XM file when I select it by browsing it & then click on the play button.

I think there should be a way to do it, may be I am not good enough for it.

Well, I any 1 know abt this , please post it here.

Thanks to all.

Rating 1 Comments 6

Deleted comment

ThunderDownUnder 29 May 2009, 11:05 #

MySelf said:Thankyou very much.
I am downloading it now.
Lets see , If I can get the head or tail of this.

Well, thi stut shows , How I add a background music to a delphi APP.

But I want to make a player for XM file type,.

The form will contain the following.
Three buttons.(Play,pause,Stop);
A edit1.text & a browse button & opendialog.

I now need to play XM files.
How do I do that ?

JM-DG 29 May 2009, 23:25 #

Well I'll suggest you to read ufMod.pas. It explains how to use the librairy.
Those are the main procedures you will like.
function uFMOD_PlaySong(lpXM: Pointer; param, fdwSong: LongWord): PHWAVEOUT;
procedure uFMOD_Pause; external;
procedure uFMOD_Resume; external;
function uFMOD_GetTime:LongWord;
function uFMOD_GetTitle:PChar;
procedure uFMOD_SetVolume(vol: LongWord
function CreateFileA(lpFileName:PChar;dwDesiredAccess,dwShareMode:LongInt;lpSecurityAttributes:Pointer;dwCreationDistribution,dwFlagsAndAttributes,hTemplateFile:LongInt):LongInt; stdcall; external 'kernel32.dll';
procedure uFMOD_StopSong;

ThunderDownUnder 30 May 2009, 07:25 #

Thanks JM-DJ.
But where will I get that ufMod.pas

Is there any .txt file which contains all the doc of ufMod.
If you have any , please give me.

JM-DG 30 May 2009, 13:24 #

There'll be the info you want.
This is ufmod for delphi.

http://www.mediafire.com/download.php?tzmmnzmw4ze

ThunderDownUnder 30 May 2009, 16:08 #

Thankyou very much Sir for your help.

You have to login or register to post comments.

ThunderDownUnder

10 ♠ 26 ♣

Team DEV

Tweet: