MediaInfo.dll und XProfan

Jac de Lad

So, nach einer Ewigkeit habe ich mich mal wieder an die Tasten gewagt. Ich will ein Programm schreiben, das von Videodateien Eigenschaften ausliest und in eine Tabelle einträgt. Dazu möchte ich die MediaInfo.dll nutzen. Diese ist kostenlos, aber es liegt kein Code für XProfan bei. Den wollte ich natürlich selbst machen, aber ich komme schon recht schnell nicht weiter...

Folgender Code soll die DLL laden (funktioniert) und dann, per DLL, die Testdatei öffnen und schließen. Leider bekomme ich beim Öffnen immer Rückgabewert 0, also Fehler (laut Dokumentation). Die Datei existiert natürlich, aber es wird trotzdem nichts.

Code

declare dll&,s$,h&clsdll&=Importdll("D:\\XProfan\\Projekte\\MediaInfo\\MediaInfo.dll","MI_")clsh&=1Print "DLL-Handle: "+Str$(dll&)s$="D:\\Test.mkv"'s$="D:\\XProfan\\Projekte\\MediaInfo\\Test.mkv"Print "FileExists: "+s$+" -> "+Str$(FileExists(s$))Print "Erfolg: "+Str$(MI_MediaInfoA_Open(h&,Addr(s$)))Print "Handle: "+Str$(h&)MI_MediaInfo_Close(h&)print "Warte..."waitinputFreeDLL dll&

Hat jemand schon Erfahrung mit der DLL? Ich werde nicht mal aus der Hilfe schlau, ob die Variabel "h&", also das Dateihandle, von mir vorgegeben werden soll oder von der DLL vergeben wird.

Edit: Natürlich bin ich gleich im falschen Forum gelandet, bitte den Beitrag in die DLLs verschieben.

RGH

Vielleicht solltest Du als Erstes mal versuchen, den Quellcode auf mehrere Zeilen aufzuteilen.
So kann ihn niemand testen.

Gruß
Roland

Jac de Lad

Huch, so ist der natürlich nicht.

Code

declare dll&,s$,h&
cls
dll&=Importdll("D:\\XProfan\\Projekte\\MediaInfo\\MediaInfo.dll","MI_")
cls
h&=1
Print "DLL-Handle: "+Str$(dll&)
s$="D:\\Test.mkv"
Print "FileExists: "+s$+" -> "+Str$(FileExists(s$))
Print "Erfolg: "+Str$(MI_MediaInfoA_Open(h&,Addr(s$)))
Print "Handle: "+Str$(h&)
MI_MediaInfo_Close(h&)
print "Warte..."
waitinput
FreeDLL dll&

Alles anzeigen

p. specht

Frage: Bitte ist das die DLL von hier: https://mediaarea.net/de/MediaInfo/ ?
(In Zusammenhang mit 32bit-Profan sollte ich natürlich die 32-bittige DLL nehmen, der Installer will das aber selbst Richtung 64 bit entscheiden. Ich versuch´s glaub ich später nochmal...)

Jac de Lad

p. specht: Jo. Die DLL kann man einzeln laden, mit Beispielen und Quellcode.

Es ist mir schon fast peinlich, da ich eigentlich dachte, dass ich ganz ok programmieren kann.

p. specht

Da ich in einem anderen Thread gerade an die Fähigkeiten von MCI-Befehlen erinnert wurde: Hilft hier nicht vielleicht überhaupt gleich das hier? (~~Ich nehme an, die DLL macht es nicht viel anders~~)
Gerade gesehen: Unsinn - ziehe meinen peinlichen Beitrag hiermit zurück...
*genier*

Michael Wodrich

Ansi/Unicode könnte ein Grund für das nicht funktionieren sein. Ein anderer Grund: nicht alle Funktionen sind implementiert.

Hier kann man sich schlau machen: SDK bzw. FAQ (click it)

Jac de Lad

Hab ANSI und Unicode probiert. Die Funktion zum Dateiöffnen ist auch implementiert. Da werde ich mich wohl mal in das Delphi-Beispiel reinfitzen müssen.

H.Brill

Ich glaube im Netz, bzw. auf einer Delphiseite gelesen zu haben,
daß man den Dateinamen per Bereich übergeben sollte.

Jac de Lad

...das ist natürlich auch eine Möglichkeit. Werde ich morgen mal probieren, danke für den Hinweis.

...und dann kommen sicher die nächsten Fragen.

Jac de Lad

Bereich geht auch nicht. Wenn ich nicht mal die Datei öffnen kann, wie soll ich sie dann verarbeiten. ich krieg hier noch 'ne Krise...

Volkmar

