Powerful media player, video player activex ocx.
Support AMR,Mov, M4a, Mp4, 3gp, Avi, Wmv (window media video), asf, RM (need rm decoder), MPEG-1, MPEG-2 (need decoder), ASF, WAV, MP3, MID File formats.
Bulit in mov,mp4,3gp decoder (Do not need download third party codec pack, some third party codec pack is illegal) .
Video Color Adjustment, contrast, brightness, invert color, saturate, hue, lightness.
WMV, ASF, WMA support change playback rate.
Overlay text and bitmap on video in same time.
Multi-Line Scrolling text on video.
Video Mixing, you can mixing multiple video and playback in same time. User define alpha channel, the area of video layer.
Allow change the audio pitch to male, female, child voices. Useful for karaoke software.
Allow change the audio tempo to speed up or slow down the song.
Overlay text on video. User define scrolling type, alpha value, font size, font name, text color, background color, transparent color.
Overlay image on video. User define scrolling type, alpha value, transparent color.
Audio channel selection.( both, left, right channel).
Custom define cursor on video.
Custom Playback rate. normal playback speed, half speed, twice speed, etc.
Custom View, Full Screen, Double Size.
Fully Control Sound Volume.
Fast Snapshot to BMP, JPG, GIF, TIF, PNG from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Snapshot to memory( Picture Box, HBITMAP handle ) from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Adjust MPEG1 Audio Channel.
Aspect Ratio Control.
Playback events.
Video/Audio file information.(duration, video height,video width)
User Define Display area.
Include VB.Net, Visual Basic, Visual C++, Visual Foxpro, Delphi, Web Page Sample Code.
Compatible with any programming language that supports ActiveX (Access, Visual C++ , Visual Basic , Visual Foxpro, Delphi, .Net, etc.)
Royalty free distribution of the OCX file.

Answered by Raksha , an ibibo Master, at 9:18 AM on June 25, 2008

well Yudi, Powerful media player, video player activex ocx.
Support AMR,Mov, M4a, Mp4, 3gp, Avi, Wmv (window media video), asf, RM (need rm decoder), MPEG-1, MPEG-2 (need decoder), ASF, WAV, MP3, MID File formats.
Bulit in mov,mp4,3gp decoder (Do not need download third party codec pack, some third party codec pack is illegal) .
Video Color Adjustment, contrast, brightness, invert color, saturate, hue, lightness.
WMV, ASF, WMA support change playback rate.
Overlay text and bitmap on video in same time.
Multi-Line Scrolling text on video.
Video Mixing, you can mixing multiple video and playback in same time. User define alpha channel, the area of video layer.
Allow change the audio pitch to male, female, child voices. Useful for karaoke software.
Allow change the audio tempo to speed up or slow down the song.
Overlay text on video. User define scrolling type, alpha value, font size, font name, text color, background color, transparent color.
Overlay image on video. User define scrolling type, alpha value, transparent color.
Audio channel selection.( both, left, right channel).
Custom define cursor on video.
Custom Playback rate. normal playback speed, half speed, twice speed, etc.
Custom View, Full Screen, Double Size.
Fully Control Sound Volume.
Fast Snapshot to BMP, JPG, GIF, TIF, PNG from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Snapshot to memory( Picture Box, HBITMAP handle ) from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Adjust MPEG1 Audio Channel.
Aspect Ratio Control.
Playback events.
Video/Audio file information.(duration, video height,video width)
User Define Display area.
Include VB.Net, Visual Basic, Visual C++, Visual Foxpro, Delphi, Web Page Sample Code.
Compatible with any programming language that supports ActiveX (Access, Visual C++ , Visual Basic , Visual Foxpro, Delphi, .Net, etc.)
Royalty free distribution of the OCX file.

Answered by Romi , an ibibo Master, at 4:26 PM on June 18, 2008

Hi,

You can use this class to declare an instance and set the filename. Then you can play, stop and pause the any Media file. Hope it helps!

Option Explicit
'API declares
Private Declare Function mciGetErrorString Lib "WINMM.DLL" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Private Declare Function mciSendString Lib "WINMM.DLL" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long

'Current State Enumeration
Private Enum enumState
Stopped = 0
Playing = 1
Paused = 2
End Enum

