[VB6] Avi filmpjes in VB

[Beuker]

Ik heb op internet gevonden hoe je avi filmpjes binnen je programma afspeeld. Dit werkt echter goed totdat het filmpje is afgelopen. Er komt dan een fout in geheugen.

De lees of schrijf bewerking "READ" op het geheugen is mislukt.

Dit geeft de geconverteerde exe.
Als je hem runt binnen VB gaat het ook niet goed...

Kan iemand me helpen...

[Garoth]

stukje code misschien?

[Beuker]

code:

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 Sub Command1_Click()
 End
End Sub

Private Sub Form_Click()
Dim Ret As Long, A$, x As Integer, y As Integer
    x = 130
    y = 90
    A$ = "D:\filmpjes\beginscherm.avi"
    Ret = mciSendString("stop movie", 0&, 128, 0)
    Ret = mciSendString("close movie", 0&, 128, 0)
    Ret = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", 0&, 128, 0)
    Ret = mciSendString("put movie window client at " & x & " " & y & " 0 0", 0&, 128, 0)
    Ret = mciSendString("play movie", 0&, 128, 0)
End Sub

Private Sub Form_Terminate()
Dim Ret As Long
    Ret = mciSendString("close all", 0&, 128, 0)
End Sub

[ Voor 14% gewijzigd door Beuker op 15-01-2003 14:56 . Reden: Mod rules ]

[Garoth]

Ik ben niet zo'n held in VB, maar ik neem aan dat die ret return values zijn... Controleer je die nergens?

En volgens mij werkt de close all niet als je met avi bezig bent, maar moet je eerst de avi stop zetten en closen, en dan pas close all...

[Mickman]

cha, component MediaPlayer invoegen

mediaplayer.Open("movie.avi")

[whoami]

Lees ff de P&W Quickstart
Gebruik code-tags
Heb je zelf al eens gedebugged?

[Beuker]

Ja gedebugged is al gedaan maar hij zegt dat alles goed... Hij ziet geen fout...

Met dit commando mediaplayer.Open("movie.avi") geeft die een runtime error

[Beuker]

whoami schreef op 15 januari 2003 @ 14:43:
Lees ff de P&W Quickstart
Gebruik code-tags

Wat is de P&W Quickstart??? in mijn jaren vb ervaring heb ik daar nog nooit geheoord?

[whoami]

Deze:
Welkom in P&W -> Quickstart (update 2/10/2002)

Heeft niets met VB te maken, maar met dit forum.

[Beuker]

whoami schreef op 15 January 2003 @ 14:48:
Deze:
Welkom in P&W -> Quickstart (update 2/10/2002)

Heeft niets met VB te maken, maar met dit forum.

Normaal neem ik deze regels wel in acht, maar we moeten een project voor morgen klaar hebben en we zijn een beetje druk dus..... Vandaar.....

[Verwijderd]

DJ_Flowerz schreef op 15 januari 2003 @ 14:46:
Ja gedebugged is al gedaan maar hij zegt dat alles goed... Hij ziet geen fout...

Met dit commando mediaplayer.Open("movie.avi") geeft die een runtime error

Je moet natuurlijjk wel eerst effe een mediaplayer control aanmaken he....
ik denk trouwens dat jij best wel het edit knopje weet te vinden.....