Wenn ich mir das so ansehe, müßte es aber Addr(h&) heißen für das Handle. Ist als Typ IntPtr, also Zeiger auf einen Int angegeben. Anders könnte die Funktion ja auch das Handle gar nicht über die Variable zurück geben. Macht aber auch keinen Unterschied, der Testcode tut das Gleiche, der Wert in Handle wird durch Open nicht verändert

Gruß Volkmar

Jac de Lad

Hallo Volkmar,
könnte stimmen, aber ich weiß leider immer noch nicht ob ich der DLL das Handle vorgebe oder ob sie eins vergibt. Da werde ich auch aus der Hilfe nicht schlau.
Ich werde mal über Ostern weiterschnüffeln.

Volkmar

So richtig ist mir das auch nicht klar. In einem Demo wird ja auch mit MediaInfo_New ein Handle erzeugt. Allerdings wird das in dem Demo, wenn ich das richtig sehe, schon vor der weiteren Arbeit wieder gelöscht.

Gruß Volkmar

Jac de Lad

Ich hab heut und morgen Nachtschicht. Aber über Ostern fitze ich mich mal richtig rein.

Wenns nichts wird muss ich eben bei den einfachen Dingen bleiben.[Blockierte Grafik: https://i.imagebanana.com/img/xaefgobd/hello_world_oc.png]

Michael Wodrich

Hoffentlich schmeißt sie uns nicht mal weg...

RGH

Die Erzeugung des Handles mit MediaInfo_New fehlt in Deinem Code. So geht es:

Code

declare dll&,s$,h&
window 800,600
dll&=Importdll("f:\\ENTW\\Profan Projekte\\MediaInfo\\MediaInfo.dll","MI_")
h&=MI_MediaInfoA_New()
Print "DLL-Handle: "+Str$(dll&)
s$="Z:\\Filme\\Nightwish - Live in Concert - Live from Wacken - Full Show -.mp4"
Print "FileExists: "+s$+" -> "+Str$(FileExists(s$))
Print "Erfolg: "+Str$(MI_MediaInfoA_Open(h&,Addr(s$)))
Print "Handle: "+Str$(h&)
MI_MediaInfo_Close(h&)
print "Warte..."
waitinput
FreeDLL dll&

Alles anzeigen

Gruß
Roland

RGH

Und so bekommst Du die ganze Information über die Datei:

Code

declare dll&,s$,h&
window 1200,1000
dll&=Importdll("f:\\ENTW\\Profan Projekte\\MediaInfo\\MediaInfo.dll","MI_")
h&=MI_MediaInfoA_New()
s$="Z:\\Filme\\Nightwish - Live in Concert - Live from Wacken - Full Show -.mp4"
MI_MediaInfoA_Open(h&,Addr(s$))
Print String$(MI_MediaInfoA_Inform(h&,0),0)
MI_MediaInfo_Close(h&)
print "Warte..."
waitinput
FreeDLL dll&

Alles anzeigen

Jac de Lad

Wow, danke Roland. Auf die Idee mit New wäre ich nicht so schnell gekommen. Das ist doch recht kompliziert gemacht, aber sicher Standard.

Da bastel ich mal eine Include zusammen.

roland: Da du mehr Einblick in Delphi hast: Kannst du eventuell noch auf die Schnelle rausfinden, wie ich MediaInfo_Get einzelne Elementa abfragen kann?

RGH

Es reicht ein New zu Beginn, um die DLL zu initialisieren und ein Delete am Ende des Prorammes. Dazwischen kann man seine Dateien untersuchen: Open - Inform - Close.
Das Close dient dazu, die untersuchte Datei wieder freizugeben. Wenn es weggelassen wird, gibt es keine Fehler, aber die Datei kann möglicherweise vor Beenden des Programmes nicht von anderen Programmen geöffnet werden.

Code

declare dll&,s$,h&
window 1200,1000
dll&=Importdll("f:\\ENTW\\Profan Projekte\\MediaInfo\\MediaInfo.dll","MI_")
h&=MI_MediaInfoA_New()
s$="Z:\\Filme\\Nightwish - Live in Concert - Live from Wacken - Full Show -.mp4"
MI_MediaInfoA_Open(h&,s$)
Print String$(MI_MediaInfoA_Inform(h&,0),0)
MI_MediaInfoA_Close(h&)
Print "Taste drücken ..."
WaitInput
s$="Z:\\Filme\\winterclassic.mp4"
MI_MediaInfoA_Open(h&,s$)
Print String$(MI_MediaInfoA_Inform(h&,0),0)
MI_MediaInfoA_Close(h&)
print "Taste drücken zum Beenden."
MI_MediaInfoA_Delete(h&)
waitinput
FreeDLL dll&

Alles anzeigen

Gruß
Roland

Jetzt mitmachen!