Playin .AVI MPG etc

anton19822

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

PavlinII

: 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]

PavlinII

: : 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]