Extended Module Player

[bobby100]

Hmmm, I am trying to compile BeRoXM under Lazarus, and I got into the following problem in sysosh.inc

Code: Pascal  [Select][+][-]

1. type
2. {$ifdef CPU64}
3.   THandle = QWord;
4.   ULONG_PTR = QWord;
5. {$else CPU64}
6.   THandle = DWord;
7.   ULONG_PTR = DWord;
8. {$endif CPU64}
9.   TThreadID = DWord;
10.   SIZE_T = ULONG_PTR;

The following line from BeRoXM.pas

Code: Pascal  [Select][+][-]

1. ThreadHandle:=BeginThread(NIL,0,@BeRoXMThreadProc,SELF,CREATE_SUSPENDED, ThreadID);

gets ThreadID as QWord, but the BeginThread expects LongWord. Could it be, that there is an error in sysosh.inc, and that TThreadID should get into CPU64 define as a QWord?

[TRon]

Hmmm, I am trying to compile BeRoXM under Lazarus, and I got into the following problem in sysosh.inc

I am a bit confused by your findings. A threadID in FPC is of type PtrUInt (or at least should be according to the docs). That raises the question where is that coming from ?

see also https://www.freepascal.org/docs-html/rtl/system/beginthread.html and https://www.freepascal.org/docs-html/prog/progse44.html

[bobby100]

PtrUInt is also a LongWord/DWord according to the docs, but if I follow through the RTL, it is a QWord for TThreadID, but it is expected LongWord in BeginThread.

[bobby100]

Should I fill a bug-report on GitLab for FPC/RTL?

[marcov]

This is a well known issue, and lies in the definition of the beginthread stuff.

The last time it was mentioned, the reaction was that it doesn't hurt, and then it was better  to keep the interface the same.

I did this change  in development version back then

SHA-1: 7957c349407241e8135af138a68621d4cc9ccea3

* * change tthreadid to thandle, as the used functions for threadid in systhrd all use HANDLE.

[bobby100]

@Gigatron
Here is a simple example of BeRoXM for Lazarus. It plays a module from an array.
In sub-folder is the code to generate the unit with the array.

[Fred vS]

Hi,
Ok , this is the 3rd version of extended xmplayer without SDL2 or other external library except libxmp.dll.
...

Hello Gigatron.

There is a update of your project with target Unix system too.
It uses the root libalsa.so library.
Also libxmp.pas does now dynamically loading of the xmp library, you may load it when and from you want with xmp_Load(const libfilename:string);

The project is in attachment, you will need to change the target in project option if you want to compile it for Linux (default is Win64).

Here the xmp libraries for Linux 64 and Windows 64 + the demo mod file (too big for attachment).
https://github.com/fredvs/test/releases/download/fpc323/xmp_demo_libs.zip
Copy those files in the root directory of the project.

Many thanks to make me discover that fantastic xmp library.

Fre;D

[TRon]

There is a update of your project with target Unix system too.

Impatient ? 

Good that you used the packrecords for the xmp headers, otherwise it becomes a mess 

All good though and thank you Fred, as it takes out the edge for my attempt (xmp header almost similar as your implementation, using dynamic loading). Ofc. I have to do a lot of testing with all kinds of modules to see if everything actually works 

Because I want to use the xmp examples as is, I've gone with asound headers that have a bit more functions exposed. All seems to be working with libasound, openal and I've tossed in a libao example as well. The hard part is cleaning things up (first make it work, then make it clean, tidy and consistent).

fwiw: the interwebs is stuffed with small modules that are around 40-50 kb in size (narrow search to chip-tune(s)).

[Fred vS]

Because I want to use the xmp examples as is, I've gone with asound headers that have a bit more functions exposed. All seems to be working with libasound, openal and I've tossed in a libao example as well.

Yes I took big inspiration from the xmp alsa.c example.
It works great with fpc. 
Now for the less-root-audio multi os library, I prefer PortAudio. 

There is a console demo of xmp for fpc:
https://github.com/fredvs/xmp_pas

[Gigatron]

@Gigatron
Here is a simple example of BeRoXM for Lazarus. It plays a module from an array.
In sub-folder is the code to generate the unit with the array.

@bobby100 thank you for the project , it working nice ;

[Gigatron]

Hi,
Ok , this is the 3rd version of extended xmplayer without SDL2 or other external library except libxmp.dll.
...

Hello Gigatron.

There is a update of your project with target Unix system too.
It uses the root libalsa.so library.
Also libxmp.pas does now dynamically loading of the xmp library, you may load it when and from you want with xmp_Load(const libfilename:string);

The project is in attachment, you will need to change the target in project option if you want to compile it for Linux (default is Win64).

Here the xmp libraries for Linux 64 and Windows 64 + the demo mod file (too big for attachment).
https://github.com/fredvs/test/releases/download/fpc323/xmp_demo_libs.zip
Copy those files in the root directory of the project.

Many thanks to make me discover that fantastic xmp library.

Fre;D

Nice @Fred thank you too , i am not on Linux maybe in the future

[Fred vS]

Hello.
uos audio library can deal now with libxmp.
The example SimplePlayer was updated to play also mod, it, s3m, xm and other module formats.
Have fun!
Fre;D

[Fred vS]

Hello XMP lovers!

Do you know (a) site(s) with nice demos of mod, it, xm, s3m and others that can be downloaded?
There are few demos in fpc package /fpc-src/packages/libndsfpc/examples/ that are nice, but I want more. 

Thanks.

[Guva]

Hello XMP lovers!

Do you know (a) site(s) with nice demos of mod, it, xm, s3m and others that can be downloaded?
There are few demos in fpc package /fpc-src/packages/libndsfpc/examples/ that are nice, but I want more. 

Thanks.

https://modarchive.org/

[Fred vS]

Hello XMP lovers!

Do you know (a) site(s) with nice demos of mod, it, xm, s3m and others that can be downloaded?
There are few demos in fpc package /fpc-src/packages/libndsfpc/examples/ that are nice, but I want more. 

Thanks.

https://modarchive.org/

Perfect, many thanks. 
Huh, with one must I absolutely try?