'Our class variables
Private strAlias As String
Private strFilename As String
Private lngLastTick, lngElapsedTime, lngLastPosition As Long
Private stState As enumState

'This function send the message out to the API.

Private Function DoCmd(ByVal cCmd As String, Optional ByRef ReturnString As String = 0, Optional ByVal ReturnStringLength As Long = 0) As String
On Error GoTo ErrHap

Dim retString As String
Dim ret As String * 128

'Send message
retString = mciSendString(cCmd, ReturnString, ReturnStringLength, 0)

If retString <> 0 Then
mciGetErrorString retString, ret, 128
DoCmd = Right$(ret, Len(ret) - InStr(1, ret, "263") - 2)
Debug.Print "MCI Error: " & DoCmd
End If

Exit Function
ErrHap:
Debug.Print "DoCmd: "; Err.Description
End Function

Private Sub Class_Initialize()
'Initialize the MCI
Debug.Print "*** Created by Smile005 ***"
Debug.Print "*** Using MCI ***"
Debug.Print "*** Copyright © 2003 ***"

strAlias = "MMedia"

DoCmd "CLOSE ALL"
End Sub

Public Sub Play()
'Send play message if not playing
If Not stState = Playing And strFilename <> "" Then
DoCmd "PLAY " & strAlias
stState = Playing
End If
End Sub

Public Sub StopPlay()
'Send stop message if not already stopped
If Not stState = Stopped And strFilename <> "" Then
DoCmd "STOP " & strAlias
Position = 0
stState = Stopped
End If
End Sub

Public Sub Pause()
'Check current state
If stState = Paused And strFilename <> "" Then
DoCmd "PLAY " & strAlias
stState = Playing
ElseIf strFilename <> "" Then
DoCmd "PAUSE " & strAlias
stState = Paused
End If
End Sub

Public Property Get Position() As Long
'Check what state
If Not stState = Stopped And strFilename <> "" Then

'Check if 2 seconds have passed since we last checked
If lngLastTick < GetTickCount - 3000 Or lngLastTick = 0 Then

'Set last tick
lngLastTick = GetTickCount

Dim RetPos As String * 30

DoCmd "STATUS " & strAlias & " POSITION", RetPos, Len(RetPos)
lngLastPosition = CLng(Mid$(RetPos, 1, Len(RetPos)) / 1000)
Position = lngLastPosition

Else
'Return last position and elapsed time
Position = lngLastPosition + ((GetTickCount - lngLastTick) / 1000)
End If

End If
End Property

Public Property Let Position(ByVal lngNewValue As Long)
'Check if we've opened a file
If strFilename <> "" And strFilename

Answered by Ajay Pal , an ibibo Master, at 5:15 PM on June 02, 2008

Powerful media player, video player activex ocx.
Support AMR,Mov, M4a, Mp4, 3gp, Avi, Wmv (window media video), asf, RM (need rm decoder), MPEG-1, MPEG-2 (need decoder), ASF, WAV, MP3, MID File formats.
Bulit in mov,mp4,3gp decoder (Do not need download third party codec pack, some third party codec pack is illegal) .
Video Color Adjustment, contrast, brightness, invert color, saturate, hue, lightness.
WMV, ASF, WMA support change playback rate.
Overlay text and bitmap on video in same time.
Multi-Line Scrolling text on video.
Video Mixing, you can mixing multiple video and playback in same time. User define alpha channel, the area of video layer.
Allow change the audio pitch to male, female, child voices. Useful for karaoke software.
Allow change the audio tempo to speed up or slow down the song.
Overlay text on video. User define scrolling type, alpha value, font size, font name, text color, background color, transparent color.
Overlay image on video. User define scrolling type, alpha value, transparent color.
Audio channel selection.( both, left, right channel).
Custom define cursor on video.
Custom Playback rate. normal playback speed, half speed, twice speed, etc.
Custom View, Full Screen, Double Size.
Fully Control Sound Volume.
Fast Snapshot to BMP, JPG, GIF, TIF, PNG from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Snapshot to memory( Picture Box, HBITMAP handle ) from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Adjust MPEG1 Audio Channel.
Aspect Ratio Control.
Playback events.
Video/Audio file information.(duration, video height,video width)
User Define Display area.
Include VB.Net, Visual Basic, Visual C++, Visual Foxpro, Delphi, Web Page Sample Code.
Compatible with any programming language that supports ActiveX (Access, Visual C++ , Visual Basic , Visual Foxpro, Delphi, .Net, etc.)
Royalty free distribution of the OCX file.

