Media Player

[Гость]

Коллеги,
Не поделится ли кто-либо работающим примерчиком использования Медиа-плейера в Кларионовском приложении? Или чего-то подобного.
Есть потребность проигрывать аудио-файлы.
Но все, что мне удалось найти - это "слепое" проигрывание - без возможности его остановить и отслеживать прогресс.

Игорь Смирнов.
Написал: ClaList(2)

[Гость]

а CD player из Examples не помог?

--
Best regards,
Владимир mailto:ut5jbh@ua.fm
Написал: ClaList(2)

[Гость]

Я тут нашел более изящное решение:
http://www.icetips.com/showarticle.php?articleid=320
Вот, собственно, код из этого источника:

Код: Выделить всё

  program
  map
  end
Window WINDOW('WMP'),AT(,,260,142),SYSTEM,GRAY,DOUBLE
       OLE,AT(42,14,104,74),USE(?Ole)
       END
     END
  code
  open(window)
  display()
  accept
    case event()
    of event:openwindow
      ?ole{prop:create}='MediaPlayer.MediaPlayer.1'
      ?ole{'FILENAME'}='"D:\CLARION5\APPS\MCI\UGACHAKA.AVI"'
      ?OLE{'AUTOSIZE'}=1
      ?OLE{'AUTOSTART'}=0
      ?OLE{'AUTOREWIND'}=1
      ?OLE{'CLIPCONTROLS'}=1
      ?OLE{'SHOWCONTROLS'}=1
      ?ole{'PLAY()'}
    end
  end
  close(window)

Igor Smirnov
Написал: ClaList(2)