Playin .AVI MPG etc - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

Playin .AVI MPG etc

anton19822anton19822 Posts: 12Member
Hi,

Just wondering if anyone could help.

I've created a dvd rental system in vb 6 and wanted an option button added to play movies that are on the database.

Hope this is possible

Any help is appreciated

Thanks

Ant

Comments

  • PavlinIIPavlinII Posts: 404Member
    : Hi,
    :
    : Just wondering if anyone could help.
    :
    : I've created a dvd rental system in vb 6 and wanted an option button added to play movies that are on the database.
    :
    : Hope this is possible
    :
    : Any help is appreciated
    :
    : Thanks
    :
    : Ant
    :
    Hi,
    try to lookup mciSendString function.
    This are some lines of my old testvideo application.
    In some way like this, it was used
    [code]
    Picture1.Picture = LoadPicture()

    mciSendString "WINDOW myMMFile HANDLE " & Picture1.hWnd, "AviVideo", 0, 0
    mciSendString "PLAY myMMFile REPEAT", "AviVideo", 0, 0
    ...
    mciSendString "SET myMMFile TIME FORMAT milliseconds", ALADIN, 0, 0
    mciSendString "SEEK myMMFile TO 1", ALADIN, 0, 0
    mciSendString "WINDOW myMMFile HANDLE " & Picture1.hWnd, ALADIN, 0, 0
    mciSendString "PLAY myMMFile REPEAT", ALADIN, 0, 0
    mciSendString "STOP myMMFile", ALADIN, 0, 0
    ...
    mciSendString "PLAY myMMFile FULLSCREEN", ALADIN, 0, 0
    ...
    Picture1.ScaleMode = vbPixels
    mciSendString "PUT myMMFile DESTINATION AT 0 0 " & Picture1.ScaleWidth & " " & Picture1.ScaleHeight, ALADIN, 0, 0
    [/code]I hope this "random" lines will help you at least a little.

    This is one of the easiest ways how to play video, using system commands.

    [blue][b][italic][size=4]P[/size]avlin [size=4]II[/italic][/size][/b][/blue]

    [purple]Don't take life too seriously anyway you won't escape alive from it![/purple]


  • PavlinIIPavlinII Posts: 404Member
    : : Hi,
    : :
    : : Just wondering if anyone could help.
    : :
    : : I've created a dvd rental system in vb 6 and wanted an option button added to play movies that are on the database.
    : :
    : : Hope this is possible
    : :
    : : Any help is appreciated
    : :
    : : Thanks
    : :
    : : Ant
    : :
    : Hi,
    : try to lookup mciSendString function.
    : This are some lines of my old testvideo application.
    : In some way like this, it was used
    : [code]
    : Picture1.Picture = LoadPicture()
    :
    : mciSendString "WINDOW myMMFile HANDLE " & Picture1.hWnd, "AviVideo", 0, 0
    : mciSendString "PLAY myMMFile REPEAT", "AviVideo", 0, 0
    : ...
    : mciSendString "SET myMMFile TIME FORMAT milliseconds", ALADIN, 0, 0
    : mciSendString "SEEK myMMFile TO 1", ALADIN, 0, 0
    : mciSendString "WINDOW myMMFile HANDLE " & Picture1.hWnd, ALADIN, 0, 0
    : mciSendString "PLAY myMMFile REPEAT", ALADIN, 0, 0
    : mciSendString "STOP myMMFile", ALADIN, 0, 0
    : ...
    : mciSendString "PLAY myMMFile FULLSCREEN", ALADIN, 0, 0
    : ...
    : Picture1.ScaleMode = vbPixels
    : mciSendString "PUT myMMFile DESTINATION AT 0 0 " & Picture1.ScaleWidth & " " & Picture1.ScaleHeight, ALADIN, 0, 0
    : [/code]I hope this "random" lines will help you at least a little.
    :
    : This is one of the easiest ways how to play video, using system commands.
    :
    : [blue][b][italic][size=4]P[/size]avlin [size=4]II[/italic][/size][/b][/blue]
    :
    : [purple]Don't take life too seriously anyway you won't escape alive from it![/purple]
    :
    :
    :
    ... and
    [code]
    Public TypVidea As String
    Public AAC As Integer
    Public ACC As Integer
    Public ALADIN As String
    Public 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
    [/code]

    [blue][b][italic][size=4]P[/size]avlin [size=4]II[/italic][/size][/b][/blue]

    [purple]Don't take life too seriously anyway you won't escape alive from it![/purple]


Sign In or Register to comment.