Verwenden der MediaInfo.DLL

[himitsu]

Er hat bei der ANSI-Version Mist gebaut ... PChar muß dort explizit PAnsiChar sein usw. (drum funktionierte es bis D2007 noch)

Schnelle Lösung: Verwende seine Unicode-Variante, denn die ist scheinbar korrekt implementiert.
Wobei du mit der Unicode-Version eh besser kommst, da dein Delphi sowieso Unicode ist.

[add]
Unicode und ANSI zusammengeschmissen ... je nach Delphi wird das Passende verwendet.

[Nero der Professor]

himitsu, Tausend Dank

Hat perfekt funktioniert

Gruß Nero

[sintronic86]

Ich greif das Thema nochmal auf, weil ich leider nen kleines Problem habe.

wenn ich die heruntergeladene Exe-Datei benutze, funktioniert es (allerdings nicht für MP4-Dateien).

Sobald ich aber den Source nehme und einmal selber kompiliere, sieht es aus wie aus dem angehängten Screenshot.

Kann einer von euch was damit anfangen?

[DeddyH]

Sieht so aus, als hättest Du einen Ansi-Source mit einem Unicode-Delphi übersetzt.

[Koloss]

Danke für deine Tipps @EWeiss!

Hier die DLL herunterladen:
https://mediaarea.net/de/MediaInfo/Download/Windows
Vom Paket die MediaInfoDLL.pas zum Projekt hinzufügen und in die Uses einbinden.
DLL zur Anwendung(EXE) dazulegen.

Code:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  ...
  MediaInfoDLL_Load('MediaInfo.dll');
  ...
end;

procedure TfrmMain.GetMediaInfo(FileName : String; var Runtime : Integer; var Bitrate : Double);
var
  Handle: Cardinal;
  iCpt : Integer;
  Value : PWideChar;
  iHelp : Integer;
  str : String;
  P : Integer;
begin
  Handle := MediaInfo_New();
  MediaInfo_Open(Handle, PWideChar(FileName));
  Value := MediaInfo_Get(Handle, Stream_Video, 0, 'BitRate', Info_Text, Info_Name);
  iHelp := StrToIntDef(Value, 0);
  BitRate := iHelp / 1000000;
  Value := MediaInfo_Get(Handle, Stream_Video, 0, 'Duration', Info_Text, Info_Name);
  str := Value;
  P := Pos('.', str);
  str := Copy(Value, 1, P-1);
  iHelp := StrToIntDef(str, 0);
  Runtime := iHelp div 60000;
  MediaInfo_Close(Handle);
end;

[EWeiss]

Und geht alles wie gewünscht?
iCpt wird nie verwendet kannst rausschmeißen.

gruss

[Koloss]

Ja, funktioniert bestens !

Stimmt iCPt kann ich entfernen
Habe mir jetzt auch die "Width" rausgeholt, ich werde noch die Actors und Genres ansehen, ab man da vernüftige Daten bekommt.

[sundance]

@Garfield,

sorry wenn ich den alten Thread nochmal "herauskrame"...
Ich wollte die MediaInfoDLL.pas um die Funktion "MediaInfo_Info_Version()" erweitern, die in der aktuellen DLL v0.7.18 (immer noch) enthalten ist:

Delphi-Quellcode:

interface
  function MediaInfo_Info_Version: PChar cdecl stdcall;
implementation
  function MediaInfo_Info_Version; external 'MediaInfo.Dll';

Allerdings erhalte ich beim Aufruf anstelle der Versionsnummer nur folgenden Funktionswert:
'Your software uses an outdated interface, You must use MediaInfo.DLL 0.4.1.1 instead'

Was mache ich da falsch?
Oder kann man die DLL-Versionsnummer auch anders auslesen?

Nachtrag: Die DLL aus deinem BeispielGUI (0.7.1.2) liefert das selbe Ergebnis.

Nachtrag 2: So funktionierts:
MediaInfo_Option(0,'Info_Version',''); // liefert 'MediaInfoLib - v0.7.18' Um auch ältere Versionen der DLL zu unterstützen kann man beide auch kombinieren:
(analog zu http://www.fr-an.de, GUI MediaInfoLib)

Delphi-Quellcode:

result := MediaInfo_Info_Version();
if Pos('MediaInfoLib', result) = 0 then
  result := MediaInfo_Option(0,'Info_Version','');

.sundance.

[Garfield]

Delphi-Quellcode:

  function String_holen : String;
  begin
    Result := '';

    @MediaInfo_Info_Version  := NIL;
    @MediaInfo_Option        := NIL;
    lib := LoadLibrary(@szNameDLL[1]);
    if lib <> 0
    then try
      @MediaInfo_Info_Version := GetProcAddress(lib, @szNameMediaInfo_Info_Version[1]);
      if Assigned(MediaInfo_Info_Version)
      then Result := MediaInfo_Info_Version();

      if pos('MediaInfoLib', Result) > 0 then Exit;

      @MediaInfo_Option := GetProcAddress(lib, @szNameMediaInfo_Option[1]);
      if Assigned(MediaInfo_Option)
      then Result := MediaInfo_Option (0, 'Info_Version', '');
    except
    end;
  end;

Aus der Demo auf dieser Seite, welche Du auch gefunden hast.

[sundance]

Garfield,

vielen Dank für deine Antwort.
Leider bin ich jetzt noch auf ein Problem gestoßen.
Wie kann ich ermitteln, ob und wieviele Kapitelmarken in einem Matroska-Container enthalten sind?

So habe ich's schon (ohne Erfolg) probiert:

Delphi-Quellcode:

FNumChapters := MediaInfoA_Get(FHandle, 0,0, 'ChaptersCount', 1,0);
FNumChapters := MediaInfoA_Get(FHandle, 4,0, 'Count', 1,0);
FNumChapters := MediaInfoA_Get(FHandle, 4,0, 'Total', 1,0);

Edit:
Für das Ermitteln der Forced- und Default-Flags habe ich auch keinen Weg gefunden...
Siehe Output von mkvinfo:

Code:

| + A track
|  + Track number: 2
|  + Track UID: 2808210362
|  + Track type: audio
|  + Enabled: 1
|  + Default flag: 1
|  + Forced flag: 1
|  + Lacing flag: 1
|  + MinCache: 0
|  + Timecode scale: 1
|  + Max BlockAddition ID: 0
|  + Codec ID: A_AC3
|  + Codec decode all: 1
|  + Default duration: 32.000ms (31.250 fps for a video track)
|  + Language: ger
|  + Audio track
|   + Sampling frequency: 48000
|   + Channels: 6