Answered by Madhurima , an ibibo Master, at 2:00 PM on May 31, 2008

well;
Powerful media player, video player activex ocx.
Support AMR,Mov, M4a, Mp4, 3gp, Avi, Wmv (window media video), asf, RM (need rm decoder), MPEG-1, MPEG-2 (need decoder), ASF, WAV, MP3, MID File formats.
Bulit in mov,mp4,3gp decoder (Do not need download third party codec pack, some third party codec pack is illegal) .
Video Color Adjustment, contrast, brightness, invert color, saturate, hue, lightness.
WMV, ASF, WMA support change playback rate.
Overlay text and bitmap on video in same time.
Multi-Line Scrolling text on video.
Video Mixing, you can mixing multiple video and playback in same time. User define alpha channel, the area of video layer.
Allow change the audio pitch to male, female, child voices. Useful for karaoke software.
Allow change the audio tempo to speed up or slow down the song.
Overlay text on video. User define scrolling type, alpha value, font size, font name, text color, background color, transparent color.
Overlay image on video. User define scrolling type, alpha value, transparent color.
Audio channel selection.( both, left, right channel).
Custom define cursor on video.
Custom Playback rate. normal playback speed, half speed, twice speed, etc.
Custom View, Full Screen, Double Size.
Fully Control Sound Volume.
Fast Snapshot to BMP, JPG, GIF, TIF, PNG from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Snapshot to memory( Picture Box, HBITMAP handle ) from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Adjust MPEG1 Audio Channel.
Aspect Ratio Control.
Playback events.
Video/Audio file information.(duration, video height,video width)
User Define Display area.
Include VB.Net, Visual Basic, Visual C++, Visual Foxpro, Delphi, Web Page Sample Code.
Compatible with any programming language that supports ActiveX (Access, Visual C++ , Visual Basic , Visual Foxpro, Delphi, .Net, etc.)
Royalty free distribution of the OCX file.

Answered by Arti singh , an ibibo Specialist, at 1:08 PM on May 29, 2008

You can use this class to declare an instance and set the filename. Then you can play, stop and pause the any Media file. Hope it helps!

Option Explicit
'API declares
Private Declare Function mciGetErrorString Lib "WINMM.DLL" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Private Declare Function mciSendString Lib "WINMM.DLL" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long

'Current State Enumeration
Private Enum enumState
Stopped = 0
Playing = 1
Paused = 2
End Enum

'Our class variables
Private strAlias As String
Private strFilename As String
Private lngLastTick, lngElapsedTime, lngLastPosition As Long
Private stState As enumState

'This function send the message out to the API.

Private Function DoCmd(ByVal cCmd As String, Optional ByRef ReturnString As String = 0, Optional ByVal ReturnStringLength As Long = 0) As String
On Error GoTo ErrHap

Dim retString As String
Dim ret As String * 128

'Send message
retString = mciSendString(cCmd, ReturnString, ReturnStringLength, 0)

If retString <> 0 Then
mciGetErrorString retString, ret, 128
DoCmd = Right$(ret, Len(ret) - InStr(1, ret, "263") - 2)
Debug.Print "MCI Error: " & DoCmd
End If

Exit Function
ErrHap:
Debug.Print "DoCmd: "; Err.Description
End Function

Private Sub Class_Initialize()
'Initialize the MCI
Debug.Print "*** Created by Smile005 ***"
Debug.Print "*** Using MCI ***"
Debug.Print "*** Copyright © 2003 ***"

strAlias = "MMedia"

DoCmd "CLOSE ALL"
End Sub

Public Sub Play()
'Send play message if not playing
If Not stState = Playing And strFilename <> "" Then
DoCmd "PLAY " & strAlias
stState = Playing
End If
End Sub

