PureBoard

Code: Alles auswählen

Define lpck.MMCKINFO, wfmt.WAVEFORMATEX

If InitSound() = 0
	MessageRequester("Error","DirectX 7 isn't available or no sound card present.",16) : End
EndIf

Filename$ = OpenFileRequester("","","WAVE Files (*.wav)|*.wav",0)

If Filename$
	HMMIO = mmioOpen_(Filename$,0,#MMIO_READ)
	
	; FILE FORMAT
	lpck\fccType = mmioStringToFOURCC_("WAVE",0)
	
	Result = mmioDescend_(HMMIO,lpck,0,#MMIO_FINDRIFF)
	
	If Result <> #MMSYSERR_NOERROR
		MessageRequester("Error","Not a wave file!",16) : End
	EndIf
	
	; READ FORMAT CHUNK
	lpck\ckid = mmioStringToFOURCC_("fmt",0)
	
	Result = mmioDescend_(HMMIO,lpck,lpck,#MMIO_FINDCHUNK)
	
	If Result <> #MMSYSERR_NOERROR      
		MessageRequester("Error","Couldn't get format chunk!",16) : End  	
	EndIf
	
	; READ COMPRESSION TYPE
	mmioRead_(HMMIO,wfmt,lpck\ckSize)
	
	If wfmt\wFormatTag ! #WAVE_FORMAT_PCM
		MessageRequester("Error","Compressed wave files aren't supported!",16) : End	
	EndIf
	
	; READ DATA CHUNK
	lpck\ckid = mmioStringToFOURCC_("data",0)
	
	Result = mmioDescend_(HMMIO,lpck,lpck,#MMIO_FINDCHUNK)    
	
	If Result <> #MMSYSERR_NOERROR
		MessageRequester("Error","Couldn't get data chunk!",16) : End	
	EndIf	
	
	; CALCULATE SOUND LENGTH
	Duration = lpck\ckSize / wfmt\nAvgBytesPerSec
	
	Hours = Duration / 3600
	Minutes = (Duration / 60) - (60 * Hours)
	Seconds = Duration - (60 * (Duration / 60))
	Millisecs = Int(lpck\ckSize / (wfmt\nAvgBytesPerSec / 1000))
	
	Hours$ = Str(Hours) : Minutes$ = Str(Minutes) : Seconds$ = Str(Seconds)
	
	If Seconds < 10 : Seconds$ = "0" + Seconds$ : EndIf
	If Minutes < 10 : Minutes$ = "0" + Minutes$ : EndIf
	If Hours   < 10 : Hours$   = "0" + Hours$   : EndIf
	
	Time$ = Hours$ + ":" + Minutes$ + ":" + Seconds$	
	
	mmioClose_(HMMIO,0)
	
	; DEBUG INFO
	Debug "Soundfile = " + Filename$
	Debug "Duration = " + Str(Millisecs) + " Ms"
	Debug "Time Format = " + Time$ + " (H:M:S)"
EndIf

Code: Alles auswählen

EnableExplicit

Define HMMIO.l
Define Result.l
Define raushier.l

Define main_lpck.MMCKINFO
Define info_lpck.MMCKINFO
Define Itag_lpck.MMCKINFO

Define Itag_buff.s =Space(1024)

Define filename.s

Filename = OpenFileRequester("","","AVI Files (*.avi)|*.avi",0)

If Filename
  HMMIO = mmioOpen_(Filename,0,#MMIO_READ)
   
  ; check FILE FORMAT
  main_lpck\fccType = mmioStringToFOURCC_("AVI ",#MMIO_TOUPPER)
   
  Result = mmioDescend_(HMMIO,main_lpck,0,#MMIO_FINDRIFF)
   
  If Result <> #MMSYSERR_NOERROR
    Debug "Error:  Not an AVI file!" : End
  EndIf
   
  ; find the LIST named INFO 
  info_lpck\fccType= mmioStringToFOURCC_("INFO",#MMIO_TOUPPER)  
  Result = mmioDescend_(HMMIO,info_lpck,0,#MMIO_FINDLIST)
   
  If Result <> #MMSYSERR_NOERROR     
    Debug "Error:  Couldn't get the LIST named INFO!" :End
  EndIf
   
  Debug "---here we start exploring RIFF-Tags and Extended Information Tags---" 

  ; find all existing tag-chunks
  raushier = #False
  Repeat 

    Itag_lpck\ckid        =0
    Itag_lpck\cksize      =0
    Itag_lpck\fccType     =0
    Itag_lpck\dwDataOffset=0
    Itag_lpck\dwFlags     =0

    result = mmioDescend_(HMMIO,Itag_lpck,info_lpck,#MMIO_FINDCHUNK)
   
    If (result <> #MMSYSERR_NOERROR) Or  Itag_lpck\ckid = mmioStringToFOURCC_("JUNK",#MMIO_TOUPPER)
      raushier = #True
    Else
      result = mmioRead_(HMMIO,Itag_buff,Itag_lpck\ckSize)
      Debug PeekS(@Itag_lpck\ckid,4) +":   "+Itag_buff
    EndIf
   
  Until raushier = #True
  Debug "---finished exploring RIFF-Tags and Extended Information Tags---" 
  mmioClose_(HMMIO,0)
   
EndIf