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

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.