Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: MPEG-Video : Höhe und Breite ermitteln
Autor: cybercow
Datum: 05.04.06 11:12
Erst einmal Danke an Martoeng für den Tipp. Habe es eben ausprobiert. Mit AVI-Dateien funktioniert es auch sehr gut, jedoch mit MPEG-Dateien nicht. Setze ich den Type des Videos beim öffnen der Datei auf MPEGVideo und benutze eine MPEG1/2-Videodatei so stürzt mein VB-Script ab. Setze ich den Type des Videos beim öffnen der Datei auf MPEGVideo2 und benutze eine MPEG1/2-Videodatei, so kommt als Rückgabewert immer nur "0". Vielleicht kann man mir besser helfen wenn ich den Code mal mitposte, den ich verwendet habe: Option Explicit ' benötigte API-Deklarationen 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 Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" ( _ ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, _ ByVal cchBuffer As Long) As Long ' MPEG-File öffnen Private Sub MPEG_Open(ByVal sFile As String) Dim sBuffer As String * 256 Dim nResult As Long ' DOS-Namen ermitteln (8.3-Format) nResult = GetShortPathName(sFile, sBuffer, Len(sBuffer)) sFile = Left$(sBuffer, nResult) ' MPEG öffnen ' öffnet ein Gerät und eine Multimedia-Datei mciSendString "open " & sFile & " type MPEGVideo" & _ " alias myMPEG", 0, 0, 0 End Sub Public Function MPEG_GetWidth(ByVal sFile As String) As Long Dim sReturn As String Dim nResult As Long Dim nWidth As Long 'Video öffnen MPEG_Open (sFile) ' Buffer füllen sReturn = Space(255) ' Größe ermitteln nResult = mciSendString("where MyMPEG destination", _ sReturn, Len(sReturn), 0) If InStr(sReturn, Chr$(0)) > 0 Then sReturn = Left$(sReturn, InStr(sReturn, Chr$(0)) - 1) End If If sReturn <> "" Then sReturn = Mid$(sReturn, InStr(1, sReturn, " ")) sReturn = Mid$(sReturn, InStr(2, sReturn, " ") + 1) nWidth = CLng(Mid$(sReturn, 1, InStr(1, sReturn, " ") - 1)) MPEG_GetWidth = nWidth End If End Function

MPEG-Video : Höhe und Breite ermitteln	3.471	cybercow	04.04.06 13:32
Re: MPEG-Video : Höhe und Breite ermitteln	2.752	Martoeng	04.04.06 19:49
Re: MPEG-Video : Höhe und Breite ermitteln	2.730	cybercow	05.04.06 11:12
Re: MPEG-Video : Höhe und Breite ermitteln	2.670	Martoeng	05.04.06 12:50
Re: MPEG-Video : Höhe und Breite ermitteln	2.784	cybercow	05.04.06 13:20
Re: MPEG-Video : Höhe und Breite ermitteln	2.640	Martoeng	05.04.06 13:32
Re: MPEG-Video : Höhe und Breite ermitteln	2.570	cybercow	05.04.06 13:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen