I add a new Com object from msdxm.ocx (Media Player) in my project and the following code works fine until the last line "play". I'm not sure if my approach is correct (?) :
Code: Select all
clauses
onFileNew(_Source, _MenuTag):-
mainexe::getFileName(Root,_),
Nom = "son.WMA",
Fic = fileName::setPath(Nom,Root),
if file::existFile(Fic) then
MP = mediaPlayer::new(),
MP:aboutBox(),
Ready = MP:get_ReadyState(),
stdio::write(Ready),stdio::nl,
MP:predicate_Open(Nom),
Ready3 = MP:get_ReadyState(),
stdio::write(Ready3),stdio::nl,
MP:set_CurrentPosition(5),
Pos = MP:get_CurrentPosition(),
stdio::write(Pos),stdio::nl,
MP:set_DisplayMode(mmm_typeRepository_MediaPlayer::mpTime),
MP:set_ShowDisplay(true),
F2 = MP:get_FileName(),
stdio::write(F2),stdio::nl,
ClickToPlay = MP:get_ClickToPlay(),
stdio::write(ClickToPlay),stdio::nl,
AutoStart = MP:get_AutoStart(),
stdio::write(AutoStart),stdio::nl,
MP:play() % !!! not ok
end if,
!.
Any========================================
Dump: 2013/09/20 19:17:14
----------------------------------------
Exception: unknownException (com/visual-prolog/com/exceptionHandling/exceptionHandling_exception)
Unknown exception
HRESULT code = 2148139013
HRESULT hex code = 800A0005
hresultDescription = Unknown exception
Predicate name = play
raised() 2013/09/20 19:17:08
ThreadId=228
ClassInfo: iMediaPlayer_import
