Verwenden der MediaInfo.DLL

[EWeiss]

Zitat:

Zitat von Koloss (Beitrag 1417292)

Auch ich greife das Thema auf, hat da wer irgendetwas aktuelles für Delphi 10 und 4K MKVs?

Verstehe nicht was du aufgreifen willst.
Um was geht es?

gruss

[Koloss]

Wie ich am besten auf die MediaInfo dll zugreifen kann, ich bräuchte die lauflänge und Bitrate von einen mkv Video.

[KodeZwerg]

Zitat:

Zitat von Koloss (Beitrag 1417292)

Auch ich greife das Thema auf, hat da wer irgendetwas aktuelles für Delphi 10 und 4K MKVs?

Hmmm, ein Thread aus dem Jahre 2004, enthält Dinge die mit Deinem Delphi nicht kompatibel sind?
(Das ist ja mal eine Frechheit sowas!)
Aber ein paar mehr Information könnten schon hilfreich sein damit man weiß was Du möchtest oder worin das Problem liegt.

[EWeiss]

Zitat:

Zitat von Koloss (Beitrag 1417297)

Wie ich am besten auf die MediaInfo dll zugreifen kann, ich bräuchte die lauflänge und Bitrate von einen mkv Video.

Lade die DLL in dem Speicher..
Und hole dir dann über (Hier BitRate)

Delphi-Quellcode:

MediaInfo_Get(handle, Stream_Video, iCpt, 'BitRate', Info_Text, Info_Name);

Die benötigten Informationen.

gruss

[KodeZwerg]

Mit un4seen Bass sollte man auch ans ziel kommen.
Die hatten mal ne BassVideo, ich glaub das wurde von BassDShow oder so abgelöst.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1417300)

Mit un4seen Bass sollte man auch ans ziel kommen.
Die hatten mal ne BassVideo, ich glaub das wurde von BassDShow oder so abgelöst.

Vergiss den Mist!
Schon mal verwendet das du es hier als Alternative anpreist?
Sorry das ist Klugscheiss..

Zitat:

irgendetwas aktuelles für Delphi 10 und 4K MKVs?

Es ist uninteressant ob 4K oder nicht wichtig ist nur das Format in dem fall *.mkv

gruss

[KodeZwerg]

Oki, habs vergessen. Toi toi

[EWeiss]

Ich will mal nicht so sein.
Hier eine funktionierende Form.

In dein Projekt einbinden die Form MediaInfoForm von außen aufrufen.
Dafür sorgen das sich im Pfad die richtige Version der MediaInfo.dll befindet. (Ich habe die letzte (x64) verwendet und die *.pas dementsprechend angepasst)

Die Infos findest du dann im Memo.
Was du dann nur noch machen musst ist die beiden Funktionen aus dem Kram heraus zu parsen oder wie gezeigt alleine mit der jeweiligen Funktion auszulesen.
Die DLL ist NICHT enthalten.

gruss

[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