Clarion in general: Play mp3 files or any other media files using an OLE control 2002-08-12 -- Jim Kane Newsgroups: softvelocity.products.c55ee
> I need to play an mp3 file from my app
> Any help where to begin with this ?
This code will cause windows media player to play anything you want. Of
course, the user must have windows media player installed.
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)
Printed May 4, 2024, 8:38 pm This article has been viewed/printed 35118 times. Google search has resulted in 83 hits on this article since January 25, 2004. |