PureBoard

Code: Alles auswählen

video.s = "test.avi"

Prototype pMediaInfo_New()
Prototype pMediaInfo_Delete(handle)
Prototype pMediaInfoA_Inform(Handle,options)
Prototype pMediaInfoA_Open(handle,file.s)
Prototype pMediaInfoA_Option(handle,option.s,value.s)
Prototype pMediaInfoA_Get(Handle,StreamKind,StreamNumber,Parameter.s,InfoKind,SearchKind)

hModule = LoadLibraryM(?Label_MediaInfo_DLL)

If hModule
  MediaInfo_New.pMediaInfo_New        = GetProcAddressM(hModule, "MediaInfo_New")
  MediaInfo_Delete.pMediaInfo_Delete  = GetProcAddressM(hModule, "MediaInfo_Delete")
  MediaInfoA_Inform.pMediaInfoA_Inform= GetProcAddressM(hmodule, "MediaInfoA_Inform")
  MediainfoA_Open.pMediaInfoA_Open    = GetProcAddressM(hModule, "MediaInfoA_Open")
  MediaInfoA_Option.pMediaInfoA_Option= GetProcAddressM(hModule, "MediaInfoA_Option")
  MediaInfoA_Get.pMediaInfoA_Get      = GetProcAddressM(hModule, "MediaInfoA_Get")

  handle = MediaInfo_New()

  If Handle
    MediaInfoA_Open(Handle,video)         
    
    info_ptr = MediaInfoA_Get(Handle,2, 0, "Codec/String", 1, 0) 
    MessageRequester ("", PeekS(info_ptr))
    Debug PeekS(info_ptr)
    
    info_ptr =  MediaInfoA_Inform(Handle,Options)
    MessageRequester ("", PeekS(info_ptr))
    Debug PeekS(info_ptr)
    
    info_ptr = MediaInfoA_Option(Handle, "Info_Parameters", "")
    MessageRequester ("", PeekS(info_ptr))
    Debug PeekS(info_ptr)
  
    MediaInfo_Delete(Handle)
  EndIf

  FreeLibraryM(hModule) 
EndIf

End

DataSection
  Label_MediaInfo_DLL:
  IncludeBinary "MediaInfo0772.dll" hier verschiedene Versionen testen ;)
EndDataSection