Csfml.pas

[drezgames]

sfml-logo.png

PSFML - SFML (Simple Fast Multimedia Library) for Pascal

Download

PSCML is a C/C++ library based off of CSFML to allow Pascal and other languages the ability to interact with and use the SFML library.

The purpose of PSFML is to be a better link between Pascal and SFML than CSFML was, and also fixes some issues encountered with CSFML, namely the fact that in Delphi is not able to use structs returned as function results from c/c++.

[paul_nicholls]

Nice work Jarrod

[drezgames]

Hi Paul,

Thx. Update with some examples coming soon. So I can test and make sure I got everything just right.

[code_glitch]

Wow - I've seen sfml used to great effect in Ludum dare compos. Have you been in touch with the SFML devs to have it listed on their site? It'd be an asset to them to have an extra language be supported after all, and I'll be looking forward to those examples to see if SFML is something I will be picking up in future

[drezgames]

Hi, yea SFML is cool. Its was certainly easier to compile the C/C++ sources vs the others I've tried. It coded/structured in a style similar to my own which makes it also easier for me to work with and way easier to import and use in my project. I am working on the examples, but having a bit of a problem with the event structure:

typedef union
{
    ////////////////////////////////////////////////////////////
    // Member data
    ////////////////////////////////////////////////////////////
    sfEventType            type; ///< Type of the event
    sfSizeEvent            size;
    sfKeyEvent             key;
    sfTextEvent            text;
    sfMouseMoveEvent       mouseMove;
    sfMouseButtonEvent     mouseButton;
    sfMouseWheelEvent      mouseWheel;
    sfJoystickMoveEvent    joystickMove;
    sfJoystickButtonEvent  joystickButton;
    sfJoystickConnectEvent joystickConnect;
} sfEvent;

Here is the delphi version of this that I have:

  { TsfEvent }
  TsfEvent = record
    case Integer of
      0: (cType          : TsfEventType);
      1: (size           : TsfSizeEvent);
      2: (key            : TsfKeyEvent);
      3: (text           : TsfTextEvent);
      4: (mouseMove      : TsfMouseMoveEvent);
      5: (mouseButton    : TsfMouseButtonEvent);
      6: (mouseWheel     : TsfMouseWheelEvent);
      7: (joystickMove   : TsfJoystickMoveEvent);
      8: (joystickButton : TsfJoystickButtonEvent);
      9: (joystickConnect: TsfJoystickConnectEvent);
  end;

ctype, and size are returning values, but for some reason key is not. I've checked and rechecked the structure, alignment, etc. Not sure what the problems is at the moment. key.code is always zero but the sfEvtKeyPressed event is returned, just not the key code value. Is there anything wrong with this structure?

[code_glitch]

Hmm, I'm on linux and debugging under wine doesnt really appeal to me. Would it be possible to get the source for a test app of some description? I should have time to play with it tomorrow if you're still having trouble with it.