XelPlayer reloaded

[rchastain]

I uploaded here the source code of XelPlayer, a crossplatform GUI for MPlayer, by Alexandre Minoshi.

It compiles, but I am not sure that it works. It will be a good exercise to update it.

Help is welcome.

[rchastain]

First problem. I cannot open almost any form. For example, if I open main.pas, and try to toggle from unit to form, I get this message:

I need time to understand what happens. If you have ideas...

[rchastain]

I see that tmplayer is defined in alsmplayer.pas.

// alsmplayer.pas
type
  tmplayer = class(tcomponent)

Maybe is it necessary to build an IDE with that component? I don't know how to do that. I will search.

[fredvs]

Re-hello Roland.

To install new component, you may follow the tips of Leandro:
https://github.com/bgrabitmap/bgragui#mseide-instructions

[rchastain]

Interesting. Thanks for the link.

[rchastain]

I made a copy of mymseide project, named it xelide, replaced mybutton.pas with alsmplayer.pas and... it works!

[fredvs]

Excellent!

[fredvs]

Hello Roland.

Here, ignoring the class not found when trying to switch unit<>from and fixing the "uses" in unit mseucs2toru.pas with this

uses
 classes,mclasses,msetypes{$ifdef FPC},strings{$endif},typinfo,sysutils,
 msestrings;

it compiles and runs (but all is in Russian).

But it runs only once, at next try the program is not loaded, maybe a protection somewhere in code.

[fredvs]

Hum, after rebooting, it runs at each try now.
But there is surely some things to adapt (and understand what it says in Russian).
I let you discover the perl... ;-)

[fredvs]

Hola Roland!

Tip: MSEgui has a big familly now so maybe in code you may change all things like this:

{$IFDEF linux}
  fmplayer := '/usr/bin/mplayer';
{$ENDIF}

with this:

{$IFDEF unix}
if fileexists('/usr/bin/mplayer') then
  fmplayer := '/usr/bin/mplayer' else
if fileexists('/usr/local/bin/mplayer') then
  fmplayer := '/usr/local/bin/mplayer' else
  showmessage('mplayer is not installed!');
{$ENDIF}

;-)