#include <stdlib.h>
#include <stdio.h>
#include <dir.h>
#include <string.h>
#include <conio.h>
#include <io.h>
#include <windows.h>
// While MCI can play video files as well as sound files,
// this program confines itself primarily to sound files.
// This program will run videos, but I make no effort to manage them
// CD tracks (.cda) can also be played, but like videos, require
// more management than I wanted to build into this demonstrator
int main(int argc, char *argv[])
{
int i,j,k;
char filename[MAXDIR]=""; // Name of file to play
char data[1025];
int dsz=sizeof(data)-1;
char mcidata[129]; // Data is returned by some MCI requests
int  mcidatalen=sizeof(mcidata)-1;
char mcimsg[129];  // Message returned by mciGetErrorString
int  mcimsglen=sizeof(mcidata)-1;
char mcicmd[129];
int rc;
char playtime[32];
int seconds,played,remaining;
int x,y;
char ext[MAXEXT],fname[MAXFILE];
char types[128]=".wav .mid .wma .mp3 .cda .wmv"; // .wmv was an afterthought

int done;
struct ffblk file;
char srch[MAXDIR];
int att=FA_NORMAL;

char millisecs[5];
int min,sec;
char minc[4]="000",secc[4]="000";
int filesfound=0;
int remainingsecs;
int sleeptime;

argc--;
if (argc == 0)
   {
   printf("Enter the name of a .mp3, .wma, .mid, .wav, .cda or .wmv file to play\n");
   return 1;
   }

// Get file name. Allow for long file names.
for (i=1; i<argc; i++)
   {
   strcat(filename,argv[i]);
   strcat(filename," ");
   }
strcat(filename,argv[i]);

// Check to see if a file extension has been included
fnsplit(filename,NULL,NULL,NULL,ext);
// No ext. Try to find a matching file name in current/supplied directory
// If more than 1 found, call it "Abiguous"
if (strlen(ext) == 0)
   {
   sprintf(srch,"%s.*",filename);
   for (done=findfirst(srch,&file,att); done==0; done=findnext(&file))
      {
      fnsplit(file.ff_name,NULL,NULL,fname,ext);
      strlwr(file.ff_name); // Shift lower to match "types" case (strstr)
      if (stricmp(fname,mcidata) == 0 && strstr(types,ext) > 0)
         filesfound++;
      }
   if (filesfound > 0)
      {
      printf("%d matching file names found with different types\n",filesfound);
      printf("Please supply a file type as well to rectify the ambiguity\n");
      return 1;
      }
   strcat(filename,ext);
   }
// Does specified file exist?
if (access(filename,0) != 0)
   {
   printf("File '%s' not found. Check spelling and retry.\n",filename);
   return 1;
   }

clrscr();
printf("Playing file: %s\n",filename);
// Put quotes around the file name if it contains blanks
if (strstr(filename," ") > 0)    
   {
   strcpy(data,"\"");
   strcat(data,filename);
   strcat(data,"\"");
   strcpy(filename,data);
   }


// Issue open. Set alias to MEDIAFILE (alias name is completely arbitrary)
// MCI ignores caps ... I use them here to make the file alias stand out
sprintf(mcicmd,"open %s alias MEDIAFILE",filename);
rc = mciSendString(mcicmd,mcidata,mcidatalen,NULL);
if (rc != 0)
   {
   mciGetErrorString(rc,mcimsg,mcimsglen);
   printf("MCI Error: %s\n",mcimsg);
   return rc;
   }

mciSendString("status MEDIAFILE time format",mcidata,mcidatalen,NULL);
//printf("Time format: %s\n",mcidata);
if (stricmp(mcidata,"song pointer") == 0) // Returned by .mid files
   {
//   printf("     Converting time format to milliseconds\n");
   rc = mciSendString("set MEDIAFILE time format ms",mcidata,mcidatalen,NULL);
   if (rc != 0)
      {
      mciGetErrorString(rc,mcimsg,mcimsglen);
      printf("MCI Error: %s\n",mcimsg);
      return rc;
      }
   }

mciSendString("status MEDIAFILE length",mcidata,mcidatalen,NULL);
strcpy(playtime,mcidata); // could have used playtime in above call ...
// time format is SSSmmm (seconds, milliseconds);
// 0 Pad play time to fixed length of 6
strrev(playtime);
while(strlen(playtime) < 6)
   strcat(playtime,"0");
strrev(playtime);
strncpy(minc,playtime,3);
sec = atoi(minc);
i = sec; // save full value for play time display
strcpy(millisecs,playtime+3);
if (strcmp(millisecs,"499") > 0)
   sec++;
min = sec/60;
sec = sec%60;
printf("\nPlay time: %d.%s seconds (%d:%02d)\n",i,millisecs,min,sec);
printf("\n<Press any key to terminate play>\n");

seconds = atoi(playtime);
// mciSendString("setaudio MEDIAFILE volume to nnn",mcidata,mcidatalen,NULL)
// 0 <= nnn <= 1000. Does not work for all types. (good for mp3s & cds for sure)
// for some file types right/left volume can be set independently
// setaudio MEDIAFILE left/right volume to nnn

rc = mciSendString("play MEDIAFILE",NULL,0,NULL);
if (rc != 0)
   {
   mciGetErrorString(rc,data,mcidatalen);
   printf("MCI Error: %s\n",data);
   return rc;
   }

printf("\nRemaining: ");
y = wherey();
x = wherex();

// Run a wait for key press/sleep loop while song plays asynchronously
// Abort play on key press.
while(!kbhit())
   {
   // Get current SSSmmm position in the file
   mciSendString("status MEDIAFILE position",mcidata,mcidatalen,NULL);
   played = atoi(mcidata);
   // We have reached the end of the file ... close communication & exit
   if (played == seconds)
      {
      gotoxy(x,y);
      clreol();
      printf("0\n");
      // Play has stopped on its own ... the stop is not technically required
      mciSendString("stop MEDIAFILE",NULL,0,NULL);
      mciSendString("close MEDIAFILE",NULL,0,NULL);
      return 0;
      }
   remaining = seconds-played;
   remainingsecs = remaining/1000; // take just secs, ignore rounding up
   if (stricmp(ext,".wav") == 0) // wavs are short ... fast refresh
      {
      // Show remaining time as SSS.mmm
      sprintf(data,"%d",remaining);
      strrev(data);
      while(strlen(data) < 6)
         strcat(data,"0");
      strrev(data);
      strncpy(minc,data,3); // "Borrow" minc/secc fields
      strncpy(secc,data+3,3);
      gotoxy(x,y);
      clreol();
      sprintf(data,"%d.%d",atoi(minc),atoi(secc));
      sleeptime = 100; // Refresh every 1/10th second for wavs
      }
   else
      {
      // Show time remaining as MM:SS
      min = remainingsecs/60;
      sec = remainingsecs%60;
      sprintf(data,"%d:%02d",min,sec);
      sleeptime = 1000; // Refresh every 1 second for other file types
      }
   gotoxy(x,y);
   clreol();
   printf("%s\n",data);
   Sleep(sleeptime);
   }
// Play interrupted by keyboard activity.
// Let's get rid of key pressed
if (k=getch() == 0) // handle normal + extended key interrupts
   getch();
gotoxy(x,y);
clreol();
printf("0\n");
printf("\n<Play terminated due to keyboard interruption>\n");
// Stop play before closing communication
// If stop is not issued for a playing CD before close, CD continues to play
// For wav,mid & mp3 files, stop seems to be auto issued if close issued.
mciSendString("stop MEDIAFILE",NULL,0,NULL);
mciSendString("close MEDIAFILE",NULL,0,NULL);
return 0;
}
// Points of interest on CDs
// To open a CD drive rather than specific tracks .... 2 methods
// open cdaudio alias CD         (gets first or only drive)
// open X: type cdaudio alias CD (open a specific drive. X = a drive letter)
// To seek tracks on a CD, time format must be set to tmsf. dflt=msf.
// set CD time format tmsf
// seek CD to 7
// play CD
// status CD number of tracks - value returned in mcidata (using my var name)
// status CD current track    - ditto.
// See MCI documentation for more details