sfml SFML for Pascal

[tinyBigGAMES 67]

 

SFML
Simple Fast Multimedia Layer
Bindings that allow you to use SFML and other useful C libraries with Pascal.

 

Included

• CSFML (https://github.com/SFML/CSFML)
• pl_mpeg (https://github.com/phoboslab/pl_mpeg)
• Nuklear (https://github.com/Immediate-Mode-UI/Nuklear)
• physfs (https://github.com/icculus/physfs)
• minizip (https://github.com/madler/zlib)
• SDL (https://github.com/libsdl-org/SDL)

 

Minimum Requirements

• Windows 10+ (64 bits)
• Delphi Community Edition (Win64 target only)
• FreePascal 3.2.2 (Win64 target only)

 

Usage

• Add SFML to your uses section to access all the aforementioned libraries.
• You link to SFML dynamically by default and will look for the SFML DLL in your application path. You can also call InitSFML, before any other routine, with a the path to the DLL location.
• Define SFML_STATIC in SFML.pas to statically link to SFML and the DLL will not have to be included in your application distro. InitSFML will have no effect and you can leave it in your sources so that you can switch between static and dynamic linking during development.

uses
  SysUtils,
  SFML;

var
  Mode: sfVideoMode;
  Window: PsfRenderWindow;
  Event: sfEvent;
  Music: PsfMusic;
  
begin
  Mode.Width := 800;
  Mode.Height := 600;
  Mode.BitsPerPixel := 32;
  
  Window := sfRenderWindow_create(Mode, 'Hello SFML', sfResize or sfClose, nil);

  Music := sfMusic_createFromFile('arc/audio/music/song01.ogg');
  sfMusic_play(Music);

  while sfRenderWindow_isOpen(Window) = sfTrue do
  begin
    while sfRenderWindow_pollEvent(Window, @Event) = sfTrue do
    begin
      if Event.kind = sfEvtClosed then
        sfRenderWindow_close(Window);
    end;

    sfRenderWindow_clear(Window, DARKSLATEBROWN);
    sfRenderWindow_display(Window);
  end;

  sfMusic_stop(Music);
  sfMusic_destroy(Music);
  sfRenderWindow_destroy(Window);
end.

Support

• Issues
• Discussions
• SFML website
• SFML on YouTube

 

Edited March 22, 2022 by tinyBigGAMES