Discussion :

[Invité]

Bonjour,

quelqu'un a-t-il essayé de dériver FMX.Media.TMediaPlayer et TCustomMediaCodec pour les rendre compatibles à écouter des Web radios ?
J'ai réalisé un petit prog Qt pour faire cela en Win, OsX, Nux, Android et iOS. Le code n'utilise pas de bibliothèques tierces à Qt. J'aimerais faire aussi bien avec FireMonkey (sauf pour Nux évidemment).

J'ai lu dans un 'vieil' article ce conseil mais sans sa mise en oeuvre. Dériver certes mais on ajoute comment la partie http ?

You would have to implement a custom TMedia-derived class to handle streaming media, and a custom TCustomMediaCodec-derived class (registered for a custom file extension using TMediaCodecManager.RegisterMediaCodecClass()) to create your TMedia class. Then you can assign a URL to TMediaPlayer.FileName that ends with your extension (the real URL would not, so your codec would have to strip it off before accessing the URL)

Source

J'ai l'habitude de dériver (dans tous les sens du terme) avec Lazarus mais j'ai les sources. On les a sous Delphi ? Quelles variables, quelles méthodes, comment sont-elles déclarées ? Pour l'instant, je ne dispose que de cette documentation officielle. Où est le reste ? 'Reste' signifiant quelque chose d'exploitable comme ceci.
Je sais bien qu'il existe Bass24 mais je préfère le tout en un.

Merci.
Cordialement. Gilles

[SergioMaster]

Bonjour,

il ne m'a pas fallu longtemps pour trouver cet emplacement GitHub qui, à défaut d'explication te fournira des pistes

[Invité]

Bonjour Serge,

oui, celui-ci est effectivement le premier qui est proposé... mais il utilise la bibliothèque Bass24, et de ce fait, je l'ai éliminé.

Je cherche à maîtriser Delphi (et accessoirement à me convaincre que je peux faire aussi bien qu'en Qt). Donc, je voudrais dériver des composants sous FireMonkey. Je ne me souviens même plus si j'ai su le faire : l'âge certainement. Mon actuelle incapacité à accéder à la doc semble prouver que non.

Donc j'en reviens à ma nécessité du moment : Comment accède-t-on à la structure donc à la liste exhaustive d'un custom (propriétés et méthodes) pour le dériver sous Firemonkey ?

Merci. Gilles

[gbegreg]

Bonjour,

Une autre piste : http://docwiki.embarcadero.com/CodeE...ngMedia_Sample.
Je n'ai pas essayé mais cela semble utiliser le TMediaPlayer.

[SergioMaster]

Re,

mais il utilise la bibliothèque Bass24, et de ce fait, je l'ai éliminé.

oui, c'est après avoir posté que j'ai regardé plus en détail le zip

Donc, je voudrais dériver des composants sous FireMonkey.

je n'en suis qu'à la tentative de construction de composants simples (tutoriel en rédaction) mais le MediaPlayer n'est pas dans mes objectifs

Je ne me souviens même plus si j'ai su le faire : l'âge certainement.

Ou c'est que tu commences à tutoyer un prénommé Aloïs

Mon actuelle incapacité à accéder à la doc semble prouver que non.

la doc n'est pas complète, je fouille souvent directement dans les sources où se trouve beaucoup de commentaires (enfin les sources que j'ai lu)

Comment accède-t-on à la structure donc à la liste exhaustive d'un custom (propriétés et méthodes) pour le dériver sous Firemonkey ?

sans aucune hésitation, bis répéta : les sources, mais je n'ai pas mis le nez dans celle de TMediaPlayer

Bon à savoir, quand le composant est à la fois VCL et FMX c'est souvent dans la partie VCL que se trouve le plus de chose, un composant FMX de ce type a souvent un "simple" entête et un fichier inclus (le même que le VCL). Bien que pour l'instant j'arrive encore assez mal à mettre au point mon TPathNameImage (dérivé d'un TImage, le remplissage du bitmap est remplacé par le chemin) avec cette technique !

[Invité]

Bonjour,

merci pour vos aides.

@gbegreg : non, cela permet d'écouter un fichier placé sur le net mais pas d'écouter un flux 'live streaming'. Non, non, il faut vraiment dériver ces composants.

Voici la partie active en Qt (C++)

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
MainWindow::MainWindow(QWidget *parent) :
    QMainWindow(parent),
    ui(new Ui::MainWindow)
{
    ui->setupUi(this);
    int vol;
    vol = 50;
    ui->volLabel->setText(QString::number(vol));
 
    ui->volSlider->setRange(0,100);
    ui->volSlider->setValue(vol);
 
    m_player = new QMediaPlayer;
    m_player->setMedia(QUrl("http://listen.radionomy.com/radio-bach"));//sans le .m3u
    m_player->setVolume(vol);
    m_player->play();
 
    m_timer = new QTimer();
    m_timer->connect(m_timer, SIGNAL(timeout()), this, SLOT(win_minimize()));
    m_timer->start(3500);
}

La différence est que dans le QMediaPlayer, la partie de gestion du live streaming provenant d'une URL est implémentée par défaut et pas dans FireMonkey.

Bonne fin de WE. Cordialement. Gilles

[anapurna]

salut

dans le media player il suffit de lui passer en paramettre une url ou un path et lui gere le flux
je vois pas le probleme ?