Public Sub StopPlay()
'Send stop message if not already stopped
If Not stState = Stopped And strFilename <> "" Then
DoCmd "STOP " & strAlias
Position = 0
stState = Stopped
End If
End Sub

Public Sub Pause()
'Check current state
If stState = Paused And strFilename <> "" Then
DoCmd "PLAY " & strAlias
stState = Playing
ElseIf strFilename <> "" Then
DoCmd "PAUSE " & strAlias
stState = Paused
End If
End Sub

Public Property Get Position() As Long
'Check what state
If Not stState = Stopped And strFilename <> "" Then

'Check if 2 seconds have passed since we last checked
If lngLastTick < GetTickCount - 3000 Or lngLastTick = 0 Then

'Set last tick
lngLastTick = GetTickCount

Dim RetPos As String * 30

DoCmd "STATUS " & strAlias & " POSITION", RetPos, Len(RetPos)
lngLastPosition = CLng(Mid$(RetPos, 1, Len(RetPos)) / 1000)
Position = lngLastPosition

Else
'Return last position and elapsed time
Position = lngLastPosition + ((GetTickCount - lngLastTick) / 1000)
End If

End If
End Property

Public Property Let Position(ByVal lngNewValue As Long)
'Check if we've opened a file
If strFilename <> "" And strFilename

Answered by Reeta K , an ibibo Master, at 12:02 PM on May 29, 2008

Powerful media player, video player activex ocx.
Support AMR,Mov, M4a, Mp4, 3gp, Avi, Wmv (window media video), asf, RM (need rm decoder), MPEG-1, MPEG-2 (need decoder), ASF, WAV, MP3, MID File formats.
Bulit in mov,mp4,3gp decoder (Do not need download third party codec pack, some third party codec pack is illegal) .
Video Color Adjustment, contrast, brightness, invert color, saturate, hue, lightness.
WMV, ASF, WMA support change playback rate.
Overlay text and bitmap on video in same time.
Multi-Line Scrolling text on video.
Video Mixing, you can mixing multiple video and playback in same time. User define alpha channel, the area of video layer.
Allow change the audio pitch to male, female, child voices. Useful for karaoke software.
Allow change the audio tempo to speed up or slow down the song.
Overlay text on video. User define scrolling type, alpha value, font size, font name, text color, background color, transparent color.
Overlay image on video. User define scrolling type, alpha value, transparent color.
Audio channel selection.( both, left, right channel).
Custom define cursor on video.
Custom Playback rate. normal playback speed, half speed, twice speed, etc.
Custom View, Full Screen, Double Size.
Fully Control Sound Volume.
Fast Snapshot to BMP, JPG, GIF, TIF, PNG from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Snapshot to memory( Picture Box, HBITMAP handle ) from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Adjust MPEG1 Audio Channel.
Aspect Ratio Control.
Playback events.
Video/Audio file information.(duration, video height,video width)
User Define Display area.
Include VB.Net, Visual Basic, Visual C++, Visual Foxpro, Delphi, Web Page Sample Code.
Compatible with any programming language that supports ActiveX (Access, Visual C++ , Visual Basic , Visual Foxpro, Delphi, .Net, etc.)
Royalty free distribution of the OCX file.

Answered by Shobhit , an ibibo Master, at 2:19 PM on May 28, 2008

well;
Powerful media player, video player activex ocx.
Support AMR,Mov, M4a, Mp4, 3gp, Avi, Wmv (window media video), asf, RM (need rm decoder), MPEG-1, MPEG-2 (need decoder), ASF, WAV, MP3, MID File formats.
Bulit in mov,mp4,3gp decoder (Do not need download third party codec pack, some third party codec pack is illegal) .
Video Color Adjustment, contrast, brightness, invert color, saturate, hue, lightness.
WMV, ASF, WMA support change playback rate.
Overlay text and bitmap on video in same time.
Multi-Line Scrolling text on video.
Video Mixing, you can mixing multiple video and playback in same time. User define alpha channel, the area of video layer.
Allow change the audio pitch to male, female, child voices. Useful for karaoke software.
Allow change the audio tempo to speed up or slow down the song.
Overlay text on video. User define scrolling type, alpha value, font size, font name, text color, background color, transparent color.
Overlay image on video. User define scrolling type, alpha value, transparent color.
Audio channel selection.( both, left, right channel).
Custom define cursor on video.
Custom Playback rate. normal playback speed, half speed, twice speed, etc.
Custom View, Full Screen, Double Size.
Fully Control Sound Volume.
Fast Snapshot to BMP, JPG, GIF, TIF, PNG from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Snapshot to memory( Picture Box, HBITMAP handle ) from movie files.(MOV, MP4, 3GP,DIVX, AVI, WMV, MPEG-1, MPEG-2, ASF).
Adjust MPEG1 Audio Channel.
Aspect Ratio Control.
Playback events.
Video/Audio file information.(duration, video height,video width)
User Define Display area.
Include VB.Net, Visual Basic, Visual C++, Visual Foxpro, Delphi, Web Page Sample Code.
Compatible with any programming language that supports ActiveX (Access, Visual C++ , Visual Basic , Visual Foxpro, Delphi, .Net, etc.)
Royalty free distribution of the OCX file.

