Bitmap eines Frames aus einer MPEG-Datei fischen

[jear]

Anbei der Beispielcode. Damit kann man die gängigen Videotypen untersuchen und bei MPEG-2-Dateien sein blaues Wunder erleben !

Es wäre sehr schön, wenn sich daran bald etwas ändert!

Code: Alles auswählen

; Examine Movies jear 2004-11-13

MovieName.s

If InitMovie() = #False
  MessageRequester("Error", "Can't initialize movie playback !", 0) 
  End
EndIf

Repeat
  MovieName = OpenFileRequester("Choose the movie to play", "", "Movie/Audio files|*.avi;*.mpg;*.asf;*.mp3;*.wav|All Files|*.*", 0)
  If MovieName = "" : Break : EndIf
  If LoadMovie(1, MovieName)
    Debug ">>> " + MovieName + " <<<"
    Debug "MovieLength: " + Str(MovieLength()) + " Frames"
    Debug "MovieInfo(0): " + Str(MovieInfo(0)/1000) + " FPS"
    Debug "MovieWidth: " + Str(MovieWidth())
    Debug "MovieHeight: " + Str(MovieHeight())
    Debug "--------------------------------------------------"
    FreeMovie(1) 
  EndIf
ForEver
End

[Andre]

@jear: danke, habs an Fred weitergegeben.

[inc.]

Hi Andre,

ist man da schon etwas angegangen? Bzw. deine letzte Antwort ist ja erst 4 Wo her, klar das dies noch nicht so fix geht.

Denn genau dieser Movie mpeg2 bug hält mich leider noch davon ab ein Utility für Video Cropping zu schreiben, also vob/mpeg2 Dateien rein, previewen, cropping einstellen, parameter des neuen Resizings auswerten lassen. Es soll eine Art FitCD für mencoder.exe unter Windows werden.
(Jear weiss bestimmt was ich da meine )

Beste Grüße und Dank!
Inc.

[Andre]

@inc: leider nein.

Die Weiterleitung des Testarchivs hat sich leider sehr lange verzögert, da über Fred's neuen Email-Account (bei Google, nennt sich GMail ) keine Zip-Dateien mit Exe-Dateien empfangen werden können.

Erst nach Rücksprache mit ihm und etwas Trickserei (Datei/Archiv umbenennen) war es letzte Woche endlich möglich, ihm die Dateien zukommen zu lassen.