Ich hab mal wieder

Zum Testen der neuen Versionen benutze ich folgenden Code:
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
mit der 0773 ist FMPOV nur die 3. Ausgabe vollständig,
für die erste erhalte ich garnix,
die 2. ist unvollständig.
Kann mir einer der bisher hilfreichen Geister (z.B. edel, ts-soft) vielleicht erklären, worin das Problem liegt?
Ich hab in die Doku der DLL reingeguckt, aber nix gefunden, was das Problem verursachen könnte.
Irgendwie ists mir langsam peinlich