Answered by kishore , an ibibo Master, at 7:14 AM on May 28, 2008

Hello Yudi,

You can use this class to declare an instance and set the filename. Then you can play, stop and pause the any Media file. Hope it helps!

Option Explicit
'API declares
Private Declare Function mciGetErrorString Lib "WINMM.DLL" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Private Declare Function mciSendString Lib "WINMM.DLL" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long

'Current State Enumeration
Private Enum enumState
Stopped = 0
Playing = 1
Paused = 2
End Enum

'Our class variables
Private strAlias As String
Private strFilename As String
Private lngLastTick, lngElapsedTime, lngLastPosition As Long
Private stState As enumState

'This function send the message out to the API.

Private Function DoCmd(ByVal cCmd As String, Optional ByRef ReturnString As String = 0, Optional ByVal ReturnStringLength As Long = 0) As String
On Error GoTo ErrHap

Dim retString As String
Dim ret As String * 128

'Send message
retString = mciSendString(cCmd, ReturnString, ReturnStringLength, 0)

If retString <> 0 Then
mciGetErrorString retString, ret, 128
DoCmd = Right$(ret, Len(ret) - InStr(1, ret, "263") - 2)
Debug.Print "MCI Error: " & DoCmd
End If

Exit Function
ErrHap:
Debug.Print "DoCmd: "; Err.Description
End Function

Private Sub Class_Initialize()
'Initialize the MCI
Debug.Print "*** Created by Smile005 ***"
Debug.Print "*** Using MCI ***"
Debug.Print "*** Copyright © 2003 ***"

strAlias = "MMedia"

DoCmd "CLOSE ALL"
End Sub

Public Sub Play()
'Send play message if not playing
If Not stState = Playing And strFilename <> "" Then
DoCmd "PLAY " & strAlias
stState = Playing
End If
End Sub

Public Sub StopPlay()
'Send stop message if not already stopped
If Not stState = Stopped And strFilename <> "" Then
DoCmd "STOP " & strAlias
Position = 0
stState = Stopped
End If
End Sub

Public Sub Pause()
'Check current state
If stState = Paused And strFilename <> "" Then
DoCmd "PLAY " & strAlias
stState = Playing
ElseIf strFilename <> "" Then
DoCmd "PAUSE " & strAlias
stState = Paused
End If
End Sub

Public Property Get Position() As Long
'Check what state
If Not stState = Stopped And strFilename <> "" Then

'Check if 2 seconds have passed since we last checked
If lngLastTick < GetTickCount - 3000 Or lngLastTick = 0 Then

'Set last tick
lngLastTick = GetTickCount

Dim RetPos As String * 30

DoCmd "STATUS " & strAlias & " POSITION", RetPos, Len(RetPos)
lngLastPosition = CLng(Mid$(RetPos, 1, Len(RetPos)) / 1000)
Position = lngLastPosition

Else
'Return last position and elapsed time
Position = lngLastPosition + ((GetTickCount - lngLastTick) / 1000)
End If

End If
End Property

Public Property Let Position(ByVal lngNewValue As Long)
'Check if we've opened a file
If strFilename <> "" And strFilename

Answered by Sachin Das , an ibibo Specialist, at 4:38 PM on May 27, 2008