PureBoard

Verfasst: **08.06.2005 01:17**

Was Prozeduren etc. angeht, da bin ich (wie man am Code sicherlich merken wird) ein absoluter Anfänger, aber viell. könnt ihr mir helfen.
Habe schon viel rumgegoogelt und im deu und engl. PB Forum gesucht.

Meine Absicht ist es, mich mit den funktionen der avifil32.dll auseinanderzusetzen. Nun würde ich gerne aus der Struktur der "AVIFILEINFO" welche die Funktion AVIFileInfo der avifil32.dll hergibt die Werte, wie z.B. Höhe, Breite, FPS etc. des Streams auslesen.

Hier der Code:

Code: Alles auswählen

#streamtypeVIDEO = $73646976
#AVIGETFRAMEF_BESTDISPLAYFMT = 1
#AVI_ERR_OK = 0
#Lib = 0

Procedure READOUTAVI (avifile.s)
 
Structure AVIFILEINFO
    dwMaxBytesPerSec.l
    dwFlags.l
    dwCaps.l
    dwStreams.l
    dwSuggestedBufferSize.l
    dwWidth.l
    dwHeight.l
    dwScale.l
    dwRate.l
    dwLength.l
    dwEditCount.l
    szFileType.s     
EndStructure

res = CallFunction( #Lib, "AVIFileOpen", @pAVIFile, @avifile.s, #OF_SHARE_DENY_WRITE, 0 )

  res = CallFunction( #Lib, "AVIFileGetStream", pAVIFile, @pAVIStream, #streamtypeVIDEO, 0 )
     
        firstFrame = CallFunction( #Lib, "AVIStreamStart", pAVIStream )
        numFrames  = CallFunction( #Lib, "AVIStreamLength", pAVIStream )
        CallFunction( #LIB, "AVIFileInfo", pAVIFile, @AVIFILEINFO, SizeOf(AVIFILEINFO))

   
    CallFunction( #Lib, "AVIFileRelease", pAVIFile )
    MessageRequester( "AVI Info", "Das Avi: "+avifile.s+" besitzt "+Str(numFrames)+" Frames"+Chr(13)+" Die Breite des AVIs ist is"+Str(dwWidth.AVIFILEINFO),  0 )
;EndIf

EndProcedure


OpenLibrary  ( #Lib , "AVIFIL32.DLL")
CallFunction ( #Lib,  "AVIFileInit" )
 
avifile.s = OpenFileRequester ( "Select AVS File", "", "Video|*.avs", 0 )

If avifile  : READOUTAVI( avifile.s) : EndIf

CallFunction( #Lib, "AVIFileExit" )
CloseLibrary( #Lib )

Aber sobald die Line ..

Code: Alles auswählen

CallFunction( #LIB, "AVIFileInfo", pAVIFile, @AVIFILEINFO, SizeOf(AVIFILEINFO))

drin ist, gibts gar keine Message..... Schade.

Hier ist ein Beispiel aus einem VB Code, den ich gefunden habe und ihn mal "verstehen" wollte, um es richtig zu PB hin zu portieren.

Code: Alles auswählen

Private Const OF_SHARE_DENY_WRITE As Long = &H20
Private Type AVIFILEINFO
    dwMaxBytesPerSec As Long
    dwFlags As Long
    dwCaps As Long
    dwStreams As Long
    dwSuggestedBufferSize As Long
    dwWidth As Long
    dwHeight As Long
    dwScale As Long
    dwRate As Long
    dwLength As Long
    dwEditCount As Long
    szFileType As String * 64
End Type
Private Declare Function AVIFileOpen Lib "avifil32" Alias "AVIFileOpenA" (ppfile As Long, ByVal szFile As String, ByVal mode As Long, pclsidHandler As Any) As Long
Private Declare Function AVIFileRelease Lib "avifil32" (ByVal pfile As Long) As Long
Private Declare Function AVIFileInfo Lib "avifil32" Alias "AVIFileInfoA" (ByVal pfile As Long, pfi As AVIFILEINFO, ByVal lSize As Long) As Long
Private Declare Sub AVIFileInit Lib "avifil32" ()
Private Declare Sub AVIFileExit Lib "avifil32" ()
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hFile As Long, AviInfo As AVIFILEINFO
    'initialize the AVIFile library
    AVIFileInit
    'create a handle to the AVI file
    If AVIFileOpen(hFile, "C:\SIERRA\Half-Life\valve\media\sierra.avi", OF_SHARE_DENY_WRITE, ByVal 0&) = 0 Then
        'retrieve the AVI information
        If AVIFileInfo(hFile, AviInfo, Len(AviInfo)) = 0 Then
            MsgBox "AVI dimensions: " + CStr(AviInfo.dwWidth) + "x" + CStr(AviInfo.dwHeight)
        Else
            MsgBox "Error while retrieving AVI information... :("
        End If
        'release the file handle
        AVIFileRelease hFile
    Else
        MsgBox "Error while opening the AVI file... :("
    End If
    'exit the AVIFile library and decrement the reference count for the library
    AVIFileExit
End Sub

Kann mir da jemand helfen? Mann könnte doch so einiges als "Erfahrener" aus dem VB Code heraus erkennen.

Vielen Dank!
Inc.

PS: Warum ich nicht die PB internen MOVIE() Commands nutze ist, weil sie nicht Informationen über .avs Files wiedergeben können.
avs files sind Scripte/textfiles mit Videosources pointern und Filterroutinen, welche via avisynth (avisynth.dll) im system erkannt und als raw Videostream "frameserved" werden und via TmpgEnc, CCE etc erkannt werden. Die Movie() Commands passen da, aber die Outputs aus Funktionen der avifil32.dll sind correkt. AVIStreamLength funktioniert z.B korrekt.

Verfasst: **10.06.2005 10:18**

Keiner ne idee, wie man den benötigten Teil des VB Codes zu PB hin portieren kann??

Wenn noch Infos zur AVIFILINFO der avifil32.dll benötigt werden ...
http://216.239.59.104/search?q=cache:eF ... e&ie=UTF-8
http://msdn.microsoft.com/library/defau ... leinfo.asp

Verfasst: **10.06.2005 10:40**

Kanns mangels avi-File nicht ausprobieren, mir ist aber aufgefallen, dass Du ne Struktur AVIFILEINFO definierst und diese direkt im Api-Call verwendest, statts eine Variable dieses Typs zu deklarieren. Außerdem sprichst Du die Elemente der Struktur falsch an.

Probier mal:

Code: Alles auswählen

protected afi.AVIFILEINFO
CallFunction( #LIB, "AVIFileInfo", pAVIFile, @afi, SizeOf(AVIFILEINFO)) 
MessageRequester( "AVI Info", "Das Avi: "+avifile.s+" besitzt "+Str(numFrames)+" Frames"+Chr(13)+" Die Breite des AVIs ist is"+Str(afi\dwWidth),  0 )

Ich hoffe, ich liege nicht komplett daneben ...

Verfasst: **10.06.2005 10:54**

Code: Alles auswählen

#streamtypeVIDEO = $73646976
#AVIGETFRAMEF_BESTDISPLAYFMT = 1
#AVI_ERR_OK = 0
#Lib = 0

Procedure READOUTAVI (avifile.s)
 
Structure AVIFILEINFO
    dwMaxBytesPerSec.l
    dwFlags.l
    dwCaps.l
    dwStreams.l
    dwSuggestedBufferSize.l
    dwWidth.l
    dwHeight.l
    dwScale.l
    dwRate.l
    dwLength.l
    dwEditCount.l
    szFileType.b[64]     
EndStructure

res = CallFunction( #Lib, "AVIFileOpen", @pAVIFile, @avifile.s, #OF_SHARE_DENY_WRITE, 0 )

  res = CallFunction( #Lib, "AVIFileGetStream", pAVIFile, @pAVIStream, #streamtypeVIDEO, 0 )
     
        firstFrame = CallFunction( #Lib, "AVIStreamStart", pAVIStream )
        numFrames  = CallFunction( #Lib, "AVIStreamLength", pAVIStream )
        
        Result=CallFunction( #LIB, "AVIFileInfo", pAVIFile, @AVIFILEINFO1.AVIFILEINFO, SizeOf(AVIFILEINFO))
   
    CallFunction( #Lib, "AVIFileRelease", pAVIFile )
    MessageRequester( "AVI Info", "Das Avi: "+avifile.s+" besitzt "+Str(numFrames)+" Frames  " +Str(AVIFILEINFO1\dwWidth)+"/"+ Str(AVIFILEINFO1\dwHeight),  0 )

;EndIf

EndProcedure


OpenLibrary  ( #Lib , "AVIFIL32.DLL")
CallFunction ( #Lib,  "AVIFileInit" )
 
;avifile.s = OpenFileRequester ( "Select AVi File", "", "Video|*.avi", 0 )
avifile.s="I:\srings\video\test2.avi"

If avifile  
 READOUTAVI( avifile.s) 
EndIf

CallFunction( #Lib, "AVIFileExit" )
CloseLibrary( #Lib )

Also:
Falsch waren die AviInfo-Struktur, Die Übergabe der Struktur.

Verfasst: **10.06.2005 22:04**

Vielen Dank!
Klappt wunderbar

PureBoard

Würde gerne die AVIFILEINFO aus einem Avi auslesen ...

Würde gerne die AVIFILEINFO aus einem Avi auslesen ...