PureBasic Forums - English

Code: Select all

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

Define Itag_buff.s =Space(1024)

Define filename.s = "NASA.avi"
;Filename.s = 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
   Else
      Debug "Suxes:  This is an AVI file!"
   EndIf
   
   ; find in 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!"
   Else
      Debug "Suxes:  Found the LIST named INFO"
   EndIf
   
   Debug info_lpck\ckid
   Debug PeekS(@info_lpck\ckid,4)

   Debug info_lpck\cksize

   Debug info_lpck\fccType
   Debug PeekS(@info_lpck\fccType,4)

   Debug info_lpck\dwDataOffset
   Debug info_lpck\dwFlags
   
  
   ; find the existing chunk(tag) "INAM"
   Itag_lpck\ckid   = mmioStringToFOURCC_("INAM",MMIO_TOUPPER)
      
   Result = mmioDescend_(HMMIO,Itag_lpck,info_lpck,#MMIO_FINDCHUNK)
   
   If Result <> #MMSYSERR_NOERROR     
      Debug "Error:  Couldn't get the CHUNK named INAM !"
   Else
      Debug "Suxes:  Found the CHUNK named INAM"
   EndIf  
   
   Debug Itag_lpck\ckid
   Debug PeekS(@Itag_lpck\ckid,4)

   Debug Itag_lpck\cksize

   Debug Itag_lpck\fccType
   Debug PeekS(@Itag_lpck\fccType,4)

   Debug Itag_lpck\dwDataOffset
   Debug Itag_lpck\dwFlags 
   
  Debug "--read the value of INAM-------------------------"
  result = mmioRead_(HMMIO,Itag_buff,Itag_lpck\ckSize)
  Debug result 
  Debug Itag_buff
   
  mmioClose_(HMMIO,0)
   
EndIf

Code: Select all

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

Define Itag_buff.s =Space(1024)
Define write_buf.s =Space(1024)

Define filename.s = "NASA.avi"
;Filename.s = 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
   Else
      Debug "Suxes:  This is an AVI file!"
   EndIf
   
   ; find in 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!"
   Else
      Debug "Suxes:  Found the LIST named INFO"
   EndIf
   
   Debug info_lpck\ckid
   Debug PeekS(@info_lpck\ckid,4)

   Debug info_lpck\cksize

   Debug info_lpck\fccType
   Debug PeekS(@info_lpck\fccType,4)

   Debug info_lpck\dwDataOffset
   Debug info_lpck\dwFlags
   
  
   ; find the existing chunk(tag) "INAM"
   Itag_lpck\ckid   = mmioStringToFOURCC_("INAM",MMIO_TOUPPER)
      
   Result = mmioDescend_(HMMIO,Itag_lpck,info_lpck,#MMIO_FINDCHUNK)
   
   If Result <> #MMSYSERR_NOERROR     
      Debug "Error:  Couldn't get the CHUNK named INAM !"
   Else
      Debug "Suxes:  Found the CHUNK named INAM"
   EndIf  
   
   Debug Itag_lpck\ckid
   Debug PeekS(@Itag_lpck\ckid,4)

   Debug Itag_lpck\cksize

   Debug Itag_lpck\fccType
   Debug PeekS(@Itag_lpck\fccType,4)

   Debug Itag_lpck\dwDataOffset
   Debug Itag_lpck\dwFlags 
   
  Debug "---------Try to change the contentes of INAM--------------"
  
  write_buf = "changed by me"
  
  wr_result = mmioWrite_(HMMIO,*write_buff,Len(write_buf))
  Debug wr_result
  
  
  Itag_lpck\dwFlags = #MMIO_DIRTY
  asc_result = mmioAscend_(HMMIO,Itag_lpck,0)
  
  If asc_result = MMIOERR_CANNOTSEEK
    Debug "MMIOERR_CANNOTSEEK:     There was an error while seekingto the end of the Chunk"
  ElseIf asc_result = MMIOERR_CANNOTWRITE
    Debug "MMIOERR_CANNOTWRITE:    The contents of the buffer could not be written to disk"
  Else
    Debug "unknown errorcode"
  EndIf
  
   
  mmioClose_(HMMIO,0)
   
EndIf