[gelöst] Mediaplayer einbinden

[juelin]

Hallo,
ich habe Lazarus 4.2 und FPC 3.2.2 unter Windows 11.
Nun würde ich gerne mp3-Files abspielen.
Es gibt in Lazarus aber keine Komponente Mediaplayer (warum nicht)?
Da muss man wohl selber eine Kompontet einbinden.
Zu welcher Komponete würdet Ihr mir raten?
Am besten so wie in Delphi.
Wo laden ich die Komponete runter und wie binde ich sie ein?.
Danke für Eure Tipps.
Schönes Wochenende und Gruß
Jürgen

[theo]

Hier gibt es eine Auswahl: https://wiki.freepascal.org/Audio_libraries
Ich benutze BASS.

[Mathias]

Nun würde ich gerne mp3-Files abspielen.

Wen du nur einfach eine mp3 abspielen willst, kannst du SDL 1.x nehmen, welches bei Lazarus schon dabei ist.
Und wen es recht anspruchsvoll sein soll, würde ich gstreamer nehmen.

Unter Linux laufen diese Player alle auf anhieb, auf Windows muss man leider die benötigten DLLs zusammensuchen.
Das ist bei Theos Vorschlag leider auch so.

Oder wen es wirklich ganz einfach sein soll und nur unter Windows gehen soll , dann binde die mciSendStringA von der WinAPI ein.
Ich habe da ein kleine C-Beispiel, welches sich sehr einfach umsetzen lässt.

Code: Alles auswählen

// x86_64-w64-mingw32-gcc -o main main.c -lwinmm

#include <windows.h>
#include <mmsystem.h>
#include <stdio.h>

int main() {
    const char* mp3File = "test.mp3";

    mciSendStringA("close mp3", NULL, 0, NULL);  
    char command[256];
    sprintf(command, "open \"%s\" type mpegvideo alias mp3", "test.mp3");
    mciSendStringA(command, NULL, 0, NULL);

    mciSendStringA("play mp3", NULL, 0, NULL);

    printf("<Enter> = Beenden...\n");
    getchar();

    mciSendStringA("close mp3", NULL, 0, NULL);

    return 0;
}

[Mathias]

In Pascal sieht dies so aus:

Code: Alles auswählen

uses
  Windows,
  SysUtils;

  function mciSendStringA(lpstrCommand: pansichar; lpstrReturnString: pansichar; uReturnLength: UINT; hwndCallback: HWND): cardinal; stdcall; external 'winmm.dll';

var
  command: ansistring;
begin
  mciSendStringA('close mp3', nil, 0, 0);

  command := 'open "test.mp3" type mpegvideo alias mp3';
  mciSendStringA(pansichar(command), nil, 0, 0);

  mciSendStringA('play mp3', nil, 0, 0);

  WriteLn('<Enter> = Beenden...');
  ReadLn;

  mciSendStringA('close mp3', nil, 0, 0);
end.