` Printed Icetips Article

Icetips Article

Windows API: Playing videos on Clarion windows
2002-08-25 -- Jim Kane
 
Newsgroups: TopSpeed.Topic.Third_Party


this code plays an avi from the command line on a cw window and could be
easily integrated.
for other stuff, if you can require your users to have window media player
you can make an instance of it on your window and play just about anything.

this code does that.
  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'}='"C:\Documents and Settings\JimKane\My Documents\My
Music\GLJ-Gorgeous.mp3"'
      ?OLE{'AUTOSIZE'}=1
      ?OLE{'AUTOSTART'}=0
      ?OLE{'AUTOREWIND'}=1
      ?OLE{'CLIPCONTROLS'}=1
      ?OLE{'SHOWCONTROLS'}=1
      ?ole{'PLAY()'}
    end
  end
  close(window)

"James Fortune"  wrote in message
news:99thmu4606jnkuif19bbi2v10b5gdra1gs@4ax.com...
> Currently I can play any video in its default player using
> ShellExecute() but I want to be able to show videos on a window or
> form.
>
> Ideally, *.AVI and *.MPG but QuickTime and Real ones would be good
> too.
>
> Any ideas how I would achieve this?  Are there templates available?
>
> Kindest regards
> James
>
> James Fortune
> Certified Clarion Developer
> james@jfaworld.com
>
> Web site: http://www.jfaworld.com

Printed May 11, 2024, 1:14 pm
This article has been viewed/printed 35127 times.
Google search has resulted in 48 hits on this article since January 25, 2004.