[VB6] Video bestand summary

[Verwijderd]

In windows explorer kan je bij een video bestand de summary opvragen. Wat voor mij van belang is dat ik uit deze summary de frame width en height in pixels weet.

In mijn programma doe ik:
- D.m.v. FileListBox en DirListBox zoek ik een video bestand en laat deze in een MediaPlayer. Maar via deze MediaPlayer kan ik de summary van de video niet vinden. En ik kan ook niet de grootte van de MediaPlayer nemen aangezien deze een vaste grootte heeft.

- Verder heb ik geprobeerd het bestand te openen in een FileSystemObject en File maar hiermee krijg ik ook niet de summary.

Hoe kan ik de width en height van een video bestand weten? Toch via de FileSystemObject of de MediaPlayer en heb ik misschien verkeert gekeken, of er is een andere manier om de summary van een bestand op te vragen?

[AceRimmer]

Zet de volgende code in een module:

code:

Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
    lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
    hwndCallback As Long) As Long

En hiermee kun je dan (onder andere) de dimensies uitlezen:

code:

Dim sReturn As String * 128
    Dim lPos As Long
    Dim lStart As Long
        
    Last$ = Form1.hWnd & " Style " & &H40000000
    ToDo$ = "open c:\winnt\clock.avi Type avivideo Alias video1 parent " & Last$
    i = mciSendString(ToDo$, 0&, 0, 0)
    
    i = mciSendString("Where video1 destination", ByVal sReturn, Len(sReturn) - 1, 0)
        
    lStart = InStr(1, sReturn, " ") 'pos of top
    lPos = InStr(lStart + 1, sReturn, " ") 'pos of left
    lStart = InStr(lPos + 1, sReturn, " ") 'pos width
    lWidth = Mid(sReturn, lPos, lStart - lPos)
    lHeight = Mid(sReturn, lStart + 1)